<%
Sub SendAction(subject, email, sender, content)
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
JMail.From = strMailUser ' 发送者地址
JMail.FromName = sender' 发送者姓名
JMail.Subject =subject
JMail.MailServerUserName = strMailUser' 身份验证的用户名
JMail.MailServerPassword = strMailPass ' 身份验证的密码
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
JMail.AddRecipient(email)
JMail.Body = content
JMail.Send(strMailAddress)
End Sub

'调用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject ="网站www.spingled.com"
strContent = "网站www.spingled.com"&date()
strSender = "网站1组 "
strEmail = "233678323@qq.com"'这是收信的地址,可以改为其它的邮箱
strMailAddress = "smtp.mxhichina.com" '我司企业邮局地址，请使用 mail.163.com您的域名
strMailUser ="admin@diiss.net" '我司企业邮局用户名,如630@163.com
strMailPass = "3222Cc" '邮局用户密码
Call SendAction (strSubject,strEmail,strSender,strContent)
%>
整个页面代码就这些,在ECS就会出错(JMail组件已安装),虚拟就可以正常使用.
ECS测试网址http://zhitedz.com/admin/1.asp