📄 reg.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%dim action
action=request.QueryString("action")%>
<html>
<head>
<title><%=webname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
.pad {
PADDING-LEFT: 150px
}
</style>
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="top8.asp" -->
<table width="10" height="7" border="0" cellpadding="0" cellspacing="0">
<tr> </tr>
</table>
<%select case action
case ""%>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D0E2FD">
<tr>
<td align="center" bgcolor="#FFFFFF">
<div align="center"></div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" background="images/menu_bar01.jpg">
<tr>
<td><div align="center"><font color="#FFFFFF">::<strong>用户注册</strong>::只要一步，立即加入中国最稳定、最可靠的互联网采购平台
，尽享购买乐趣！</font></div></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" >
<form name="userinfo" method="post" action="reg.asp?action=save" >
<tr>
<td class=pad bgcolor="#EFF5FE"><font color="#cb6f00">E-Mail
：</font> <input name="useremail" type="text" id="useremail"> <br>
请填写您有效的邮件地址，以便于我们为您提供有效的服务。</td>
</tr>
<tr>
<td class=pad bgcolor="#EFF5FE"><font color="#cb6f00">用 户 名：</font>
<input name="username" type="text" id="username" > <br>
用于登陆时使用，用户名长度不能小于4且使用英文字母。</td>
</tr>
<tr>
<td class=pad bgcolor="#EFF5FE"><font color="#cb6f00">真实姓名：
<input name="userzhenshiname" type="text" id="userzhenshiname">
<br>
</font>以便发货确认。 </td>
</tr>
<tr>
<td class=pad bgcolor="#EFF5FE"><font color="#cb6f00">密
码：
<input name="userpassword" type="password" id="userpassword">
<br>
</font>长度必须大于6个字符小于50个字符，只能为英语字母、数字。</td>
</tr>
<tr>
<td class=pad bgcolor="#EFF5FE"><font color="#cb6f00">确认密码：
<input name="userpassword1" type="password" id="userpassword1">
<br>
</font>请将输入的密码再次输入，以免设置密码出错。<font color="#cb6f00"> </font></td>
</tr>
<tr>
<td class=pad bgcolor="#EFF5FE"><FONT color=#cb6f00>密码提问：
<input name="quesion" type="text" id="quesion">
</FONT>(用于密码遗忘时使用)<FONT color=#cb6f00> </FONT></td>
</tr>
<tr>
<td class=pad bgcolor="#EFF5FE"><FONT color=#cb6f00>密码答案：
<input name="answer" type="text" id="answer">
</FONT>(密码遗忘时将验证此答案) </td>
</tr>
<tr>
<td align="center" bgcolor="#EFF5FE" > <input style="background-color: #A5C1E0; background-repeat: repeat; background-attachment: scroll; color: #000000; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; height: 18px; line-height: normal; border: 1px solid #000000; background-position: 0% 50%" onClick="return check1();" type="submit" name="Submit3" value="提 交" id=dde>
</td>
</tr>
</form>
</table> </td>
</tr>
</table>
<%case "save"%>
<!--#include file="md5.asp"-->
<%call saveuser()%>
<%
end select%>
<!--#include file="service.asp"-->
</body>
</html>
<%
sub saveuser()
set rs=server.CreateObject("adodb.recordset")
rs.open "select username,useremail from [user] where username='"&trim(request("username"))&"' or useremail='"&trim(request("useremail"))&"'",conn,1,1
if not rs.eof and not rs.bof then
call usererr()
rs.close
else
rs.close
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("userpassword")=md5(trim(request("userpassword1")))
rs("useremail")=trim(request("useremail"))
rs("quesion")=trim(request("quesion"))
rs("answer")=md5(trim(request("answer")))
rs("userzhenshiname")=trim(request("userzhenshiname"))
rs("adddate")=now()
rs("lastlogin")=now()
rs("logins")=0
rs("youbian")=0
rs("zhifufangshi")=0
rs("songhuofangshi")=0
rs.update
rs.close
set rs=nothing
response.Cookies("bookshop")("username")=trim(request("username"))
response.Cookies("bookshop").expires=date+1
session("regtimes")=1
session.Timeout=1
response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#D0E2FD><tr><td height=100 bgcolor=#FFFFFF>"
response.Write "<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><td><table width=100%' border='0' align='center' cellpadding='0' cellspacing='0' background='images/menu_bar01.jpg'><tr> "
response.Write " <td><div align='center'><strong><font color='#FFFFFF'><strong>用户注册成功</strong></font> </strong></div></td> </tr>"
response.Write "</table></td><tr><tr><td height=80 bgcolor=#EFF5FE class=pad>"
response.Write "恭喜"&request.Cookies("bookshop")("username")&"，您已注册成为<font color=red>"©right&"</font>正式用户，请进行下一步操作：<br>"
response.Write "·<a href=myuser.asp?action=shouhuoxx>填写收货人详细资料</a><br>·<a href=index.asp>"©right&"</a></td></tr></table></td></tr></table>"
end if
end sub
sub usererr()
response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#D0E2FD><tr><td height=100 bgcolor=#FFFFFF>"
response.Write "<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><td><table width=100%' border='0' align='center' cellpadding='0' cellspacing='0' background='images/menu_bar01.jpg'><tr> "
response.Write " <td><div align='center'><strong><font color='#FFFFFF'><strong>用户注册失败</strong></font> </strong></div></td> </tr>"
response.Write "</table></td><tr><tr><td height=80 bgcolor=#EFF5FE class=pad>·您输入的用户名或Email地址已存在，请返回重新输入！<br>·<a href=javascript:history.go(-1)><font color=red>点击返回上一页</font></a> </font></td></tr></table></td></tr></table>"
end sub
sub sendemail()
dim sendmail
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo,objCDOMail
'收件人信息
dim grtts,mimawenti
if trim(request("quesion"))="" then
mimawenti=" 您没有填写密码保护问题，为了您的用户安全，建议您返回网站补填密码保护功能。"
else
mimawenti=" 您的密码问题是：<font color=red>"&trim(request("quesion"))&"</font> 问题答案是：<font color=red>"&trim(request("answer"))&"</font>"
end if
email=trim(request("useremail")) '//收信人地址
title="您在"©right&"的注册信" '//标题
msg="<table width=70% border=0 align=left cellpadding=1 cellspacing=1 style='FONT-SIZE: 12px;COLOR: #000000; FONT-FAMILY: verdana;'><tr><td style='line-height:14pt'>亲爱的用户"&trim(request("username"))&"("&trim(request("userzhenshiname"))&")，您好：<br> 感谢您在"©right&"注册"&grtts&"。<br> 您的用户名是：<font color=red>"&trim(request("username"))&"</font> 密码是：<font color=red>"&trim(request("userpassword1"))&"</font><br>"&mimawenti&"<br> 请牢记以上安全信息，欢迎您再次访问我们的网站 <a href=http://"&weburl&" target=_blank><font color=red >"©right&"</font></a><br> 若您需要咨询服务，请发邮件至<a href='mailto:"&webemail&"'>"&webemail&" </a> 。<br> (此邮件不可以直接回复，否则我们的客户服务部收不到您的来信。)</td></tr><tr><td style='line-height:14pt'><br><div align=right>"©right&"<br>"&year(date)&"年"&month(date)&"月"&day(date)&"日</div></td></tr></table>" '//信件内容
'发送邮件
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="sy998815@hotmail.com" '发信者的EMAIL
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.To = email '收信者的EMAIL
objCDOMail.Subject = title 'EMAIL的标题
objCDOMail.Body = msg 'EMAIL的内容
objCDOMail.Send
Set objCDOMail = Nothing
end sub
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function check1()
{
if(checkspace(document.userinfo.username.value)) {
document.userinfo.username.focus();
alert("用户名不能为空，请重新输入！");
return false;
}
if(checkspace(document.userinfo.username.value) || document.userinfo.username.value.length < 4) {
document.userinfo.username.focus();
alert("用户名长度不能小于4，请重新输入！");
return false;
}
if(checkspace(document.userinfo.userzhenshiname.value)) {
document.userinfo.userzhenshiname.focus();
alert("真实姓名不能为空，请重新输入！");
return false;
}
if(checkspace(document.userinfo.userpassword.value) || document.userinfo.userpassword.value.length < 6) {
document.userinfo.userpassword.focus();
alert("密码长度不能小于6，请重新输入！");
return false;
}
if(document.userinfo.userpassword.value != document.userinfo.userpassword1.value) {
document.userinfo.userpassword.focus();
document.userinfo.userpassword.value = '';
document.userinfo.userpassword1.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;
}
{
document.all.item("dde").disabled=true;
userinfo.submit();
}
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -