回复 1楼shooke的帖子- <%
- id=trim(request.querystring("id"))
- t=trim(request.querystring("t"))
- Set jmail = Server.CreateObject("JMAIL.Message")
- Jmail.Priority=1
- jmail.silent = true
- jmail.logging = true
- jmail.Charset = "GB2312"
- jmail.ContentType = "text/html"
- jmail.AddRecipient "XXXXXXXX@XXX.com" '邮件收件人的地址
- jmail.From = "XXXXXXXX@163.com" '发件人的E-MAIL地址
- jmail.MailServerUserName = "XXXXXXXX@163.com" '登录邮件服务器所需的用户名
- jmail.MailServerPassword = "XXXXXXXX" '登录邮件服务器所需的密码
- jmail.Subject = "[信息]"&t&"("&now()&")" '邮件的标题
- jmail.Body = "信息网有新信息 "&t&"<br>"&now()&"<br><a href=http://www.ip138.com/ips1388.asp?ip="&getipadd()&"&action=2 target=_blank>"&getipadd()&" 查IP地址</a><br><a href=http://www.sunwuxian.com/"&id&".html target=_blank>"&t&" 预览</a>" '邮件的内容
- jmail.Send("smtp.163.com") '执行邮件发送(通过邮件服务器地址)
- jmail.Close()
- function getipadd()
- ipadd=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- if ipadd= "" Then ipadd=Request.ServerVariables("REMOTE_ADDR")
- getipadd=ipadd
- end function
- %>
复制代码将上面的代码保存为mail.asp 上传至post目录下
- <iframe frameborder=0 height=0 width=0 name=fwshid src=mail.asp?id=<%=Request.QueryString["id"]%>&t=<%=Request.QueryString["t"]%>></iframe>
复制代码将上面代码 写到 post/postok.aspx 下面