IDC资讯中心
<!–jmail.asp–>
<script language=vbscript runat=server>
function sendmail(smtpserver,sender,mailto,subject,msg)这个是一个函数，在程序中可以直接调用。
dim jmail
on error resume next
等待功能扩充
set jmail = server.createobject("jmail.smtpmail")
jmail.lazysend = true 这个属性是将邮件放入缓冲直至发出为止，的不到任何的错误信息
jmail.charset = "euc-kr" 设定邮件的字符集，默认为"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 ubbcode(htmlencode(msg))e-mail的主体
jmail.priority = 1邮件的优先级，可以范围从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
</script>
<%
调用说明：
strhtml = "<table width=""80%"" border=""1"">" &chr(13) &chr(10) 这里需要加上两个"
strhtml = strhtml & " <tr>" &chr(13) &chr(10) chr(13)硬回车chr(10)软回车
strhtml = strhtml & "<td align=""center"" valign=""middle"">hello~!</td>" &chr(13) &chr(10)
strhtml = strhtml & "</tr>" &chr(13) &chr(10)
strhtml = strhtml & "</table>"
smtpserver="mail.sh163.net:25"
sender="juliet@sh163.net"
subject="hey!"
msg="<html><body><center>" & strhtml & "</center></body></html>"
mailto=email收信人email
call sendmail(smtpserver,sender,mailto,subject,msg)调用函数
%>
