建模是什么意思:留言板asp 提交提示我为空 怎么办

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/06 19:41:36
本人写了个留言板
index输入后提交到write.asp进行判断 输出
write.asp刚开始有个判断语句 判断输入的值是否为空,为空则中止 但是我全部输入了 他也提示我输入的是为空,
但是都有值啊/
index 没有错
write.asp:
<!--#include file="connection_db.asp"-->
<!--#include file="transfer_html.inc"-->
<%
IF instr(request.form("name"),"管理员")<>0 or instr(request.form("name"),"admin")<>0 or instr(request.form("name"),"网管")<>0 then
if session("postboard_admin")<>true then
response.write "<script language=JavaScript>" & chr(13) & "alert('name包含非法字符,不能留言!');navigate(""index.asp"")</script>"
response.end()
end if
END IF

IF request.form("email")<>empty then
if instr(request.form("email"),"@")=0 or instr(request.form("email"),".")=0 or instr(request.form("email"),"@.")<>0 or instr(request.form("email"),".@")<>0 then
response.write "<script language=JavaScript>" & chr(13) & "alert('电邮格式不正确!');history.back()</script>"
response.end
else
email=request.form("email")
end if
ELSE
email="保密"
END IF
IF Len(request.form("content"))>200 then
response.write("<script>alert(""留言内容长度不能超过200字符!"");navigate(""index.asp"")</script>")
response.end
END IF
if request.form("name")=empty then
if request.ServerVariables("remote_host")=empty then
name="unknow"
else
name=mid(request.ServerVariables("remote_host"),1,instrREV(request.ServerVariables("REMOTE_host"),"."))&"*"
end if
else
name=request.form("name")
end if
if request.form("content")<>"" and request.form("title")<>"" then
sql="select * from message"
rs.open sql,conn,2,3
dim no
if rs.eof=true and rs.bof=true then
no=1
else
rs.movelast
no=rs(0)+1
end if
rs.addnew
rs("title")=transfer(request.form("title"))
rs("content")=transfer(request.form("content"))
rs("name")=transfer(name)
rs("IPaddress")=request.ServerVariables("remote_host")
rs("email")=transfer(email)
rs("date")=formatdatetime(now,0)
rs("id")=no
rs.update
response.write("<script>alert(""留言成功!"");navigate(""index.asp"")</script>")
rs.close
set rs=nothing
set conn=nothing
else
response.write("<script>alert(""标题、留言内容都不能为空"");navigate(""index.asp"")</script>")
end if
%>
我经过仔细查看 我改好了
现发布如下 希望对后来的学习者有用

If request.form("content")="" or request.form("title")="" then

response.write("<script>alert(""标题、留言内容都不能为空"");navigate(""index.asp"")</script>")

Else
sql="select * from message"
rs.open sql,conn,2,3
dim no
if rs.eof=true and rs.bof=true then
no=1
else
rs.movelast
no=rs(0)+1
end if

rs.addnew
rs("title")=transfer(request.form("title"))
rs("content")=transfer(request.form("content"))
rs("name")=transfer(name)
rs("IPaddress")=request.ServerVariables("remote_host")
rs("email")=transfer(email)
rs("date")=formatdatetime(now,0)
rs("id")=no
rs.update
response.write("<script>alert(""留言成功!"");</script>")
response.Redirect("index.asp")
rs.close
set rs=nothing
set conn=nothing
end if
%>

是啊,用empty不管用的“”才表示为空呢!你也可以测试一下,你提交empty他可能就不会说是空了.

把empty换""试试,