ASP用户添加重复处理方法

来源：百度知道 编辑：UC知道 时间：2024/06/05 02:19:19
<%
If Session(CookieName & "_flag")="" and Session("qq")="" Then
response.Redirect("Login.asp")
end if
qq=Session("qq")
Action=request.QueryString("Action")
pageno=cint(Request.QueryString("page"))
id =cint(Request.QueryString("id"))
if Action="Del" then
Call Del
elseif Action="Save" then
Call SaveConfig
end if
sub SaveConfig
if request("UserName")="" then
response.write "<script language=JavaScript>{window.alert('错误的操作！');window.location.href='Admin_Index.asp'}</script>"
else
set rsUser=server.createobject("adodb.recordset")
sqltext="select * from Cp_User"
rsUser.open sqltext,conn,3,3
rsUser.addnew
rsUser("qq")=request("UserName")
rsUser("sj")=r

原来是这样的：从数据库里读取用户名等于request("UserName"）的纪录，如果不为空，那么就是纪录存在，就提示已经存在这个用户，代码如下：

set rs=server.createobject("adodb.recordset")
sql="select * from Cp_User where qq='"&request("UserName"）&"'"
rs.open sql,conn,1,1
if not rs.bof and rs.eof then'如果纪录不为空，则提示该用户已经存在
response.write "用户已经存在，请选择其他用户名"
response.end()
else'如果纪录不存在，则写入数据库
set rsUser=server.createobject("adodb.recordset")
sqltext="select * from Cp_User"
rsUser.open sqltext,conn,3,3
rsUser.addnew
rsUser("qq")=request("UserName")
rsUser("sj")=request("sj")
rsUser("sf")=request("sf")
rsUser.update
rsUser.close
end if

set rsUser=server.createobject("adodb.recordset")
sql="select * from Cp_User where qq='"&request("UserName")&"'"