jmail1.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 31 行

<%
function SendMail(sendername,sender,mailto,subject,msg)
dim JMail
'on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail") 
JMail.LazySend = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/plain"
if sender="" then
	sender="[e-mail]"
end if

if sendername="" then
	sendername="龙川交友网"
end if

JMail.Sender = sender
JMail.SenderName = sendername
JMail.ReplyTo = sender
JMail.Subject = subject
JMail.AddRecipient mailto
JMail.Body = msg
JMail.AppendBodyFromFile(Server.MapPath("/Love/Inc/Mailend.txt"))
JMail.Priority = 3
JMail.SimpleLayout = true
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
JMail.Close
set JMail=nothing 
end function
%>