Dim Email Email="www@xxx.la "'这里是定义一个收件人的邮件地址 '如果是用于表单则应该是:Email="trim(request("email"))" Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象 jmail.silent = true 'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE jmail.logging = true '启用使用日志 jmail.Charset = "GB2312" '邮件文字的代码为简体中文 jmail.ContentType = "text/html" '邮件的格式为HTML的 jmail.ServerAddress = "mail.xxx.la" '发送邮件的服务器 这里填写你的邮件发送的服务器地址 jmail.AddRecipient Email '邮件的收件人 jmail.SenderName = "info" '邮件发送者的姓名 jmail.Sender = "info@xxx.la" '邮件发送者的邮件地址 jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值 jmail.Subject = "Puer.la欢迎您!" '邮件的标题 jmail.Body = "MailBox:mail.puer.la" '邮件的内容 jmail.Execute() '执行邮件发送 jmail.Close '关闭邮件对象
Dim Email Email="www@puer.la" '这里是定义一个收件人的邮件地址 '如果是用于表单则应该是:Email="trim(request("email"))" Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象 jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值j Jmail.logging = true '启用邮件日志 jmail.Charset = "GB2312" '邮件的文字编码为国标 jmail.ContentType = "text/html" '邮件的格式为HTML格式 jmail.AddRecipient Email '邮件收件人的地址 jmail.From = "info@puer.la" '发件人的E-MAIL地址 jmail.MailServerUserName = "info@puer.la" '登录邮件服务器所需的用户 名 jmail.MailServerPassword = "明文密码123" '登录邮件服务器所需的密码 jmail.Subject = "puer.la管理员至您的私人邮件,请您确认!" '邮件的标题 jmail.Body = "Hi,这是爱玛的系统邮件!" '邮件的内容 jmail.Send("mail.xxx.la") '执行邮件发送(通过邮件服务器地址) jmail.Close() '关闭对象
<!--#include file="ip.asp"--> <script language=VBScript runat=server> function SendMail(SenderName,mailto,subjects,msg)'这个是一个函数,在程序中可以直接调用。 on error resume next Dim amail amail="www@cnnic.net.cn" '举例,设定一个密秘收件人(CNNIC) Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象 jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值j Jmail.logging = true '启用邮件日志 jmail.Charset = "GB2312" '邮件的文字编码为国标 jmail.ContentType = "text/html" '邮件的格式为HTML格式 jmail.AddRecipient mailto '邮件收件人的地址 jmail.AddRecipientBCC amail'隐藏的副本抄送,只有发件人和BCC收件人知道。 jmail.FromName =SenderName '发件人名称 jmail.From = "info@21cn.com" '发件人的E-MAIL地址 jmail.MailServerUserName = "info@21cn.com" '登录邮件服务器所需的用户名 jmail.MailServerPassword = "密码123654" '登录邮件服务器所需的密码 jmail.Subject =subjects '邮件的标题 jmail.Body =msg '邮件的内容 jmail.Send("smtp.21cn.com") '执行邮件发送(通过邮件服务器地址) jmail.Close() '关闭对象 end function </script>
<!--#include file="mail.asp"--> <% 'JMAIL调用说明: Dim Email,user Email=trim(request.Form("email")) user=trim(request.Form("user")) strHTML = "<table width=""80%"" border=""0"" height=150>"&chr(13) &chr(10) '这里需要加上两个 strHTML = strHTML & " <tr>"&chr(13)&chr(10) 'chr(13)硬回车chr(10)软回车 strHTML = strHTML & "<td align=""left"" valign=""middle"" height=150>亲爱的用户朋友 "&user&":<br> "&chr(13) &chr(10) strHTML = strHTML & "<br>以下是你在爱玛网站的注册信息(请保存好本封邮件):<br><hr size=""1"" color=""#000000"" noshade>登录密码:<font color=""red"">"&trim(request.form("Password"))&"</font><br>注册信箱:<font color=""red"">"&Email&"</font>;<br>"&chr(13) &chr(10) strHTML = strHTML & "密码问题:<font color=""red"">"&trim(request.form("wt"))&"</font>;<br>问题答案:<font color=""red"">"&trim(request.form("wtda"))&"</font>;<br><hr size=""1"" color=""#000000"" noshade><br>"&chr(13) &chr(10) strHTML = strHTML & "如果您还需要其他帮助,敬请随时和我们联系。谢谢您的支持!<br>注册时间:"&now()&"<br>注册IP:"&getIP()&"<hr size=""1"" color=""#000000"" noshade><br>" &chr(13) &chr(10) strHTML = strHTML & "地址:四川省成都市芳华街XX号<br>"&chr(13) &chr(10) strHTML = strHTML & "邮编:630000 <br>"&chr(13) &chr(10) strHTML = strHTML & "QQ:372512020 <br>"&chr(13) &chr(10) strHTML = strHTML & "Web:<a href=http://www.amchina.net/ target='_blank'>http://www.amchina.net</a><br>"&chr(13) &chr(10) strHTML = strHTML & "Email:ee@xxx.com <br>"&chr(13) &chr(10) strHTML = strHTML & "<br>祝 <br>"&chr(13) &chr(10) strHTML = strHTML & "商祺!<br>"&chr(13) &chr(10) strHTML = strHTML & "<br>"&chr(13) &chr(10) strHTML = strHTML & "<br><div align=right>爱玛网发送于"&now()&"<br>此信由爱玛网络自动发送,无需回复!</div><br>"&chr(13) &chr(10) strHTML = strHTML & "</td></tr></table>" SenderName="爱玛网客服部" mailto=""&Email&"" '收信人email subjects="爱玛欢迎您!这是系统自动发送给您的注册确认邮件!" msg="<HTML><title>AmChina.net</title><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><link href=""http://www.amchina.net/jmailcss.css"" rel=""stylesheet"" type=""text/css""><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>" call SendMail(SenderName,mailto,subjects,msg) %>
Private Function getIP() Dim strIPAddr If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then strIPAddr = Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) Else strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If getIP = Trim(Mid(strIPAddr, 1, 30)) End Function
打开手机扫描上面的二维码,可以快速浏览当前网页,还能分享和收藏!