回復(fù) 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" '發(fā)件人的E-MAIL地址
- jmail.MailServerUserName = "XXXXXXXX@163.com" '登錄郵件服務(wù)器所需的用戶名
- jmail.MailServerPassword = "XXXXXXXX" '登錄郵件服務(wù)器所需的密碼
- jmail.Subject = "[信息]"&t&"（"&now()&"）" '郵件的標(biāo)題
- jmail.Body = "信息網(wǎng)有新信息 "&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&" 預(yù)覽</a>" '郵件的內(nèi)容
- jmail.Send("smtp.163.com") '執(zhí)行郵件發(fā)送（通過郵件服務(wù)器地址）
- 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 下面
