regsub.asp

类似易趣的网上竞拍系统

<%@ language="vbscript" %>
<%
lname=trim(request.form("lname"))
if len(lname)<6 or len(lname)>14 then%>
<script>
  alert("用户名填写不正确！");
  history.go(-1);
</script>
<%response.end
end if

lpass=trim(request.form("lpass"))
rpass=trim(request.form("rpass"))

if (len(lpass)<6 or len(lpass)>12) or lpass<>rpass then %>
<script>
  alert("密码填写不正确或两次输入不同！");
  history.go(-1);
</script>
<%response.end
end if

rname=trim(request.form("rname"))
if rname="" then%>
<script>
  alert("您没有填写姓名");
  history.go(-1);
</script>
<%response.end
end if

lmail=trim(request.form("lmail"))
if lmail="" then%>
<script>
  alert("您没有填写邮件地址");
  history.go(-1);
</script>
<%response.end
end if

if trim(request.form("lyear"))="" then %>
<script>
  alert("请填写出生年份！");
  history.go(-1);
</script>
<%response.end
end if

if trim(request.form("lday"))="" then %>
<script>
  alert("请填写出生日！");
  history.go(-1);
</script>
<%response.end
end if

lbirth=trim(request.form("lyear")) & "-" & trim(request.form("lmonth")) & "-" & trim(request.form("lday"))

lcode=trim(request.form("lcode"))
if len(lcode)<>15 then%>
<script>
  alert("身份证号码不正确");
  history.go(-1);
</script>
<%response.end
end if

lphone=trim(request.form("lphone"))
if lphone="" then%>
<script>
  alert("请填写电话！");
  history.go(-1);
</script>
<%response.end
end if

laddress=trim(request.form("laddress"))
if laddress="" then%>
<script>
  alert("请填写地址");
  history.go(-1);
</script>
<%response.end
end if

lcountry=trim(request.form("lcountry"))
if lcountry="" then
    lcountry="中华人民共和国"
end if

lstate=trim(request.form("lstate"))
if lstate="" then%>
<script>
  alert("请填写您所在省份");
  history.go(-1);
</script>
<%response.end
end if

lcity=trim(request.form("lcity"))
if lcity="" then%>
<script>
  alert("请填写您所在城市");
  history.go(-1);
</script>
<%response.end
end if

lzip=trim(request.form("lzip"))
if lzip="" then%>
<script>
  alert("请填写邮政编码");
  history.go(-1);
</script>
<%response.end
end if

set conn=server.createobject("ADODB.connection")
 conn.open "DBQ=" & server.MapPath("datebase.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)}"
 set rs=conn.execute("select * from userlist where 用户名='" & lname & "'")
 if rs.eof then
set com=createobject("adodb.command")
  com.activeconnection=conn
  com.commandtext="INSERT INTO userlist (姓名,用户名,密码,生日,联系地址,联系电话,邮件地址,邮编,身份证号码,国家,城市,省份) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)"
  com.Parameters.Append com.CreateParameter("t1",200, ,255 )
  com.Parameters.Append com.CreateParameter("t2",200, ,255 )
  com.Parameters.Append com.CreateParameter("t3",200, ,255 )
  com.Parameters.Append com.CreateParameter("t4",200, ,255 )
  com.Parameters.Append com.CreateParameter("t5",200, ,255 )
  com.Parameters.Append com.CreateParameter("t6",200, ,255 )
  com.Parameters.Append com.CreateParameter("t7",200, ,255 )
  com.Parameters.Append com.CreateParameter("t8",200, ,255 )
  com.Parameters.Append com.CreateParameter("t9",200, ,255 )
  com.Parameters.Append com.CreateParameter("t10",200, ,255 )
  com.Parameters.Append com.CreateParameter("t11",200, ,255 )
  com.Parameters.Append com.CreateParameter("t12",200, ,255 )
  com("t1")=rname
  com("t2")=lname
  com("t3")=lpass
  com("t4")=lbirth
  com("t5")=laddress
  com("t6")=lphone
  com("t7")=lmail
  com("t8")=lzip
  com("t9")=lcode
  com("t10")=lcountry
  com("t11")=lcity
  com("t12")=lstate
  com.execute
%>
注册完成
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "online.sh.cn"
Mail.From = ""
Mail.FromName = "网管"
Mail.AddAddress lmail
Mail.Subject = "注册确认"
Mail.Body = rname & ":" & chr(13) & "　　您好,当您收到这封信，您就可以确定，您的会员注册已经通过。" & chr(13) & "您的用户名是:" & lname & chr(13) & "您的密码：" & lpass & chr(13) & "请您一定要记住!" & chr(13) & "　　　　　　　" & date()
Mail.Send
else%>
<script>
alert("用户名已经被注册过了");
history.go(-1);
</script>
<%
response.end
end if%>