<%
on error resume next
function SendMail(mailto,subject,msg)
smtpserver=page_smtp
sender=page_email
dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail") 
JMail.LazySend = true '这个属性是将邮件放入缓冲直至发出为止，的不到任何的错误信息
JMail.Charset ="gb2312" '设定邮件的字符集，默认为"US-ASCII" 一般中文用"gb2312" 
JMail.ContentType = "text/html" '这个邮件的头设置， 默认为 "text/plain" 能设置成你需要的任何情况。 '你想发送HTML信息,改这个头文件为 "text/html"
JMail.ServerAddress =SMTPServer 'SERVER的地址。可以有很多的SERVER地址，后可跟端口号
JMail.Sender = sender'邮寄的地址
JMail.Subject = subject'邮件的标题。 
JMail.AddRecipient mailto'加入一个收件者
JMail.Body = msg 
'JMail.MailServerUserName= "kill@hncj.com" 
'JMail.MailServerPassword = "316261" 
JMail.Priority = 3'邮件的优先级，可以范围从1到5。越大的优先级约高，比如，5最高，1最低,一般设置为3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")'addheader加入一个头信息
'remote_addr发出请求的机器的IP地址 
JMail.Execute'执行邮件发送到SERVER
set jMail=nothing 
if err then '检测
SendMail=err.description
err.clear
else
SendMail="OK.邮件发送成功！！"
end if
end function
%>
























