mail.asp

九酷网络个人主页系统破解版

<%
select case mailtype
case 1
	dim JMail
	Set JMail=Server.CreateObject("JMail.Message")
	'JMail.silent=true
	JMail.Logging=True
	JMail.Charset="gb2312"
	JMail.MailServerUserName = smtpname '您的邮件服务器登录名
	JMail.MailServerPassword = smtppass '您的邮件服务器登录密码
	JMail.ContentType = "text/html"
	JMail.Priority = 1
	JMail.From = siteemail
	JMail.FromName = site
	JMail.AddRecipient email
	JMail.Subject=topic
	JMail.Body=mailbody
	JMail.Send (smtpserver) '您的邮件服务器地址
	Set JMail=nothing
case 2
	dim objCDOMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From =siteemail
	objCDOMail.To =email
	objCDOMail.Subject =topic
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body =mailbody
	objCDOMail.Send
	Set objCDOMail = Nothing
case 3
	dim aspemail
	Set aspemail=Server.CreateObject("Persits.MailSender") 
	aspemail.Charset = "gb2312"
	aspemail.IsHTML = True
	aspemail.username = smtpname	'服务器上有效的用户名
	aspemail.password = smtppass	'服务器上有效的密码
	aspemail.Priority = 1
	aspemail.Host = smtpserver   '您的邮件服务器地址
	aspemail.Port = 25 ' 该项可选.端口25是默认值
	aspemail.From = siteemail
	aspemail.FromName = site ' 该项可选
	aspemail.AddAddress email
	aspemail.Subject = topic
	aspemail.Body = mailbody
	aspemail.Send
	Set aspemail = Nothing
case else
end select
If Err Then Response.Write "<script language='javascript'>alert('系统邮件发送出错！错误原因：\n\n" & Err.Description & "');</script>"
%>