62,025
社区成员
发帖
与我相关
我的任务
分享
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
<%
Dim jmail,msg
msg = "当前的域名是:"&request.servervariables("HTTP_HOST")&"<br>"
msg = msg & "当前的真实物理路径是:"&request.ServerVariables("APPL_PHYSICAL_PATH")&"<Br>"
msg = msg & "当前的客户端IP是:"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
msg = msg & "当前的客户端代理IP是:(如果有的话) "&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Set jmail = CreateObject("JMAIL.Message") '建立发送邮件的对象
'jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值
jmail.Logging = True '记录日志
jmail.Charset = "GB2312" '邮件的文字编码
jmail.ContentType = "text/html" '邮件的格式为HTML格式或纯文本
jmail.AddRecipient "423116954@qq.com" '收件人EMAIL地址
jmail.From = "423116954@qq.com" '发件人的E-MAIL地址
jmail.FromName = "QQ" '发件人的名称
jmail.MailServerUserName = "123456______qq@163.com" '登录邮件服务器的用户名 (您的邮件地址)
jmail.MailServerPassword = "321654" '登录邮件服务器的密码 (您的邮件密码)
jmail.Subject = "发送信息测试 " '邮件的标题
jmail.Body = msg '邮件的内容
jmail.Priority = 3 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Send("smtp.163.com") '执行邮件发送(通过邮件服务器地址)
jmail.Close()
set jmail = Nothing
%>