ASP防止重名注册

来源：互联网发布：mac os x lion 10.7.4 编辑：程序博客网时间：2024/04/29 06:53

原理很简单，通过一句SQL语句：Select * from student where stname='"+stname+"'

接着就开始检查，当到(rs.eof)记录的最后一条还找不到时stname，说明这个名字(stname)没有必注册

则值行下面的动作，把他注删的信息进行添加。。。

详细代码如下：

<html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>ASP 防止重名注册</title><%'数据库的连接dim connstrconnstr="provider=microsoft.jet.oledb.4.0;data source=" + server.mappath ("db1.mdb")set conn=server.createobject("adodb.connection")conn.open connstr%><%if request("send")="ok" then dim stname stname = Request.Form("stname") if stname = "" then response.write "<mce:script type="text/javascript"></mce:script>" response.end end if sqlStr="Select * from student where stname='"+stname+"'" Set rs=Server.CreateObject("Adodb.RecordSet") rs.open sqlStr,conn,1,3 if not(rs.bof and rs.eof) then Response.Write "<mce:script type="text/javascript"></mce:script>" else rs.Addnew rs("stname")=Request.Form("stname") rs.Update Response.Write "<mce:script type="text/javascript"></mce:script>" end if rs.close set rs=nothing response.endend if%></head><body><form id="form1" name="form1" method="post" action="index.asp"> <label> <input name="stname" type="text" id="stname" value="" size="45" /> </label> <label> <input type="submit" name="button" id="button" value="提交" /> <input type="hidden" name="send" value="ok" /> </label></form></body></html>