jmail.asp

来自「这是一个点歌系统」· ASP 代码 · 共 40 行

<%
function SendMail(mailto,subject,msg)
dim JMail
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend 		= true
JMail.silent 		= true
JMail.Charset 		= "gb2312"
JMail.ContentType 	= "text/html"                                       
JMail.Sender 		= "[e-mail]" 
JMail.ReplyTo 		= "[e-mail]"
JMail.SenderName 	= "音乐网"
JMail.Subject 		= subject
JMail.SimpleLayout 	= true
JMail.Body 		= msg
JMail.Priority 		= 3
JMail.AppendBodyFromFile(Server.MapPath("/Love/Inc/Mailend.txt"))
JMail.AddRecipient mailto
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
SendMail = JMail.Execute()
JMail.Close
set JMail=nothing
call RecordLog(mailto,subject,msg)
end function

function RecordLog(mailto,subject,msg)
Dim LogFileName,FileObject,Out
LogFileName=Server.MapPath("../isi/maillog.txt")
Set FileObject=Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set Out=FileObject.OpenTextFile(LogFileName,8,True)
Out.WriteLine("Time     : " & Now())
Out.WriteLine("MailTo   : " & mailto)
Out.WriteLine("Subject  : " & subject)
Out.WriteLine("Contents : ")
Out.WriteLine(msg)
Out.WriteLine("----------")
Out.WriteLine()
Out.Close
end function
%>