📄 userreg2.asp

📁 顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access
💻 ASP
字号:
<!--#include file="HMconnection.asp" -->
<!--#include file="../MD5/md5.asp" -->
<%dim action
action=request("action")
%>
<head>
<title><%=webname%>-新用户注册</title>
</head>
<%
if action="regdo" then
username=trim(request("username"))
password=request("userpassword")
password1=request("userpassword1")
email=request("useremail")
sex=request("sex")
question=request("question")
answer=request("answer")
if username="" or email="" or password="" or password1="" or question="" or answer="" or username="loginname" then
%>
<script language="vbscript">
<!--
msgbox"您输入的资料不全，请返回重新输入！"
location.href="javascript:history.go(-1)"
//-->
</script>
<%
response.end
end if
if len(username)>15 or len(username)<4 then
%>
<script language="vbscript">
msgbox"用户名不能少于4位数大于15位数！"
location.href="javascript:history.go(-1)"
</script>
<%
response.end
end if

dim yzSQL,yzRS
yzSQL="select UserName from User where UserName='"&username&"'"
set yzRS=server.CreateObject("adodb.recordset")
yzRS.open yzSQL,conn,1,1
if not (yzRS.bof and yzRS.eof) then
%>
<script language="vbscript">
msgbox"对不起，此用户名已经有人注册！"
location.href="javascript:history.go(-1)"
</script>
<%
yzRS.close
set yzRS=nothing
response.end
end if
yzRS.close
set yzRS=nothing

if password<>password1 or len(password)<4 then
%>
<script language="vbscript">
msgbox"密码和确认密码不一致或密码长度过短！"
location.href="javascript:history.go(-1)"
</script>
                  <%
response.end
end if
if not(instr(email,".")<>0 and instr(email,"@")<>0 and len(eMail)>6) then
%>
                  <script language="vbscript">
msgbox"您输入的email格式不正确！"
location.href="javascript:history.go(-1)"
</script>
<%
response.end
end if
dim saveSQl,saveRS,addinfoRS,infoconn
set saveRS=server.CreateObject("adodb.recordset")
saveSQL="select * from user"
saveRS.open saveSQL,conn,1,2
saveRS.addnew
saveRS("username")=username
saveRS("email")=email
saveRS("password")=md5(password)
saveRS("question")=question
saveRS("answer")=md5(answer)
saveRS("sex")=sex
saveRS("regtime")=now()+2
saveRS("regtime1")=now()
saveRS("online")=1
saveRS("hits")=1
saveRS("paymethod")=2
saveRS.update
'向用户添加信息

 set addinfoRS=server.CreateObject("adodb.recordset")
 addinfoRS.open "select * from UserMsg",conn,1,3
 addinfoRS.addnew
 addinfoRS("UserID")=saveRS("id")
 addinfoRS("sendman")="顶级影视"
 addinfoRS("infoName")="欢迎您成为顶级影视的一员！"
 infoconn="&nbsp;&nbsp;<font color='red'><b>欢迎您光临顶级影视并注册为会员！</b></font><br>"
 infoconn=infoconn&"&nbsp;&nbsp;我们的宗旨是：尽我所能为您服务！<br>"
 infoconn=infoconn&"&nbsp;&nbsp;如有什么问题请查阅首页帮助信息！谢谢您的支持！<br>"
 addinfoRS("MsgContent")=infoconn
 addinfoRS.update
 addinfoRS.close
set addinfoRS=nothing

saveRS.close
set saveRS=nothing
set conn=nothing
session("login")=true
session("username")=username
session("password")=md5(password)
session("grade")=1
%>
<script language="vbscript">
msgbox"恭喜<%=request("username")%>，注册成功"
location.href="../index.asp"
</script>
<%end if%>
<%if action="reg" then
response.Redirect("../UserReg.asp")
end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -