📄 chulireg.asp
字号:
<!--#include file="dbconn.asp"-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
function getrandompwd
randomize
dim mydatestr,ranArr
ranArr="aAbBcCdDeEfFgG123456789hHiIjJkKlLmMn_NoOpPqQrRsStTuUvVwWxXyYzZ"
for i=0 to 14
mydatestr=mydatestr&mid(ranArr,cint(rnd*53)+1,1)
next
getrandompwd=mydatestr
end function
'------------------------------------------------------------------------
dim myuser,mypwd,mypwd2,myemail,sql
myuser=request.form("txtUsername")
mypwd=request.form("txtPassword")
mypwd2=request.form("txtPassword2")
myemail=request.form("txtEmail")
if mypwd=mypwd2 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from userinfo where username='"&myuser&"'"
rs.open sql,conn,3,2
if rs.recordcount=0 then
rs.addnew
rs("username")=myuser
rs("password")=mypwd
rs("email")=myemail
rs("step")=0
rs("regDate")=date()
rs.update
rs.close
'response.write sql
'response.end
sql="select * from userinfo where username='"&myuser&"'"
rs.open sql,conn,3,1
session("userID")=rs("ID")
rs.close
session("username")=myuser
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('恭喜您，注册成功!\n点确定进管理中心!!!');" &vbCrLf&_
"window.location='manage.asp';"&vbCrLf&_
"</script>"
else
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('对不起，你选择的帐号已经被注册了!\n点确定返回上一页!!!');" &vbCrLf&_
"history.go(-1);"&vbCrLf&_
"</script>"
response.End
end if
'rs.close
set conn=nothing
else
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('对不起，两次输入的密码不一致!\n点确定返回上一页!!!');" &vbCrLf&_
"history.go(-1);"&vbCrLf&_
"</script>"
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -