📄 userentreg.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<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.company_name.value==""){
alert("请输入您的公司名！");
form_user.company_name.focus();
return false;
}
if (form_user.linkman.value==""){
alert("请输入联系人！");
form_user.linkman.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
company_name=server.htmlencode(request.form("company_name"))
country=server.htmlencode(request.form("country"))
linkman=server.htmlencode(request.form("linkman"))
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"))
trade=server.htmlencode(request.form("trade"))
employees=server.htmlencode(request.form("employees"))
introduce=server.htmlencode(request.form("introduce"))
website=server.htmlencode(request.form("website"))
know_from=server.htmlencode(request.form("know_from"))
if login_name="" or company_name="" or country="" or linkman="" 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 userentreg"
rs.open sql,conn,3,3
rs.addnew
rs("login_name")=login_name
rs("company_name")=company_name
rs("password")=randompassword
rs("country")=country
rs("linkman")=linkman
rs("province")=province
rs("city")=city
rs("zipcode")=zipcode
rs("fax")=fax
rs("tel")=tel
rs("email")=email
rs("trade")=trade
rs("employees")=employees
rs("address")=address
rs("introduce")=introduce
rs("website")=website
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%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<iframe frameborder=0 height=58 name=ad scrolling=no
src="lookmember.asp"
width="100%" marginheight="15" marginwidth="10"></iframe></td>
</tr>
</table>
<FORM action=userentreg.asp?cmd=reg method=post name=form_user
onsubmit="return check_form()">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0
width=525>
<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=86>* 用户名：</TD>
<TD width=371><INPUT name=login_name size=30>
<BR>
<span class="f1">合法的用户名应该是0-9，a-z，A-Z
之间的英文或者数字以及下划线组成，请不要用汉字或者其他符号申请。注册前请先检测用户名是否可用。</span>
</TD>
</TR>
<TR>
<TD height=25 width=86>* 公司名：</TD>
<TD width=371><INPUT name=company_name size=40>
</TD>
</TR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -