register.asp

来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 514 行 · 第 1/2 页

<!-- #include file="setup.asp" -->
<!-- #include file="inc/function.asp" -->
<%
if conn.execute("Select FunctionOC from Functions where FunctionID=10")(0)=False Then Error 2,"对不起，本社区暂停用户注册！\n给您带来的不便，敬请原谅！",""
if Request.ServerVariables("request_method")="POST" then
if instr(Request.ServerVariables("http_referer"),Request.ServerVariables("server_name")) = 0 Then Error 1,"来源错误!",""
UserName_1=trim(Request.Form("UserName_1"))
UserSex=trim(Request.Form("UserSex"))
UserPsd1=trim(Request.Form("UserPsd1"))
UserPsd2=trim(Request.Form("UserPsd2"))
UserEmail_1=trim(Request.Form("UserEmail_1"))
UserTel=trim(Request.Form("UserTel"))
UserPsdASK=trim(Request.Form("UserPsdASK"))
UserPsdQ=trim(Request.Form("UserPsdQ"))
UserEmail_2=trim(Request.Form("UserEmail_2"))
UserCphone=trim(Request.Form("UserCphone"))
UserFax=trim(Request.Form("UserFax"))
UserAddr=trim(Request.Form("UserAddr"))
UserQQ=trim(Request.Form("UserQQ"))
UserICQ=trim(Request.Form("UserICQ"))
UserInf=trim(Request.Form("UserInfo"))
Userface=trim(Request.Form("userface"))
UserName_2=trim(Request.Form("UserName_2"))
UserWeb=Trim(Request.Form("UserWeb"))
UserCode=trim(Request.Form("UserCode"))
EMessage=""
if UserName_1="" or UserName_2="" or UserSex="" or UserPsd1="" or UserPsd2="" or UserEmail_1="" or UserTel="" or UserPsdASK="" or UserPsdQ="" then EMessage=EMessage&"个人信息不能为空！\n"
if user(UserName_1) = false then EMessage=EMessage&"姓名不能包含特殊字符！\n"
if Len(UserName_1)>30 then EMessage=EMessage&"姓名只能由15个汉字或30个英文字母组成！\n"
if IsValidEmail(UserEmail_1) = false then EMessage=EMessage&"请正确输入Email！\n"
if isnumeric(UserQQ) = flase and UserQQ<>"" then EMessage=EMessage&"QQ号码请用数字填写！\n"
if isnumeric(UserICQ) = flase and UserICQ<>"" then EMessage=EMessage&"QQ号码请用数字填写！\n"
if IsNumEric(UserCode) = Flase Then EMessage=EMessage&"请输入正确邮编！！\n"
if UserPsd1 <> UserPsd2 Then EMessage=EMessage&"两次密码输入不一样！\n"
if len(UserPsd1)<3 or len(UserPsd1) > 12 Then EMessage=EMessage&"密码长度必须为3-12个字节！\n"
if user(UserName_2) = false and UserName_2<>"" then EMessage=EMessage&"昵称不能包含特殊字符！\n"
if Len(UserName_2)>30 then EMessage=EMessage&"昵称只能由15个汉字或30个英文字母组成！\n"
if Len(UserInf)>255 then EMessage=EMessage&"个人简介不能大于 255 个字节！\n"
if Conn.Execute("Select count(Userid) From UserInfo where UserName_2 ='"&UserName_2&"'")(0)>0 Then EMessage=EMessage&"社区登陆名已经存在,请重新选择!\n"
if instr(conn.execute("Select FunctionInfo from Functions where FunctionID=21")(0),UserName_1) > 0 Then EMessage=EMessage&"此用户名拒绝注册,请重新输入!\n"
if instr(conn.execute("Select FunctionInfo from Functions where FunctionID=22")(0),UserEmail_1) > 0 Then EMessage=EMessage&"此Email拒绝注册,请重新输入!\n"
if instr(conn.execute("Select FunctionInfo from Functions where FunctionID=21")(0),UserName_2) > 0 and UserName_2 <> "" Then EMessage=EMessage&"此用户名拒绝注册,请重新输入!\n"
if instr(conn.execute("Select FunctionInfo from Functions where FunctionID=22")(0),UserEmail_2) > 0 and UserEmail_2 <> "" Then EMessage=EMessage&"此用Email拒绝注册,请重新输入!\n"
if instr(conn.execute("Select FunctionInfo from Functions where FunctionID=23")(0),Request.ServerVariables("remote_addr")) > 0 Then EMessage=EMessage&"您的IP已经被屏蔽,拒绝注册!\n"

