📄 checkregister.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% set conn=server.CreateObject("ADODB.Connection")
conn.open"PROVIDER=SQLOLEDB; DATA SOURCE=(local);UID=sa;PWD=123;DATABASE=xap"
%>
<% dim s
usercount=Request.form("usercount")
userpasswd=Request.form("userpasswd")
userpasswdSure=Request.form("userpasswdSure")
username=Request.form("username")
usertele=Request.form("usertele")
userEmail=Request.form("userEmail")
userAdress=Request.form("userAdress")
usermemo=Request.form("usermemo")
checkpass=true
Set rs=server.CreateObject("ADODB.Recordset")
query="select usercount from userinfo where usercount='"&usercount&"'"
rs.open query,conn,3,2
if len(usercount)=0 then
checkpass=false
response.write"<p>你没有输入帐号,请检查后重新输入！</p>"
else if not rs.eof then
checkpass=false
response.write"该帐号已经存在,请输入其他的帐号"
end if
end if
if len(userpasswd)=0 then
checkpass=false
response.write"<p>你没有输入密码，请检查后重新输入！</p>"
end if
if len(userpasswdSure)=0 then
checkpass=false
response.write"<p>你没有输入确认密码，请检查后重新输入！</p>"
end if
if len(userEmail)=0 or instr(userEmail,"@")=0 then
checkpass=false
response.write"<p>你没有输入电子邮件地址或者地址非法，请检查后重新输入！</p>"
end if
if userpasswd<> userpasswdSure then
checkpass=false
response.write"<p>你的密码和确认密码不同，请检查后重新输入！</p>"
end if
if checkpass then
query1="insert into userinfo(usercount,userpasswd,userpasswdSure,username,usertele,userEmail,userAdress,usermemo) values('"&usercount&"','"&userpasswd&"','"&userpasswdSure&"','"&username&"','"&usertele&"','"&userEmail&"','"&userAdress&"','"&usermemo&"')"
conn.execute query1
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "success.asp"
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户注册信息检查</title>
</head>
<body>
<table ><tr><td align="center"><p><a href="register.asp">返回</a></p></td></tr></table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -