框分类：人性化的同城分类信息系统，我们永远站在用户的角度！一次性购买，终身升级！    [交流论坛]
登录 免费注册
0464-8815359
返回列表 123
发新话题 回复该主题
查看: 26153|回复: 24

[公告] 我弄了一段有新信息邮件提醒代码，有需要的吗 [复制链接]

shooke
头像

  • 框新手
  • 8
  • 9
  • 2015-04-30
1#
t T
发表于 2017-02-23 10:26 |只看楼主
回复超过20我就发出来
分享 转发
TOP
1230539
头像

临沂信息网

  • 商业版用户
  • 634
  • 2734
  • 2013-12-27
2#
t T
发表于 2017-02-23 11:00 |只看该用户

没诚意
【临沂信息网】临沂最专业的信息免费发布网站！
TOP
9351815
头像

  • 商业版用户
  • 77
  • 92
  • 2016-02-26
3#
t T
发表于 2017-02-23 11:42 |只看该用户

盐城便民网 www.0515001.com 盐城最专业的二手分类信息网站
TOP
30981652
头像

  • 商业版用户
  • 50
  • 53
  • 2015-06-11
4#
t T
发表于 2017-02-23 13:08 |只看该用户

要呀发出来
浙东信息网http://www.zdxxw.com
TOP
南宫信息港
头像

  • 商业版用户
  • 246
  • 907
  • 2014-02-25
5#
t T
发表于 2017-02-23 14:34 |只看该用户

不太明白，可以说详细一些吗
南宫信息港   南宫论坛
TOP
南宫信息港
头像

  • 商业版用户
  • 246
  • 907
  • 2014-02-25
6#
t T
发表于 2017-02-23 14:34 |只看该用户

超过20就发出来
南宫信息港   南宫论坛
TOP
shooke
头像

  • 框新手
  • 8
  • 9
  • 2015-04-30
7#
t T
发表于 2017-02-23 16:37 |只看楼主

回复 1楼shooke的帖子
  1. <%

  2. id=trim(request.querystring("id"))

  3. t=trim(request.querystring("t"))



  5. Set jmail = Server.CreateObject("JMAIL.Message")

  6. Jmail.Priority=1

  7. jmail.silent = true

  8. jmail.logging = true  

  9. jmail.Charset = "GB2312"    

  10. jmail.ContentType = "text/html"  

  11. jmail.AddRecipient "XXXXXXXX@XXX.com"  '邮件收件人的地址  

  12. jmail.From = "XXXXXXXX@163.com" '发件人的E-MAIL地址  

  13. jmail.MailServerUserName = "XXXXXXXX@163.com" '登录邮件服务器所需的用户名  

  14. jmail.MailServerPassword = "XXXXXXXX" '登录邮件服务器所需的密码  

  15. jmail.Subject = "[信息]"&t&"（"&now()&"）" '邮件的标题  

  16. 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>"  '邮件的内容  

  17. jmail.Send("smtp.163.com") '执行邮件发送（通过邮件服务器地址）  

  18. jmail.Close()





  21. function getipadd()

  22.     ipadd=Request.ServerVariables("HTTP_X_FORWARDED_FOR")

  23.     if ipadd= "" Then ipadd=Request.ServerVariables("REMOTE_ADDR")

  24.     getipadd=ipadd

  25. end function



  27. %>

复制代码
将上面的代码保存为mail.asp  上传至post目录下
  1. <iframe frameborder=0 height=0 width=0 name=fwshid src=mail.asp?id=<%=Request.QueryString["id"]%>&t=<%=Request.QueryString["t"]%>></iframe>

复制代码
将上面代码 写到 post/postok.aspx 下面
TOP
jgx8510050
头像

  • 商业版用户
  • 120
  • 144
  • 2014-01-03
8#
t T
发表于 2017-02-23 16:42 |只看该用户


东宁信息网 www.157299.cn
东宁信息网 www.157299.cn
TOP
chy168
头像

  • 商业版用户
  • 72
  • 376
  • 2015-09-16
9#
t T
发表于 2017-02-23 20:35 |只看该用户

怎么用
TOP
dy3415
头像

  • 商业版用户
  • 151
  • 1235
  • 2015-08-17
10#
t T
发表于 2017-02-23 20:53 |只看该用户

好东西，谢谢分享！
大余信息发布网   =★=   http://www.341599.com
TOP
上一主题| 下一主题
返回列表 123
发新话题 回复该主题
高级编辑器高级编辑器