if EMessage<>"" then Error 2,"关于错误的原因！\n\n"&EMessage,""
if Userface="随机" then
	Randomize
	Userface=fix(Rnd*180)+1
end if

UserInf=HTMLEncode(UserInf)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "UserInfo",conn,1,3
rs.addnew
rs("UserName_1")=server.htmlencode(UserName_1)
rs("UserSex")=server.htmlencode(UserSex)
rs("UserPsd")=Encrypt(UserPsd1)
rs("UserEmail_1")=server.htmlencode(UserEmail_1)
rs("UserTel")=server.htmlencode(UserTel)
rs("UserPsdASK")=server.htmlencode(UserPsdASK)
rs("UserPsdQ")=server.htmlencode(UserPsdQ)
rs("UserEmail_2")=server.htmlencode(UserEmail_2)
rs("UserCphone")=server.htmlencode(UserCphone)
rs("UserFax")=server.htmlencode(UserFax)
rs("UserAddr")=server.htmlencode(UserAddr)
rs("UserWeb")=server.htmlencode(UserWeb)
rs("UserQQ")=UserQQ
rs("UserICQ")=UserICQ
rs("UserInfo")=server.htmlencode(UserInf)
rs("UserHead")=Userface
Rs("UserCode")=UserCode
rs("UserName_2")=server.htmlencode(UserName_2)
rs("UserIP")=Request.ServerVariables("remote_addr")
rs.update
ID=Rs("UserID")
	Response.Cookies("User")=ID												'用户ID
	Response.Cookies("password")=server.htmlencode(UserPsd1)							'用户密码
	Response.Cookies("Product")=1											'用户类型
conn.execute("Update Functions Set FunctionInfo = '"&server.htmlencode(UserName_2)&"' where FunctionID=5")
Error 3,"恭喜你!你已经成功注册!","defau.asp"
rs.close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.end
end if
%>
<script>
function VerifyInput(){
	if (document.form.UserName_1.value == ""){
	alert("请输入您的真实姓名");
	document.form.UserName_1.focus();
	return false;
	}
	if (document.form.UserName_2.value == ""){
	alert("请输入您的登陆名");
	document.form.UserName_2.focus();
	return false;
	}

	if (form.UserPsd1.value == "" ){
	alert("请输入密码");
	document.form.UserPsd1.focus();
	return false;
	}
	if (form.UserPsd2.value == "" ){
	alert("请再输入一次密码");
	document.form.UserPsd2.focus();
	return false;
	}
	if (document.form.UserPsd1.value != document.form.UserPsd2.value){
	alert("两遍输入的口令不一致");
	document.form.UserPsd1.focus();
	return false;
	}
	if (document.form.UserEmail_1.value == ""){
	alert("您的Email没有输入!");
	document.form.UserEmail_1.focus();
	return false;
	}
	if (document.form.UserTel.value == ""){
	alert("请最少输入一个常用联系电话!");
	document.form.UserEmail_1.focus();
	return false;
	}
	if (document.form.UserSex.value == ""){
	alert("请选择您的性别！");
	document.form.UserSex.focus();
	return false;
	}
	if (document.form.UserPsdASK.value == ""){
	alert("请选择您的密码提示问题");
	document.form.UserPsdASK.focus();
	return false;
	}
	if (document.form.UserPsdQ.value == ""){
	alert("请输入您密码提示问题的答案");
	document.form.UserPsdQ.focus();
	return false;
	}
	if (document.form.UserAddr.value == ""){
	alert("请输入详细地址");
	document.form.UserPsdQ.focus();
	return false;
	}

return true;
}
</script>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=css.css rel=stylesheet>
<body topmargin=0>
<%top
table()%>
<center>
<form method="POST" name="form" onsubmit="return VerifyInput();">
<table border="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#BBD0EC" cellpadding="0" bgcolor="#BBD0EC">
  <tr>
    <td width="100%">
<table width="100%" cellspacing=1 cellpadding=4 border=0>
<tr>
<td height="20" align="center" colspan="2" background=images/title_sub.gif width="740">
<b>注册新用户资料</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" height="25" valign="middle" align="left" width="740"><b>&nbsp;<img src="images/2.gif" width="60" height="9">个人信息</b>（以下内容
必须如实填写）</td>
</tr>


