ASP使用JMail发送邮件

前天写了个《php使用JMail发送邮件》的例子，今天偶然用到了邮件的发送，于是用asp翻写了一下：


程序代码
<%

dim jmail : set jmail=Server.CreateObject("jmail.message")

'屏蔽例外错误，静默处理

jmail.silent=true

'编码必须设置，否则中文会乱码

jmail.charset="gb2312"

'发信人邮件地址和名称，能自定义，可以和邮件发送账号不同

jmail.from="admin@domain.com"

jmail.fromname="webmaster"

'添加多个邮件接受者

jmail.addRecipient("xxxx@qq.com")

'邮件主题和正文信息

jmail.subject="asp+jmail测试邮件"

jmail.body="asp+jmail测试发送邮件正文"

'发信邮件账号和密码

jmail.mailServerUserName="xxxx@sogou.com"

jmail.mailServerPassword="123456"

'发送的时候附带SMTP发信服务器地址

dim retval : retval=jmail.send("smtp.mail.sogou.com")

if err.number<>0 then err.clear : Response.Write "ERROR"

if retval=true then Response.Write "发送成功" else Response.Write "发送失败"

%>