<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="MD18.asp"-->

call head()

Call saycardd("注册邀请")
dim p
p=trim(request.querystring("p"))
if p<>"" then
dim name,mail,userid,pass,word
word=usb(request("word"))
mail=usb(request("mail"))
Dim msg
Set msg = Server.CreateObject("JMail.Message")
msg.ContentType = "multipart/mixed"
msg.CharSet = "GB2312"
msg.FromName = "你的注册邀请码"				'发件者的签名
msg.From = "yhzj_ysw@126.com"			'发件者邮箱
msg.ReplyTo = "63327560@qq.com"			'指定回复邮箱
msg.Subject = "邀请码"				'邮件主题
'msg.AddAttachment(Server.MapPath("/logo.gif"))	'附件地址，必填
msg.Body ="找回密码成功"
msg.Body =msg.Body & ""& md5 (word)&"" & vbCrLf
msg.Body =msg.Body & "请不要回复,有问题发送到bbstm@qq.com"	'邮件正文
msg.AddRecipient mail, "来自"&waptitle&""		'收件人的邮箱、签名
msg.MailServerUserName = "*****"	'自己邮箱的管理用户名
msg.MailServerPassword  = "*******"	'自己邮箱密码
msg.Send("smtp.126.com")				'发邮件服务器
msg.Close
Set msg = Nothing
response.Write "您的手机号和密码已成功发送到邮箱！<br/>"

else%>
不可逆加密算法生成邀请码<br/>
请输入数据源:<br/>
<input type="text" name="word" value="" maxlength="20"/>
<br/><anchor>[生成邀请码]<go method="post" href="y2008.asp">
<postfield name="word" value="$(word)"/>
</go></anchor><br/>
-------------<br/>
<%
word=request("word")
Response.Write "数据:"&word
Response.Write "<br/>加密<b>" & md5 (word) & "</b><br/>"
Response.Write "邮箱：<br/><input name=""mail"" maxlength=""50"" value=""@""/><br/>"
Response.Write "<anchor>发送邀请码"
Response.Write "<go href=""y2008.asp?p=1"" method=""post"" accept-charset=""utf-8"">"
Response.Write "<postfield name=""word"" value=""$(word)""/>"
Response.Write "<postfield name=""mail"" value=""$(mail)""/>"
Response.Write "</go></anchor><br/>"
end if
Response.Write "---------<br/><a href='login.asp?saytk="&saytk&"&amp;sid="&sid&"'>返回登录</a>"& chr(13)
conn.close
set conn=nothing
%><!--#include file="fanhui.asp"-->
<%call head1()%>