<%
sub mail()
dim mailbody,Jmail
mailbody="欢迎您,"&username&"!<br>恭喜您成为<a target=_blank href="&web&">"&title&"</a>的尊敬会员！<br>您的登陆帐号："&username&"<br>您的登陆密码："&password&"<br><br>登陆地址为：<a target=_blank href="&web&">"&web&"</a><br>["&title&"]打造"&city&"最大的二手信息发布平台"
161行 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 =""&title&"管理员"
Jmail.Subject ="恭喜你注册成功，请查收登陆帐号！"
Jmail.AddRecipient ""&email&""
Jmail.Body = mailbody
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub
set rs=nothing
set rs1=nothing
%>
