aspmail.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="HMconnection.asp"-->
<!--#include file="MD5/md5.asp"-->
<% 
 dim aspMail,aspRS,userName,userEmail
 userName=trim(request.Form("username"))
 userEmail=trim(request.Form("Email"))
 if userName="" or userEmail="" then 
  response.Write("<script language='JavaScript'>alert('对不起，您的用户名或Email为空！');</script>")
 else
  set aspRS=server.createobject("adodb.recordset")
  aspRS.open "select UserName,Email,PassWord from User where UserName='"&userName&"'",conn,1,3
  if (not aspRS.eof) and aspRS("Email")=userEmail then
    dim rndRS1,rndValue,KeyWord,KWmd5
	set rndRS1=server.createobject("adodb.recordset")
	rndRS1.open "select * from RndRoot",conn,1,3
	rndValue=rndRS1("totalValue")
	KeyWord=Int((1000000*Rnd)+rndValue)
	rndRS1("totalValue")=Int((555555*Rnd)+KeyWord)
	rndRS1.update
	rndRS1.close
	set rndRS1=nothing
	KWmd5=md5(KeyWord)
	aspRS("PassWord")=KWmd5
	aspRS.update
    Set aspMail = Server.CreateObject("CDONTS.NewMail")
    aspMail.TO =userEmail 
    aspMail.From = "[e-mail]"
    aspMail.Subject = "顶级影视：找回密码！"
    aspMail.Body = "尊敬的 "&userName&" 先生/小姐："&chr(10)&chr(10)&"      您在顶级影视的用户名为："&_
	""&userName&"       密码为："&KeyWord&chr(10)&chr(10)&"---------------------------------------------------------顶级影视"&_
	""&chr(10)&"--------------------------------------------------"&now()
    aspMail.Send
   end if
  aspRS.close
  set aspRS=nothing
  set conn=nothing
  response.Write("<script language='JavaScript'>alert('如果您所输入的用户名和Email是正确的，\n我们已经将用户名和密码发到您的Email！');history.go(-2);</script>")
 end if
%>