比如说在提交后,如果用户名为空我想给出提示:用户名不能为空! 我这么做不行把?应该怎么做啊?提示我对象关闭时,不允许操作。 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit dim username,userpasswd,user,usersex,usernote,conn,db,rs,sql db="mdb/aaaa.mdb" username=request.form("textname") userpasswd=request.form("textpasswd") user=request.form("textuser") usersex=request.form("sex") usernote=request.form("textnote") Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) sql="select * from zhuce where name='"&username&"'" Set rs = Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,2 if username="" then %> <p class="style2">用户名不能为空! <% rs.close conn.close set conn=nothing %> <%end if%>
<% if not rs.eof then %> <style type="text/css"> <!-- .style2 { font-family: "宋体"; font-size: 10pt; } --> </style>
<p class="style2">对不起,用户名已经有人用了,请换其他的用户名试一下! <% else rs.addnew rs("name")=username rs("passwd")=userpasswd rs("user")=user rs("sex")=usersex rs("note")=usernote rs.update %> <p class="style2">用户<%=username%>添加成功! <% end if rs.close conn.close set conn=nothing %> </p>