post_mail.asp

好用的贴吧源代码

<%
Sub mailpasword(title,body,usermail,postmail,mname,mpwd,msmtp,mwname,mpostpassword)
set jmail= server.CreateObject ("jmail.message") 
jmail.Silent = true 
jmail.Charset = "gb2312" 
JMail.ContentType = "text/html" 
jmail.Subject = title 
jmail.Body = body 
jmail.AddRecipient (usermail) 
jmail.FromName = "枫叶在线CMS管理系统" 
jmail.From = postmail '发出的邮箱 
jmail.MailServerUserName = mname 
jmail.MailServerPassWord = mpwd 
isgo = jmail.Send(msmtp) 
if isgo then 
set rs= server.createobject("adodb.recordset")
sql= "update [user] set [userpwd]='"&mpostpassword&"' where [username]='"&mwname&"'"
rs.Open sql,conn,3
response.Write("密码已经发送到指定邮箱请注意查收<br/><br/>当前操作：<br/><br/><a href='javascript:window.history.back();' class='size'>返回</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr>")
else 
response.Write("密码发送失败请联系管理员<br/><br/>当前操作：<br/><br/><a href='javascript:window.history.back();' class='size'>返回</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr>")
end if 
jmail.Close 
set jmail = nothing 
End Sub
%>