📄 user_reg.asp
字号:
<td height="40" valign="middle" align="center" colspan="3"><b>注意：带有<font color=#ff0000>*</font>号为必须填写的</b></td>
</tr>
<form action="?action=maosin_chk" method="post" name="check" id="check">
<tr class="tdBC">
<td width="70" height="25" valign="middle" align="right">用 户 名：</td>
<td valign="middle" colspan="2"> <input name="username" class="wenbenkang" type="text" id="username" size="16" maxlength="12">
<font color=ff0000>*</font> 3-12字符，支持中文,不支持特殊符号如:*%#!-&%$
<input name="checkusername" style="padding:1px;width:80px;color:#ff0000;background-color:#f8f8f8;border:1px solid #dddddd;" type="button" id="checkusername" value="检查用户名" onClick="checkuser()"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">登陆密码：</td>
<td valign="middle" colspan="2"> <input name="password1" class="wenbenkang" size="16" type="password" id="password1" maxlength="16">
<font color=ff0000>*</font> 8-16位</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">确认密码：</td>
<td valign="middle" colspan="2"> <input name="password2" class="wenbenkang" size="16" type="password" id="password2" maxlength="16">
<font color=ff0000>*</font> 请再输一遍确认</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">密码问题：</td>
<td valign="middle" colspan="2"> <input name="question" class="wenbenkang" type="text" id="question" size="20" maxlength="40">
<font color=ff0000>*</font> 忘记密码的提示问题;最多40个字符</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">问题答案：</td>
<td valign="middle" colspan="2"> <input name="answer" class="wenbenkang" type="text" id="answer" size="20" maxlength="20">
<font color=ff0000>*</font> 密码问题答案,用于取回密码;最多20个字符</td>
</tr>
<tr class="tdBC">
<td height="28" valign="middle" align="right">头 像：</td>
<td valign="middle" width="100">
<select name="face" id="face" onChange="document.images['image'].src='images/userface/'+options[selectedIndex].value+'.gif';">
<script language="javascript">
for(var i=1;i<25;i++){
document.write("<option value="+i+">头像"+i+"</option>");
}
</script>
</select> —→</td>
<td width="300" rowspan="3" valign="top" align="left"><img src="images/userface/1.gif" border="1" alt="用户头像" name="image" width="75" height="75" id="image"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">性 别：</td>
<td valign="middle" width="100">
<input type="radio" name="sex" id="sex0" value="男" checked><label for="sex0">师哥</label>
<input type="radio" name="sex" id="sex1" value="女"><label for="sex1">美女</label>
</td>
</tr>
<tr class="tdBC">
<td height="26" valign="middle" align="right">用 户QQ：</td>
<td valign="middle" width="100"> <input name="userqq" class="wenbenkang" type="text" id="userqq" size="12" maxlength="11"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">电子邮箱：</td>
<td valign="middle" colspan="2"> <input name="email" class="wenbenkang" type="text" id="email" size="30"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">个人主页：</td>
<td valign="middle" colspan="2"> <input name="homepage" class="wenbenkang" type="text" id="homepage" value="http://" size="30"> http://www.maosin.com</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">联 系 人：</td>
<td valign="middle" colspan="2"> <input name="linkman" class="wenbenkang" type="text" id="linkman" size="30"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">联系电话：</td>
<td valign="middle" colspan="2"> <input name="tel" class="wenbenkang" type="text" id="tel" size="30"> 格式如：0770-3270000</td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">联系地址：</td>
<td valign="middle" colspan="2"> <input name="address" class="wenbenkang" type="text" id="address" size="30"></td>
</tr>
<tr class="tdBC">
<td height="25" valign="middle" align="right">邮政编码：</td>
<td valign="middle" colspan="2"> <input name="code" class="wenbenkang" type="text" id="code" size="8"> 538021</td>
</tr>
<tr align="center" valign="middle" class="tdBC">
<td height="25" colspan="3"> <input name="ok" type="submit" id="ok" value="注册" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'">
<input type="reset" name="Submit2" value="重置" class="but1" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'"></td>
</tr>
</form>
<form name="checkform" action="checkusername.asp" method="post" target="checkusername">
<input type="hidden" name="username" value=""></form>
</table>
<br/>
<%End Sub
Sub check()
if userSystemOpen=0 or userSystemOpen=1 then
showmsg "对不起，本站现暂停新用户注册！","出错信息"
exit sub
end if
If Request.form("ok")<>"" Then
dim userName,passWord1,passWord2,question,answer,face,sex,qq,linkman,tel,address,email,homepage,code,msgStr,errormsg
username=trim(Request.form("username"))
password1=trim(Request.form("password1"))
password2=trim(Request.form("password2"))
question=trim(Request.form("question"))
answer=trim(Request.form("answer"))
face=trim(Request.form("face"))
sex=trim(Request.form("sex"))
qq=trim(Request.form("userqq"))
linkman=trim(Request.form("linkman"))
tel=trim(Request.form("tel"))
address=trim(Request.form("address"))
email=trim(Request.form("email"))
homepage=trim(Request.form("homepage"))
code=trim(Request.form("code"))
if username="" then
showmsg "用户名不能为空","出错信息"
exit sub
elseif strLength(username)<3 or len(username)>12 then
showmsg "用户名不能小于 <font color=""#ff0000"">3</font> 个字符或者大于 <font color=""#ff0000"">12</font> 个字符","出错信息"
exit sub
end if
if chkIsAvaStr(username)=false then
showmsg "用户名含有非法字符","出错信息"
exit sub
end if
if userIsEnable(username)=false then
showmsg "很抱歉，<font color=""#ff0000"">"&username&"</font> 用户名已被禁用或已有人使用了，请换其它试试看","用户名无效"
exit sub
end if
if conn.execute("select count(user_id) from ms_user where user_name='"&lcase(chkFormStr(username))&"'")(0)<>0 then
showmsg "很抱歉，<font color=""#ff0000"">"&username&"</font> 用户名已有人使用了，请换其它试试看","用户名无效"
exit sub
end if
if ms_submit=0 then
if chkIsOut=false then
showmsg "<font color=""#ff0000"">茂盛系统返回如下信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
exit sub
end if
end if
if password1=""then
errormsg=errormsg&"<li>密码不能为空</li>"
elseif strLength(password1)>20 then
errormsg=errormsg&"<li>密码长度最长不能大于 <font color=""#ff0000"">20</font> 个字符</li>"
elseif password1<>password2 then
errormsg=errormsg&"<li>两次输入的密码不正确!</li>"
end if
if question="" then
errormsg=errormsg&"<li>密码问题不能为空</li>"
elseif strLength(question)>40 then
errormsg=errormsg&"<li>密码问题最多不能大于 <font color=""#ff0000"">40</font> 个字符</li>"
end if
if answer="" then
errormsg=errormsg&"<li>问题答案不能为空</li>"
elseif strLength(answer)>20 then
errormsg=errormsg&"<li>问题答案最多不能大于 <font color=""#ff0000"">20</font> 个字符</li>"
end if
if qq<>"" then
if isInteger(qq)=false then
errormsg=errormsg&"<li>填写的QQ号不正确</li>"
elseif (len(qq)<5 or len(qq)>10) then
errormsg=errormsg&"<li>填写的QQ号位数不正确</li>"
end if
end if
if email<>"" then
if IsValidEmail(email)=false then
errormsg=errormsg&"<li>电子邮件填写不正确</li>"
elseif strLength(email)>50 then
errormsg=errormsg&"<li>电子邮件地址最多不能大于 <font color=""#ff0000"">50</font> 个字符</li>"
end if
end if
if strLength(homepage)>100 then
errormsg=errormsg&"<li>主页地址最多不能大于 <font color=""#ff0000"">50</font> 个字符</li>"
end if
if strLength(linkman)>20 then
errormsg=errormsg&"<li>联系人最多不能大于 <font color=""#ff0000"">20</font> 个字符</li>"
end if
if strLength(address)>50 then
errormsg=errormsg&"<li>联系地址最多不能大于 <font color=""#ff0000"">50</font> 个字符</li>"
end if
if strLength(tel)>15 then
errormsg=errormsg&"<li>电话号码最多不能大于 <font color=""#ff0000"">15</font> 个字符</li>"
end if
if strLength(code)>6 then
errormsg=errormsg&"<li>邮政编码最多不能大于 <font color=""#ff0000"">6</font> 个字符</li>"
end if
if errormsg<>"" then
showmsg errormsg,"出错信息"
exit sub
end if
username=chkFormStr(username)
password1=chkFormStr(password1)
question=chkFormStr(question)
answer=chkFormStr(answer)
face=chkFormStr(face)
sex=chkFormStr(sex)
qq=chkFormStr(qq)
linkman=chkFormStr(linkman)
tel=chkFormStr(tel)
address=chkFormStr(address)
email=chkFormStr(email)
homepage=chkFormStr(homepage)
code=chkFormStr(code)
if isNumeric(moneyNum)=false then
moneyNum=0
end if
if isNumeric(pointNum)=false then
pointNum=0
end if
if userSystemOpen=2 then
islock=1
msgStr="恭喜恭喜，新用户 [<font color=""#ff0000"">"&username&"</font>] 注册成功，正在审核中……。<br/>请耐心等待,我们会给您激活的。谢谢您的注册！"
else
islock=0
msgStr="恭喜恭喜，注册成功。<br>您现在可以用 [<font color=""#ff0000"">"&username&"</font>] 进行<a href=""logon.asp"">登录</font>，谢谢您的注册！"
end if
sql="insert into ms_user(user_name,user_password,user_question,user_answer,sex,email,homepage,qq,linkman,face,address,postalcode,tel,user_type,reg_date,last_ip,logon_num,islock,user_money,user_point) "
sql=sql&"values('"&Lcase(username)&"','"&md5(password1)&"','"&question&"','"&md5(answer)&"','"&sex&"','"&email&"','"&homepage&"','"&qq&"','"
sql=sql&linkman&"','"&face&"','"&address&"','"&code&"','"&tel&"',"&userGrage&",#"&Now()&"#,'"&getIp()&"',0,"&islock&","&moneyNum&","&pointNum&")"
conn.Execute(sql)
if regIsSend=1 then
conn.execute "insert into ms_sms(send_user,incept_user,sms_title,sms_content,sms_date,sms_isSend,sms_isSystem) values('系统发送','"&Lcase(username)&"','系统短信','"&replace(msgContent,"nameTag",username)&"',#"&now&"#,1,1)"
end if
showmsg msgStr,"恭喜，注册成功"
exit sub
End If
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -