Posted on 2006-09-18 15:46
小傻 閱讀(288)
評(píng)論(1) 編輯 收藏
<!--#include file="md5.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>J-mail</title>
</head>
<body>
<%
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
username="litianyi"
session("rid")=md5(username)
smtpserver = "smtp.163.com"???????????????????? ??? '郵局服務(wù)器地址
smtpuser = "***"?????????????????????????????????????? ??? ?? 'smtp服務(wù)器驗(yàn)證登陸名
smtppwd = "***"???????????????????????????????????????? ? ? 'smtp信箱密碼
Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.Logging = true
JMail.Priority = 3
jMail.ContentType? =? "text/html"?
JMail.From = litianyi520@163.com??????????? ? '?你的郵箱地址
JMail.FromName = "李"
Jmail.ReplyTo ="litianyi520@163.com"?????????? ?'?你的郵箱地址
JMail.AddRecipient(gaoxuelei1983@126.com)???? '郵件收件人的地址
JMail.Subject = "Test for JMail"??????????????????????? '郵件標(biāo)題
JMail.Body = JMail.Body &"親愛的客戶:<font color=red>"&name&"</font><br><b><font color=green>歡迎加入
Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd
Jmail.Send(smtpserver)
isgo = Jmail.Send(smtpserver)
if isgo then
RESPONSE.WRITE("提交成功！謝謝你的支持。")
RESPONSE.WRITE(JMail.log)
else
RESPONSE.WRITE(JMail.log)
end if
JMail.Close()
Set JMail = Nothing
%>
</body>
</html>