regchk_2.asp

重庆二手网

<!--#include file=conn.asp-->
<!--#include file=err.asp-->
<!--#include file=ipt.asp-->
<!--#include file=key.asp-->
<!--#include file=md5.asp-->
<!--#include file=mail.asp-->
<!--#include file=config.asp-->
<title>会员注册</title>
<%
dim username,email,name,idcard,Sex,dianhua,youbian,dizhi,key
dim rs,sql
username=trim(request("username"))
email=request("email")
name=trim(request("name"))
idcard=trim(request("idcard"))
Sex=trim(request("Sex"))
dianhua=trim(request("dianhua"))
youbian=trim(request("youbian"))
dizhi=trim(request("dizhi"))
key=gen_key(10)
if dizhi="" or name="" or idcard="" or dianhua="" or youbian="" then
call errijob(4)
response.end
end if
chkijob(username)
chkijob(name)
if nothaveChinese(username)=false then
call errijob(3)
response.end
end if
if IsValidEmail(email)=false then
call errijob(1)
response.end
end if
if not isnumeric(youbian) or len(youbian)<>6 then
call errijob(5)
response.end
end if
if not isnumeric(idcard) or len(idcard)<15 or len(idcard)>18 then
call errijob(6)
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&username&"' or email='"&email&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("username")=username
rs("password")=md5(key)
rs("name")=name
rs("email")=email
rs("idcard")=idcard
rs("Sex")=Sex
rs("dianhua")=dianhua
rs("youbian")=youbian
rs("dizhi")=dizhi
rs("zcdata")=now()
rs("a")=z_a
rs("b")=z_b
rs("c")=z_c
rs("d")=z_d
rs("jf")=jf_1
rs("hb")=z_hb
rs.update
response.write "<li>恭喜你！注册成功了！"
response.write "<li>我们同时将密码发送到了|<b><font color=""#ff0000"">"&email&"</font></b>|，请收取密码后登陆。"
call mail()
else
 if trim(rs("email"))=email then
 call errijob(23)
 response.end
 end if
 if trim(rs("username"))=username then
 call errijob(22)
 response.end
 end if
 call errijob(24)
 response.end
end if
sub mail()
dim mailbody,Jmail
mailbody="你的登陆帐号："&username&" <br>你的登陆密码："&key&"<br><br>登陆地址为：<a href="&web&">"&web&"</a>"
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
Jmail.Silent =true
JMail.ContentType = "text/html"
Jmail.Priority = 3
Jmail.MailServerUserName = mailname
Jmail.MailServerPassword = mailpass
Jmail.From = mailform
Jmail.FromName ="管理员"
Jmail.Subject ="恭喜你注册成功，请查收登陆帐号！"
Jmail.AddRecipient ""&email&""
Jmail.Body = mailbody
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub
%>