碰到这样一个问题，网页上一发布信息（如图1）点击提交什么也不提示 是空白页 也没有提示在哪里出错了（如图2）
（如图1）
（图2）
当点击发布时什么提示都不出来，包括不填写任何信息也是这样。没有任何提示
代码如下：
<%
if session("addxinxi")<>"" then
if DateDiff("s",session("addxinxi"),Now())<30 then
Response.Write "<script language='javascript'>alert('系统保护：你提交数据太快，系统中止运行，请等待30秒钟！');history.back();</script>"
response.end
end if
end if
dim CheckCode
CheckCode=LCase(trim(Request.Form("yzm")))
if CheckCode<>LCase(CStr(Session("pSN"))) then
response.Write "<script language='javascript'>alert('验证码不正确！);history.back();</script>"
response.end
end if
username=request.cookies("cnmai")("username")
class1=trim(request("class1"))
class2=trim(request("class2"))
biaoti=CheckStr(trim(request("biaoti")))
sdays=trim(request("days"))
if right(request("tupian"),4)=".gif" or right(request("tupian"),4)=".bmp" or right(request("tupian"),4)=".jpg" or right(request("tupian"),5)=".jpeg" or request("tupian")="" then
else
Response.Write "<script language='javascript'>alert('请正确填写图片地址！');history.back();</script>"
response.end
end if
if username<>"" then
set rs=server.createobject("adodb.recordset")
if request("comper")="com" then
sql = "select * from [jle_com] where username='"&username&"'"
else
sql = "select * from [jle_user] where username='"&username&"'"
end if
rs.open sql,conn,1,3
rs("jf")=rs("jf")+jf_3
if len(request("a"))=6 and rs("a")>=1 then
rs("a")=rs("a")-1
end if
if request("b")>=1 and rs("b")>=1 then
rs("b")=rs("b")-int(request("b"))
end if
if request("tupian")<>"" and rs("c")>=1 then
rs("c")=rs("c")-1
end if
if request("d")="1"then
rs("d")=rs("d")-1
else
rs("d")=0
end if
rs.update
rs.close
set rs=nothing
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from jle_xinxi"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("class1")=class1
rs("class2")=class2
rs("leixing")=request("leixing")
rs("biaoti")=biaoti
if request("dd")="1" then
'rs("zk")=request("zk")
end if
rs("diqu")=trim(request("diqu"))
'rs("jiage")=CheckStr(trim(request("jiage")))
rs("memo")=CheckStr(trim(request("memo")))
rs("name")=CheckStr(trim(request("name")))
rs("dianhua")=CheckStr(trim(request("dianhua")))
rs("email")=CheckStr(trim(request("email")))
rs("qq")=CheckStr(trim(request("qq")))
rs("dizhi")=CheckStr(trim(request("dizhi")))
if request("tupian")="" then
rs("tupian")=0
else
rs("tupian")=CheckStr(trim(request("tupian")))
end if
if username<>"" then
rs("com")=CheckStr(trim(request("com")))
rs("a")=request("a")
rs("b")=request("b")
rs("yz")=request("d")
rs("tuijian")=request("tui")
end if
rs("fbsj")=now()
rs("dqsj")= dateadd("d", sdays, now)
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
rs.update
session("addxinxi")=now()
id=rs("id")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
if username<>"" then
Response.Write "<script language='javascript'>alert('您的信息发布成功了');</script>"
else
Response.Write "<script language='javascript'>alert('(游客)您的信息发布成功了,我们将在24小时内审核通过');</script>"
end if
response.write "<meta http-equiv=refresh content=""1;URL=index.asp"">"
response.end
%>
请各位高手赐教！！