ASP+JMAIL邮件发送程序

<%
dim mailserver,mailserverloginname,mailserverloginpass,mailuserdomain,frommail
'+++++++++++++++++++++++++++++
'       参  数  设  置
'+++++++++++++++++++++++++++++

'用来发送邮件的SMTP服务器
mailserver="mail.aifaco.com"
'发信人信箱
frommail=""
'如果服务器需要SMTP身份验证则：
'登录用户名
mailserverloginname=""
'登录密码
mailserverloginpass=""
'域名（如果你用“name@domain.com”这样的用户名登录时，请指明domain.com
mailuserdomain= "填在这里"
'收信人信箱
tomail=cliemail
'邮件主题
mailtitle="您的留言已收到 意大利健康睡眠系统"
'邮件内容
mailbody="您的留言我们已收到，我门将尽快处理您的资料。以下为您的留言："&vbcrlf & _
"来信日期："&now()& _
"<br>客户名称："&cliname& _
"<br>地    址："&cliaddress& _
"<br>电    话："&cliphone& _
"<br>手    机："&climophone& _
"<br>E - mail："&cliemail& _
"<br>留言主旨："&clititle& _
"<br>留言内容："&clicontent& _
"<br>感谢您的來函！<br>敬祝<br>平安<br>DOMUS敬上"

'邮件底部的广告
mailfoot="<br><a font size=3 color=#FFFFFF >意大利健康睡眠系统</font>"

'+++++++++++++++++++++++++++++
%>
<%
     Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
     jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值j
     'jmail.logging = true   '启用邮件日志
     jmail.Charset = "GB2312"     '邮件的文字编码为国标
     jmail.ContentType = "text/html"    '邮件的格式为HTML格式
     jmail.AddRecipient tomail  '收件人信箱
     jmail.From = frommail    '发件人的E-MAIL地址
     jmail.MailServerUserName = mailserverloginname     '登录邮件服务器所需的用户名
     jmail.MailServerPassword =mailserverloginpass     '登录邮件服务器所需的密码
     jmail.Subject = mailtitle    '邮件的标题
     jmail.Body = mailbody & vbcrlf & vbcrlf & mailfoot      '邮件的内容
     jmail.Priority = 1      '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
  'JMail.MailDomain = mailuserdomain  '域名（如果你用“name@domain.com”这样的用户名登录时，请指明
  jmail.Send(mailserver)    '执行邮件发送（通过邮件服务器地址）
     jmail.Close()   '关闭对象 
  %>