📄 userpersreg.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<html>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<Script language="JavaScript">
<!--
function check_form(){
if (form_user.login_name.value==""){
alert("请输入用户名！");
form_user.login_name.focus();
return false;
}
if (form_user.last_name.value==""){
alert("请输入您的姓氏！");
form_user.last_name.focus();
return false;
}
if (form_user.first_name.value==""){
alert("请输入您的名字！");
form_user.first_name.focus();
return false;
}
if (form_user.country.value==""){
alert("请输入国家代码！");
form_user.country.focus();
return false;
}
if (form_user.province.value==""){
alert("请输入省份！");
form_user.province.focus();
return false;
}
if (form_user.city.value==""){
alert("请输入城市！");
form_user.city.focus();
return false;
}
if (form_user.address.value==""){
alert("请输入地址！");
form_user.address.focus();
return false;
}
if (form_user.zipcode.value==""){
alert("您的邮政编码无效！");
form_user.zipcode.focus();
return false;
}
if (form_user.zipcode.value.length!=6){
alert("您的邮政编码无效！");
form_user.zipcode.focus();
return false;
}
if (form_user.fax.value==""){
alert("请输入传真号码！");
form_user.fax.focus();
return false;
}
if (form_user.tel.value==""){
alert("请输入电话号码！");
form_user.tel.focus();
return false;
}
if (form_user.email.value==""){
alert("请输入EMAIL！");
form_user.email.focus();
return false;
}
return true;
}
-->
</script>
<body leftmargin="0" topmargin="0">
<%
if request.QueryString("cmd")="reg" then
dim i,intNum,intUpper,intLower,intRand,strPartPass,genPassword
genPassowrd = "abc"
Randomize
For i = 1 to 8
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
response.write intRand&"-"&isnumeric(intRand)&"<br>"
select case intRand
case 1
'response.write intNum&"-"&isnumeric(intNum)&"<br>"
strPartPass = Chr(intNum)
case 2
strPartPass = Chr(intUpper)
case 3
strPartPass = Chr(intLower)
End select
genPassword = genPassword & strPartPass
Next
randompassword = genPassword
login_name=server.htmlencode(request.form("login_name"))
Set rs0 = Server.CreateObject("ADODB.Recordset")
sql0="select * from userentreg where login_name='"& login_name &"'"
rs0.open sql0,conn,3,3
if not rs0.eof then
response.write"<div align=center class=f1>此用户已存在，请另选一用户名注册！<br><a href=javascript:history.go(-1)>点此重新注册</a></div>"
else
Set rs0 = Server.CreateObject("ADODB.Recordset")
sql0="select * from userpersreg where login_name='"& login_name &"'"
rs0.open sql0,conn,3,3
if not rs0.eof then
response.write"<div align=center class=f1>此用户已存在，请另选一用户名注册！<br><a href=javascript:history.go(-1)>点此重新注册</a></div>"
else
last_name=server.htmlencode(request.form("last_name"))
first_name=server.htmlencode(request.form("first_name"))
country=server.htmlencode(request.form("country"))
province=server.htmlencode(request.form("province"))
city=server.htmlencode(request.form("city"))
zipcode=server.htmlencode(request.form("zipcode"))
fax=server.htmlencode(request.form("fax"))
tel=server.htmlencode(request.form("tel"))
email=server.htmlencode(request.form("email"))
address=server.htmlencode(request.form("address"))
idtype=server.htmlencode(request.form("idtype"))
idcode=server.htmlencode(request.form("idcode"))
birthyear=server.htmlencode(request.form("birthyear"))
birthmonth=server.htmlencode(request.form("birthmonth"))
birthday=server.htmlencode(request.form("birthday"))
sex=server.htmlencode(request.form("sex"))
marriage=server.htmlencode(request.form("marriage"))
career=server.htmlencode(request.form("career"))
salary=server.htmlencode(request.form("salary"))
know_from=server.htmlencode(request.form("know_from"))
if login_name="" or last_name="" or country="" or first_name="" or province="" or city="" or zipcode="" or fax="" or tel="" or email="" or address="" then
response.Write("<table width=50% height=50 align=center bgcolor=#e0e0e0><tr><td><div align=center><br>请 完 整 填 写 所 有 必 填 项 目！<br><br><a href=javascript:history.go(-1)>点此回上页</a></div></td></tr></table>")
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from userpersreg"
rs.open sql,conn,3,3
rs.addnew
rs("login_name")=login_name
rs("last_name")=last_name
rs("first_name")=first_name
rs("password")=randompassword
rs("country")=country
rs("province")=province
rs("city")=city
rs("zipcode")=zipcode
rs("fax")=fax
rs("tel")=tel
rs("email")=email
rs("address")=address
rs("idtype")=idtype
rs("idcode")=idcode
rs("birthyear")=birthyear
rs("birthmonth")=birthmonth
rs("birthday")=birthday
rs("sex")=sex
rs("marriage")=marriage
rs("career")=career
rs("salary")=salary
rs("know_from")=know_from
rs("date")=date()
rs.update
rs.close
set rs=nothing
end if
response.Redirect("inc/aspsend2.asp?n="&login_name&"&p="&randompassword&"&e="&email&"")
end if
end if
rs0.close
set rs0=nothing
end if
%>
<div align="center">
<center>
<TABLE border=1 cellPadding=0 cellSpacing=0 width="760" bordercolor="#6687BA" style="border-collapse: collapse">
<TBODY>
<TR>
<TD align=middle vAlign=top width=174>
<BR> <P> </P></TD>
<TD align=middle vAlign=top>
<TABLE width="100%" height="30" border=0
cellPadding=0 cellSpacing=0 bgcolor="#EAF1FB" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD> <TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="98%">
<TBODY>
<TR>
<TD><A href="index.asp">主页</A>->个人用户注册</TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=163> </TD>
</TR>
</TBODY>
</TABLE><table width="100%" height="60" border="0" cellpadding="0" cellspacing="0" bgcolor="#f1f1f1">
<tr>
<td><iframe frameborder=0 height=100% name=ad scrolling=no
src="lookmember.asp"
width="100%"></iframe></td>
</tr>
</table>
<FORM action=userpersreg.asp?cmd=reg method=post name=form_user id="form_user"
onsubmit="return check_form()">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width=525>
<INPUT name=module type=hidden value=userpers_reg>
<INPUT name=parentid type=hidden>
<TBODY>
<TR>
<TD vAlign=top width=60><B>必填项：</B></TD>
<TD> <TABLE align=center border=0 cellPadding=0 cellSpacing=0
width=472>
<TBODY>
<TR>
<TD><B>个人用户注册</B> (带*号为必填) <BR>
<BR>
<div align="center">
<center>
<TABLE border=0 cellPadding=3 cellSpacing=0
width=472 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD vAlign=top width=85>* 用户名：</TD>
<TD><INPUT name=login_name size=30> <BR>
<span class="f1">合法的用户名应该是0-9，a-z，A-Z
之间的英文或者数字以及下划线组成，请不要用汉字或者其他符号申请。举例：Xiaoying17
</span> </TD>
</TR>
<TR>
<TD height=25 width=85>* 姓：</TD>
<TD><INPUT name=last_name size=30> </TD>
</TR>
<TR>
<TD height=25 width=85>* 名：</TD>
<TD><INPUT name=first_name size=30> </TD>
</TR>
<TR>
<TD height=25 width=85>* 国家：</TD>
<TD><INPUT maxLength=2 name=country size=10
value=CN>
(输入两位国家英文代码) </TD>
</TR>
<TR>
<TD height=25 width=85>* 省份：</TD>
<TD><SELECT name=province>
<OPTION selected
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -