<%if request.Form("up_buut_img")="找回密码" then%> <% emal=request.Form("ema") yzm=request.Form("yzm") Yzms=request.Form("Yzms") if emal="" or yzm="" then response.Write("") response.End() end if if cint(yzm)<>cint(Yzms) then response.Write("") response.End() end if set rs_c=server.CreateObject("adodb.recordset") sql_c="select * from photo_user where user_mail ='" & emal & "' " rs_c.Open sql_c,conn,1,3 if rs_c.recordcount=0 then response.Write("") response.End() else '发送邮件代码---------------------------------------------------------------------------------------------------------- dim jmail set jmail=server.createobject("Jmail.message") jmail.silent=true jmail.charset="gb2312" jmail.fromname= "邮件发送系统" '邮件标题 jmail.from= "1348527744@qq.com" '发件人邮箱 jmail.addrecipient(""&rs_c("user_mail")&"") '收件人邮箱 jmail.subject="安福相册系统密码找回邮件" '该值可以从数据库或表单中取值 jmail.body="您当前的用户名为"&rs_c("user_name")&",密码为"&rs_c("user_pass")&"
----安福相册"'发件内容 jmail.mailserverusername= "1348527744@qq.com" '发件人邮箱帐号 jmail.mailserverpassword= "fanjfricvubjiffj" '发件人邮箱密码 jmail.maildomain="mail.qq.com" 'mail邮件发送服务器域名 sendok=jmail.send("smtp.qq.com") 'smtp服务器名称 if sendok then response.Write "" else response.Write "" end if end if rs.close conn.close 'end----------------------------------------------------------------------------------------------------------------------- %> <%end if%>