麦点商城查询我的银果:ASP 判断的问题!
来源:百度文库 编辑:查人人中国名人网 时间:2024/07/13 22:10:03
<!-- #include file="conn.asp" -->
<% response.Buffer=true
response.Expires=0
session("user")=request.Form("user")
session("phone")=request.Form("phone")
session("content")=request.Form("content")
if request.Form("VerifyCode")<>session("VerifyCode") then
Response.Write("<br> => 验证码错误!如看不清请刷新!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
end if
if request.form("user")="" then
Response.Write("<br> => 用户名不能为空!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
end if
if request.form("phone")="" then
Response.Write("<br> => 联系方式不能为空!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
end if
if request.form("content")="" then
Response.Write("<br> => 内容不能为空!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
end if
%>
<% set rs=Server.CreateObject("adodb.recordset")
exec="select * from message order by id asc"
rs.open exec,conn,1,3
if not rs.bof=0 then
reco=0
else
rs.movelast
reco=clng(rs("id"))+1
end if
rs.addnew
........
........
最后rs.close
conn.close
set rs=nothing
set conn=nothing
怎样加入判断 使如果能顺利执行完写入操作
然后response.write("操作成功")?
兄弟
我这个程序主要是 如果提示信息填写不完全的时候
就把最后哪个 response.write("提交成功") 也带上了
我是想提示信息填写不完全的时候没有 插入成功了再显示
if not rs.eof 我在rs.upadte后边插入过 还是有的...
<% response.Buffer=true
response.Expires=0
session("user")=request.Form("user")
session("phone")=request.Form("phone")
session("content")=request.Form("content")
if request.Form("VerifyCode")<>session("VerifyCode") then
Response.Write("<br> => 验证码错误!如看不清请刷新!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
end if
if request.form("user")="" then
Response.Write("<br> => 用户名不能为空!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
end if
if request.form("phone")="" then
Response.Write("<br> => 联系方式不能为空!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
end if
if request.form("content")="" then
Response.Write("<br> => 内容不能为空!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
end if
%>
<% set rs=Server.CreateObject("adodb.recordset")
exec="select * from message order by id asc"
rs.open exec,conn,1,3
if not rs.bof=0 then
reco=0
else
rs.movelast
reco=clng(rs("id"))+1
end if
rs.addnew
........
........
最后rs.close
conn.close
set rs=nothing
set conn=nothing
怎样加入判断 使如果能顺利执行完写入操作
然后response.write("操作成功")?
兄弟
我这个程序主要是 如果提示信息填写不完全的时候
就把最后哪个 response.write("提交成功") 也带上了
我是想提示信息填写不完全的时候没有 插入成功了再显示
if not rs.eof 我在rs.upadte后边插入过 还是有的...
你的意思是不是说,你上面的代码不管怎么样,在判断完用户输入后,不管用户有没有输入完整都会出现 response.write "操作成功"。
如果是这样的意思的话,你就是差了一个response.end.
if request.form("user")="" then
Response.Write("<br> => 用户名不能为空!<br>")
Response.Write("<meta http-equiv='refresh' content='3;url=message_edit.asp' />")
response.end '''''每一句都加多一个这句。
end if
也可以在set rs=Server.CreateObject("adodb.recordset")
前面加一个
if request.form("user")<>"" and request.form("phone")<>"" and .... then
set rs=Server.CreateObject("adodb.recordset")
.........
...........
.....
response.write "添加成功!"
end if