📄 reg1.asp
字号:
<!--#include file="top.asp"-->
<!--#include file="inc/chr.asp"-->
<HTML><HEAD><TITLE><%=title%>--会员注册</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="../imge/css.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="imgb/chkinput.js"></SCRIPT>
</SCRIPT>
<script language="JavaScript" src="reg1.js"></script><script language="javascript">
<!--
function IsDigit(){
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
// -->
</script>
<SCRIPT language=JavaScript>
function CheckInput()
{
if (document.form.user.value == "")
{
alert("用户名不能为空！");
document.form.user.focus();
return false;
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.form.user.value)) {
alert("用户名填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。");
document.form.user.focus();
document.form.user.select();
return false;
}
if (document.form.pass.value == "")
{
alert("密码不能为空！");
document.form.pass.focus();
return false;
}
if (document.form.confirmPassword.value == "")
{
alert("确认密码不能为空！");
document.form.confirmPassword.focus();
return false;
}
var filter=/^\s*[.A-Za-z0-9_-]{5,15}\s*$/;
if (!filter.test(document.form.pass.value)) {
alert("密码填写不正确,请重新填写！可使用的字符为（A-Z a-z 0-9 _ - .)长度不小于5个字符，不超过15个字符，注意不要使用空格。");
document.form.pass.focus();
document.form.pass.select();
return false;
}
if (document.form.pass.value!=document.form.confirmPassword.value ){
alert("两次填写的密码不一致，请重新填写！");
document.form.pass.focus();
document.form.pass.select();
return false;
}
if (document.form.name.value == "")
{
alert("请输入您的姓名！");
document.form.name.focus();
return false;
}
if (document.form.phone.value == "")
{
alert("请输入您的联系电话！");
document.form.phone.focus();
return (false);
}
if (document.form.TPL_prov.value == "")
{
alert("请选择省份！");
document.form.TPL_prov.focus();
return false;
}
if (document.form.TPL_city.value == "")
{
alert("请选择城市名！");
document.form.TPL_city.focus();
return false;
}
if (document.form.email.value != "")
{
var filter=/^\s*([A-Za-z0-9_-]+(\.\w+)*@(\w+\.)+\w{2,3})\s*$/;
if (!filter.test(document.form.email.value)) {
alert("邮件地址不正确,请重新填写！");
document.form.email.focus();
document.form.email.select();
return false;
}
}
if (document.form.message.value != "")
{
if (inputsafe(document.form.message.value) != 1 )
{
alert("您输入的简介含有非法字符,请重新填写！");
document.form.message.focus();
document.form.message.select();
return false;
}
}
if ( document.form.message.value.length > 300 )
{
alert("您输入的简介超过了300个字符，请重新输入！");
document.form.message.focus();
return false ;
}
document.form.submit()
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR>
<style>
<!--
.style7 {
FONT-SIZE: 12px
}
.style13 {
FONT-WEIGHT: bold; FONT-SIZE: 12px
}
-->
</style>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE cellSpacing=2 cellPadding=2 width=770 align=center border=0 bgcolor="#FFFFFF">
<TBODY>
<TR>
<TD class=alltable vAlign=center align=middle height=60><TABLE width="100%" border=0>
<TBODY>
<TR>
<TD>
<DIV align=center><FONT color=#990000> </FONT><TABLE cellSpacing=0 cellPadding=0 width=520 align=center
border=0><TBODY>
<TR class=style7>
<TD>
<img border="0" src="reg.as1.jpg"></TD>
<TD width="478">
<DIV class=style13 align=center>
<p style="line-height: 200%">普通用户注册<BR>
</DIV>
<LI>
<p style="line-height: 200%">车主注册成为免费用户后,可以申请为高级用户。
<LI>
<p style="line-height: 200%">高级车辆用户资格由本网所在区域的员工对车主及资产、车辆、司机、信誉担保人信息实地调查核实后授予，具有最高的信用级别。
对成功交易具有很大的促进作用。
<LI>
<p style="line-height: 200%">带 <FONT color=red>*</FONT> 为必须填写内容栏目。<BR><BR></LI></TD></TR>
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>
<%
if UCase(changechr(Request.QueryString("action"))) = "ADDUSER" then
'*************************************************************检查是否存在相同的用户名
strusername=replace(replace(replace(replace(Request.Form("user"),"'","")," ",""),"chr(34)",""),"","")
'**************************检测用户名是否已经被注册
set rsc = server.createobject("adodb.recordset")
sqlc="select * from fyuser where user='"&strusername&"'"
rsc.open sqlc,conn,1,3
if not rsc.eof then
Response.Write "<script>alert(""对不起，用户名："&name&"已经被使用了,请换用别的用户名！"");window.location='Javascript:history.back()';</script>"
end if
rsc.close
set rsc=nothing
'*************************************检查结束
Dim rdsInfo
set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "fyuser",Conn,3,3
rdsInfo.AddNew
rdsInfo("user") =strusername
rdsInfo("pass") = changechr(Request.Form("pass"))
rdsInfo("company") =changechr(Request.Form("company"))
rdsInfo("question") =changechr(Request.Form("question"))
rdsInfo("answer") = changechr(Request.Form("answer"))
rdsInfo("name") =changechr(Request.Form("name"))
rdsInfo("qq") = changechr(Request.Form("qq"))
rdsInfo("ch") = changechr(Request.Form("ch"))
rdsInfo("phone") = changechr(Request.Form("phone"))
rdsInfo("post") = changechr(Request.Form("post"))
rdsInfo("provinceCN") = changechr(Request.Form("TPL_prov"))
rdsInfo("capitalCN") = changechr(Request.Form("TPL_city"))
rdsInfo("mobile") = changechr(Request.Form("mobile"))
rdsInfo("fax") = changechr(Request.Form("fax"))
rdsInfo("email") = changechr(Request.Form("email"))
rdsInfo("web") = changechr(Request.Form("web"))
rdsInfo("address") = changechr(Request.Form("address"))
rdsInfo("message") = changechr(Request.Form("message"))
'rdsInfo("ip") =GetIp()
rdsInfo.Update
rdsInfo.Close
set rdsInfo = nothing
Response.write("<script>alert(""注册成功，请返回首页登录！"");location.href=""index.asp"";</script>")
Response.end
else
%><TABLE cellSpacing=0 cellPadding=1 width=64 align=center border=0>
<TBODY>
<TR vAlign=top>
<TD width=750>
<form name=form action=?action=adduser method=post>
<TABLE borderColor=#cc0000 height=165 cellSpacing=1 width=739
align=center border=0>
<TBODY>
<TR>
<TD align=left colSpan=2 height=25><FONT
class=f12><B>会员注册资料填写</B></FONT></TD>
<TD align=right colSpan=2 height=25><FONT color=#990000>注：*
为必填项</FONT> </TD></TR>
<TR>
<TD align=right colSpan=4 height=10></TD></TR>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=37><FONT
color=#000000>会员登录名：</FONT></TD>
<TD class=alltable colSpan=3 height=37><INPUT class=smallInput
maxLength=20 name=user> <FONT color=#990000>*</FONT><input name="button" type="button" onClick="javascript:Checkuserlong()" value="检测用户名">
<FONT color=#666666>5-15个字符（<FONT
face=Arial>A-Z</FONT>， <FONT face=Arial>a-z</FONT>， <FONT
face=Arial>0-9</FONT>）。</FONT></TD></TR>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=37><FONT
color=#000000>单位名称：</FONT></TD>
<TD class=alltable colSpan=3 height=37><INPUT class=smallInput size=50 name=company> </TD></TR>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=13><FONT
color=#000000>密 码：</FONT></TD>
<TD class=alltable colSpan=3 height=13><INPUT class=smallInput
type=password maxLength=20 name=pass> <FONT
color=#990000>*</FONT><FONT color=#666666>4-20个字符（<FONT
face=Arial>A-Z</FONT>，<FONT face=Arial>a-z</FONT>，<FONT
face=Arial>0-9</FONT>，下划线），密码区分大小写。</FONT></TD></TR>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=28><FONT
color=#000000>确认密码：</FONT></TD>
<TD class=alltable colSpan=3 height=28><INPUT class=smallInput
type=password maxLength=20 name=confirmPassword> <FONT
color=#990000>*</FONT></TD>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=49><FONT
color=#000000>密码提示问题：</FONT></TD>
<TD class=alltable colSpan=3 height=49><INPUT class=smallInput
maxLength=20 name=question> <FONT color=#990000>*</FONT><FONT
color=#666666>（在您忘记了密码，需要找回密码的时候，我们的系统会要求您回答这个问题。）</FONT></TD></TR>
<TR vAlign=center>
<TD class=alltable align=right width=126 height=50><FONT
color=#000000>密码提示答案：</FONT></TD>
<TD class=alltable colSpan=3 height=50><INPUT class=smallInput
maxLength=20 name=answer> <FONT color=#990000>*</FONT><FONT
color=#666666>（请牢记这个答案，以便密码丢失时找回密码。）</FONT></TD></TR>
<TR>
<TD class=alltable align=center width=726 height=29 colspan="4"><STRONG>请如实填写以下表单，虚假信息将被删除</STRONG></TD>
</TR>
<TR>
<TD class=alltable align=right width=126 height=29><FONT
color=#000000>联系人：</FONT></TD>
<TD class=alltable width=301 height=29><INPUT class=smallInput
maxLength=10 name=name> <FONT color=#990000>*</FONT>
<INPUT type=radio CHECKED value=先生 name=ch> 先生 <INPUT
type=radio value=女士 name=ch> 女士</TD>
<TD width=113 height=29>
<p align="right">QQ：</TD>
<TD width=186 height=29>
<INPUT class=smallInput ONKEYPRESS="event.returnValue=IsDigit();" maxLength=25 size=20 name=qq></TD></TR>
<TR>
<TD class=alltable align=right width=126 height=29><FONT
color=#000000>电话：</FONT></TD>
<TD class=alltable width=301 height=29><FONT
color=#990000>
<INPUT class=smallInput maxLength=20 size=24 ONKEYPRESS="event.returnValue=IsDigit();" name=phone> * </FONT></TD>
<TD class=alltable align=right width=113 height=29><FONT
color=#000000>邮 编：</FONT></TD>
<TD class=alltable width=186 height=29><INPUT class=smallInput ONKEYPRESS="event.returnValue=IsDigit();" maxLength=6 size=8 name=post> </TD></TR>
<TR>
<TD align=right colSpan=4 height=30>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 id="div1">
<TBODY>
<TR>
<TD class=alltable align=right width="18%">省/市：</TD>
<TD class=alltable width="82%">
<select name=TPL_prov class="wenbenkuang" onChange="setcity();">
<option value="浙江" selected> Zhejiang 浙江</option>
<option value="安徽"> Anhui 安徽</option>
<option value="北京"> Beijing 北京</option>
<option value="重庆"> Chongqing 重庆</option>
<option value="福建"> Fujian 福建</option>
<option value="甘肃"> Gansu 甘肃</option>
<option value="广东"> Guangdong 广东</option>
<option value="广西"> Guangxi 广西</option>
<option value="贵州"> Guizhou 贵州</option>
<option value="海南"> Hainan 海南</option>
<option value="河北"> Hebei 河北</option>
<option value="黑龙江">Heilongjiang 黑龙江</option>
<option value="河南"> Henan 河南</option>
<option value="9港"> Hongkong 9港</option>
<option value="湖北"> Hubei 湖北</option>
<option value="湖南"> Hunan 湖南</option>
<option value="江苏"> Jiangsu 江苏</option>
<option value="江西"> Jiangxi 江西</option>
<option value="吉林"> Jilin 吉林</option>
<option value="辽宁"> Liaoning 辽宁</option>
<option value="澳门"> Macao 澳门</option>
<option value="内蒙古">Neimenggu 内蒙古</option>
<option value="宁夏"> Ningxia 宁夏</option>
<option value="青海"> Qinghai 青海</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -