sq_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>duov</title>
<%
dim username,email,name,idcard,Sex,dianhua,youbian,dizhi,key,password
dim rs,sql
username=trim(request("username"))
email=request("email")
password=trim(request("password"))
name=trim(request("name"))
dianhua=trim(request("dianhua"))
dizhi=trim(request("dizhi"))
'response.write username+email+password+name+dianhua+dizhi

if username="" then
   response.write "注册不成功"
   response.end
end if

set rs=server.createobject("adodb.recordset")
sql="select * from [user]"
rs.open sql,conn,1,3
rs.addnew

response.write username+email+password+name+dianhua+dizhi

rs("username")=username
rs("password")=password
rs("name")=name
rs("email")=email
rs("dianhua")=dianhua
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()

sub mail()
dim mailbody,Jmail
mailbody="亲爱的："&username&" <br>　　您在宁波二手网上注册的帐号已经开通，您的帐号是："&username&" <br><br>您是不是为了家中多余的杂货而愁眉苦脸呢？不用急，我们帮您忙——：<a href="&web&" target=_black>"&web&"</a>为了方便大家二手商品交易，我们为您开通了二手交易市场（<a href="&web&" target=_black>"&web&"</a>）只要您家里有多余的宝贝，都可以发到那里，大家可以互相选择所喜爱的物品<br>　让您欢心而来，满意而归（<a href="&web&" target=_black>"&web&"</a>）<br>上传的二手货,品种不限，如衣服、首饰、手机卡、数码产品、团购食品、日用品等等"
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 ="二手网nbesw.com"
Jmail.Subject ="恭喜您在宁波二手网上注册成功，请查收登陆帐号！"
Jmail.AddRecipient ""&email&""
Jmail.Body = mailbody
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub
%>