📄 reg.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="mail.asp"-->
<%dim action,getpass,mailbody
action=request.QueryString("action")%>
<title><%=webname%>--新用户注册</title>
<!--#include file="include/header.asp"-->
<%
select case action
case ""%>
<table width="760" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"> </td>
<td valign="top"> </td>
</tr>
<tr>
<td width="754" height="100%" valign="top" > <div style="font-size:11px">
</div>
<div style="font-size:11px">
<TABLE WIDTH="700" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD HEIGHT="18" ALIGN="center"><br> <B><FONT SIZE=2><%=webname%>注册条约</FONT></B></TD>
</TR>
<TR>
<TD align=center valign="top">
<%call tiaoyue()%>
</TD>
</TR>
<TR>
<FORM NAME="form1" METHOD="post" ACTION="reg.asp?action=yes">
<TD ALIGN="center"> <INPUT TYPE="submit" NAME="Submit4"STYLE="height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee" VALUE="我 同 意">
<INPUT TYPE="button" NAME="Submit22" VALUE="我 不 同 意" STYLE="height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee"ONCLICK="location.href='../'">
</TD>
</FORM>
</TR>
</TABLE>
<%case "yes"%>
<TABLE WIDTH="700" BORDER="0" ALIGN="center" CELLPADDING="2" CELLSPACING="1" >
<tr>
<TD colspan="2" ALIGN="center"><FONT COLOR="#cb6f00">请填写用户信息</FONT></TD>
</tr>
<FORM NAME="userinfo" METHOD="post" ACTION="reg.asp?action=save" >
<TR>
<TD width="150" align="right"><FONT COLOR="#cb6f00">用 户 名：</FONT></TD>
<TD width="550"><INPUT NAME="username" TYPE="text" ID="username" >
用户名长度不能小于2。</TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR="#cb6f00">密码：</FONT></div></TD>
<TD> <INPUT NAME="password" TYPE="password" ID="password2">
长度必须大于6个字符。</TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR="#cb6f00">确认密码：</FONT> </div></TD>
<TD> <INPUT NAME="password1" TYPE="password" ID="password12"> </TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR="#cb6f00">E-Mail：</FONT> </div></TD>
<TD> <INPUT NAME="useremail" TYPE="text" ID="useremail">
请您务必填写正确的E-mail地址，便于我们与您联系；</TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR="#cb6f00">真实姓名： </FONT></div></TD>
<TD> <INPUT NAME="realname" TYPE="text" ID="realname">
收货人姓名。</TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR="#cb6f00">身份证号码： </FONT></div></TD>
<TD> <INPUT NAME="identify" TYPE="text" ID="identify">
此项信息用于必要时以核实身份，一经注册，便不可更改，请如实填写！</TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR="#cb6f00">移动手机： </FONT></div></TD>
<TD> <INPUT NAME="mobile" TYPE="text" ID="mobile">
请填写正确的号码，以便有急事联系。</TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR="#cb6f00"> Q Q：</FONT> </div></TD>
<TD> <INPUT NAME="userqq" TYPE="text" ID="userqq">
网上联系</TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR=#cb6f00>密码提示： </FONT></div></TD>
<TD> <INPUT NAME="quesion" TYPE="text" ID="quesion"> </TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR=#cb6f00>密码答案： </FONT></div></TD>
<TD> <INPUT NAME="answer" TYPE="text" ID="answer"> </TD>
</TR>
<TR>
<TD><div align="right"><FONT COLOR="#cb6f00">推荐人： </FONT></div></TD>
<TD> <INPUT NAME="recommender" TYPE="text" ID="recommender"> </TD>
</TR>
<TR>
<TD></TD>
<TD> <INPUT ONCLICK="return check();" TYPE="submit" NAME="Submit3" STYLE="height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee"VALUE="提 交" >
<input type="reset" name="Submit5" STYLE="height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee" value="清 除">
</TD>
</TR>
<tr>
<td height="5"></td>
</tr>
</FORM>
</TABLE>
<%case "save"%>
<!--#include file="func.asp"-->
<%call saveuser()%>
<%
end select%>
<%sub tiaoyue()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from config",conn,1,1
response.Write trim(rs("rule"))
mailaddress=rs("webbj7")
mailusername=rs("webbj8")
mailuserpass=rs("webbj9")
mailname=rs("webbj6")
mailsend=rs("webbj5")
weburl=rs("weburl")
rs.Close
set rs=nothing
end sub
sub saveuser()
dim rsrec,strgift,stradd,strresult,txt,Frommail,mailt,mail
'if session("regtimes")=1 then
'response.Write "<div align=center><br><br>对不起，您刚注册过用户。<br>请稍后再进行注册！</font></div><br>"
'response.End
'end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select username,useremail from [user] where username='"&trim(request.form("username"))&"' or useremail='"&trim(request.form("useremail"))&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
set rs = nothing
else
rs.close
rs.open "select webimg13 from [config]",conn,1,1
strgift=Clng(rs("webimg13"))
rs.close
stradd=trim(request.form("recommender"))
rs.open "select score from [user] where username='"&stradd&"' ",conn,1,3
if rs.eof and rs.bof then
strresult="你填写的推荐人还没有被注册"
stradd="Huibo"
else
strresult="给你的推荐人加了'"& strgift &"'分"
rs("score")=rs("score")+strgift
rs.update
end if
rs.close
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("username")=trim(request.form("username"))
rs("password")=md5(trim(request.form("password")))
rs("useremail")=trim(request.form("useremail"))
rs("quesion")=trim(request.form("quesion"))
rs("answer")=md5(trim(request.form("answer")))
rs("recommender")=stradd
rs("realname")=trim(request.form("realname"))
rs("identify")=trim(request.form("identify"))
rs("mobile")=trim(request.form("mobile"))
rs("userqq")=trim(request.form("userqq"))
rs("adddate")=now()
rs("lastvst")=now()
rs.update
rs.close
set rs=nothing
'Dim connstrforum,rsforum,connforum,usercode,strPassword,strSalt,strEncyptedPassword,intstargrp,rsgrp
'connstrforum="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dbforum&"")
'Set connforum = Server.CreateObject("ADODB.Connection")
'connforum.Open connstrforum
'set rsgrp=server.CreateObject("adodb.recordset")
'rsgrp.open "select grpid from timesgrp where startgrp=true",connforum,1,3
'intstargrp=rsgrp("grpid")
'set rsforum=server.CreateObject("adodb.recordset")
'rsforum.open "select * from timesuser",connforum,1,3
'rsforum.addnew
'rsforum("username")=trim(request.form("username"))
'strPassword = LCase(Trim(Mid(Request.Form("password"), 1, 15)))
'strSalt = getSalt(Len(strPassword))
'strEncyptedPassword = strPassword & strSalt
'strEncyptedPassword = HashEncode(strEncyptedPassword)
'rsforum("password")= strEncyptedPassword
'rsforum("Salt")= strSalt
'rsforum("useremail")=trim(request.form("useremail"))
'rsforum("usercode")=trim(request.form("username"))
'rsforum("grpid")=intstargrp
'rsforum("active")=1
'rsforum.update
'rsforum.close
'set rsforum=nothing
'rsgrp.close
'set rsgrp=nothing
response.Cookies("Huibo")("username")=trim(request.form("username"))
response.Cookies("Huibo").expires=date+1
session("regtimes")=1
session.Timeout=1
Response.Cookies("Forum")("UID") =trim(request.form("username"))
Response.Cookies("Forum").Expires = Now() + 365
'发送邮件
getpass=trim(request("password"))
mailbody="<html>"
mailbody=mailbody & "<title>注册信息</title>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & trim(request("username"))&"，您好：<br><br>"
mailbody=mailbody & "欢迎您注册" & webname & "网上商城，我们将提供给您最好的服务！<br>"
mailbody=mailbody & "下面是您在" & webname & "网上商城的注册信息：<br><br>"
mailbody=mailbody & "注册名："&trim(request("username"))&"<br>"
mailbody=mailbody & "密 码："&getpass&"<br>"
mailbody=mailbody & "<br><br>"
mailbody=mailbody & "<center><a href="&weburl&"><font color=red>再次感谢您注册" & webname & "网上商城！</font></a>"
mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
Dim strSubject,strToEmail,strMailAddress,strSender,strContent,strFromer,strFromEmail,strUserName,strPassWord
strSubject = "你在"©right&"注册成功" '标题
strToEmail = trim(request.form("useremail")) ' 收件信箱
strMailAddress = mailaddress
strSender = "yzr" ' 收件人姓名
strContent = mailbody ' 邮件内容
strFromEmail = mailsend ' 发件信箱
strFromer = mailname ' 发件人姓名
strUserName = mailusername ' 发件邮件帐号
strPassWord = mailuserpass
Call SendAction (strSubject,strMailaddress,strToEmail,strSender,strContent,strFromEmail,strFromer,strUserName,strPassWord)
%>
<table width=700 border=0 align=center cellpadding=0 cellspacing=1>
<tr>
<td height=100 bgcolor=<% = bgclr4 %>> <table width=700 border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height=80 bgcolor=<% = bgclr4 %>><font color=#FF0000>用户注册成功<br>
</font> 恭喜
<% = request.Cookies("Huibo")("username") %>
，您已注册成为[
<% = webname %>
]正式用户，请进行下一步操作：<br> <br>
·
<% = strresult %>
<br> <br>
·<a href=profile.asp?action=receiveaddr>为了方便您的购物，建议您填写详细的收货人资料</a><br>
<br>
·<a href=index.asp>返回首页</a></td>
</tr>
</table></td>
</tr>
</table>
<%
end if
end sub
sub usererr() %>
<table width=700 height=80 border=0 align=center cellpadding=0 cellspacing=1>
<tr>
<td width="500">
<table width=700 border=0 align=center cellpadding=2 cellspacing=0>
<tr>
<td><font color=#FF0000>用户注册失败</font></td>
</tr>
<tr>
<td> ·您输入的用户名或Email地址已经被注册，请选用其他的用户名或者E-mail！<br>
·<a href=javascript:history.go(-1)><font color=red>点击返回上一页</font></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function check()
{
if(checkspace(document.userinfo.username.value)) {
document.userinfo.username.focus();
alert("用户名不能为空，请重新输入！");
return false;
}
if(checkspace(document.userinfo.username.value) || document.userinfo.username.value.length < 2) {
document.userinfo.username.focus();
alert("用户名长度不能小于2，请重新输入！");
return false;
}
if(checkspace(document.userinfo.identify.value) || document.userinfo.identify.value.length < 15) {
document.userinfo.identify.focus();
alert("身份证号码长度不能小于15位，请重新输入！");
return false;
}
if(checkspace(document.userinfo.password.value) || document.userinfo.password.value.length < 6) {
document.userinfo.password.focus();
alert("密码长度不能小于6，请重新输入！");
return false;
}
if(document.userinfo.password.value != document.userinfo.password1.value) {
document.userinfo.password.focus();
document.userinfo.password.value = '';
document.userinfo.password1.value = '';
alert("两次输入的密码不同，请重新输入！");
return false;
}
if(document.userinfo.useremail.value.length!=0)
{
if (document.userinfo.useremail.value.charAt(0)=="." ||
document.userinfo.useremail.value.charAt(0)=="@"||
document.userinfo.useremail.value.indexOf('@', 0) == -1 ||
document.userinfo.useremail.value.indexOf('.', 0) == -1 ||
document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 ||
document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
{
alert("Email地址格式不正确！");
document.userinfo.useremail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.userinfo.useremail.focus();
return false;
}
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>
</div></td>
<td valign="top" width="25"> </td>
</tr>
</table>
<!--#include file="include/footer.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -