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 "发送失败"
%>