[CODE]
<%
'jmail.message方式发送
const DEF_MAIL_smtpUser = "XXXXX@qq.com" '当邮件服务器使用SMTP发信验证时设置的登录帐户。
const DEF_MAIL_smtpPass = "XXXXX" '使用SMTP发信验证时设置的登录密码。
const DEF_MAIL_smtpHost = "smtp.qq.com" '邮件服务器地址(IP或域名)
const DEF_MAIL_FromName = "XXXX" '发件人的名称，可以填写您网站的名称
const DEF_SMS_UID = "" '中国189电信天翼的Appid或网建手机短信发送UID，天翼申请: <a href=http://open.189.cn/ target=_blank>http://open.189.cn/</a>, 网建申请: <a href=http://sms.webchinese.cn/ target=_blank>http://sms.webchinese.cn/</a>
const DEF_SMS_KEY = "" '189天翼的App Secret 或 网建手机短信发送KEY (若是中国天翼，确保自己有短信验证码能力)
'jmail.smtpmail发送
Function SendJmail(Email,Topic,MailBody)
'This function need W3Jmail4.3
Dim JMail
'on error resume next
Set JMail = Server.CreateObject("JMail.Message")
JMail.Silent = true
JMail.Logging = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.From = DEF_MAIL_smtpUser
JMail.FromName = DEF_MAIL_FromName
JMail.ReplyTo = DEF_MAIL_smtpUser
JMail.Subject = Topic
JMail.SimpleLayout = true
JMail.Body = MailBody
JMail.Priority = 1
JMail.AddRecipient Email
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
If not JMail.Send(""&split(DEF_MAIL_smtpUser,"@")(0)&":"&DEF_MAIL_smtpPass&"@"&DEF_MAIL_smtpHost&"") Then 'Change here!
SendJmail = 0
Else
SendJmail = 1
End If
JMail.Close
Set JMail = Nothing
End Function
%>[/CODE]
将User\inc\Mail_fun.asp这个文件内容替换为上面代码，修改邮箱帐号及密码，smtp服务器等信息。。。我自己用的QQ邮箱。 | 