<tr>
<td height="28" valign="top" bgcolor="#ECF5FF" width="291"> 
<p align="right"><b>社区登陆名：</b></td>
<td height="28" valign="top" bgcolor="#ECF5FF" width="458"> &nbsp;
<input type="text" name="UserName_2" size="20"  maxlength="35"></td>
</tr>
<tr>
<td bgcolor=#ECF5FF height="5" align="right" valign="middle" width="290"><b>真实姓名：</b></td>
<td bgcolor=#ECF5FF height="5" align="left" valign="middle" width="459">
&nbsp;
<input type="text" name="UserName_1" size="20" maxlength="12">&nbsp;
</td>
</tr>
<tr>
<td bgcolor=#f2f8ff height="2" align="right" valign="middle" width="290"><b>性别：</b></td>
<td bgcolor=#f2f8ff height="2" align="left" valign="middle" width="459">
&nbsp; <select name="UserSex" size="1">
<option selected>选择</option>
<option value="true">男</option>
<option value="false">女</option>
</select></td>
</tr>

<tr>
<td bgcolor=#f2f8ff height="2" align="right" valign="middle" width="290"><b>密码：</b></td>
<td bgcolor=#f2f8ff height="2" align="left" valign="middle" width="459">
&nbsp;
<input type="password" name="UserPsd1" size="20" maxlength="16">
</td>
</tr>
<tr bgcolor="#ECF5FF">
<td height="2" align="right" valign="middle" width="290"><b>确认密码：</b><br>请与您的密码保持一致</td>
<td height="2" align="left" valign="middle" width="459" bgcolor="#ECF5FF">
&nbsp;
<input type="password" name="UserPsd2" size="20"  maxlength="16">
</td>
</tr>

<tr>
<td bgcolor=#f2f8ff height="2" align="right" valign="middle" width="290"><b>Email地址
：<br>
</b>(安全邮件地址)</td>
<td bgcolor=#f2f8ff height="2" align="left" valign="middle" width="459">
&nbsp;
<input type="text" name="UserEmail_1" size="40"  maxlength="50">
</td>
</tr>
<tr>
<td bgcolor=#f2f8ff height="2" align="right" valign="middle" width="290"><b>
联系电话： </b></td>
<td bgcolor=#f2f8ff height="2" align="left" valign="middle" width="459">
&nbsp;
<input type="text" name="UserTel" size="40"  maxlength="40"></td>
</tr>
<tr bgcolor="#ECF5FF">
<td height="2" align="right" valign="middle" width="290"><b>密码提示问题：</b></td>
<td height="2" align="left" valign="middle" width="459"> &nbsp; 
<select name="UserPsdASK" size="1">
<option value>—— 请选择问题 ——</option>
<option value="你在哪所中学读初中？">你在哪所中学读初中？</option>
<option value="你的宠物叫什么名字？">你的宠物叫什么名字？</option>
<option value="你最喜欢的音乐是？">你最喜欢的音乐是？</option>
<option value="你最喜欢的球队是？">你最喜欢的球队是？</option>
<option value="你最喜欢的书是？">你最喜欢的书是？</option>
<option value="你最好的朋友是？">你最好的朋友是？</option>
<option value="你的出生年月是？">你的出生年月是？</option>
<option value="你爱人的名字是？">你爱人的名字是？</option>
<option value="你父亲的名字是？">你父亲的名字是？</option>
<option value="你母亲的名字是？">你母亲的名字是？</option>
</select></td>
</tr>
<tr bgcolor="#ECF5FF">
<td height="2" align="right" valign="middle" width="290"><b>密码提示答案：</b></td>
<td height="2" align="left" valign="middle" width="459"> &nbsp;
<input type="text" name="UserPsdQ" size="40"  maxlength="50">
</td>
</tr>
<tr>
<td height="28" valign="top" bgcolor="#ECF5FF" width="291" align="right"> <b>
详细地址：</b></td>
<td height="28" valign="top" bgcolor="#ECF5FF" width="458"> &nbsp;
<input type="text" name="UserAddr" size="40"  maxlength="100"></td>
</tr>
<tr>
<td height="28" valign="top" bgcolor="#ECF5FF" width="291" align="right"> <b>
邮政编码：</b></td>