可以被授权用户引用的自动邮件发送脚本程序

原创 2004年10月07日 00:21:00

呵呵,以前经常有朋友要我帮他们写一个用服务器在后台发送邮件的程序,嫌麻烦,就在我自己的服务器上写了一段代码,以后别人要用服务器来发送邮件时,只需要在自己的程序中简单的写一行引用代码就OK了!

有个前提:必须先在你自己的服务器上安装一个邮件发送组件,我这儿用的是JMail,其它组件,可查看相应的函数说明修改一下我的程序即可.


程序语言:  ASP(VBScript)
我的服务器地址:http://211.23.12.12 (为保密起见,此地址为杜撰)


服务器端程序SendMail.asp代码如下:
'-------------------------------------------------
<font size=2 color=green>XXX应用程序服务提供商 自动邮件发送系统</font>
<hr height=1>
<BR><BR>
<%
'邮件发送服务器信息
Dim SmtpServer,Username,Password
SmtpServer="192.168.10.136"            //SMTP服务器地址
Username="myusername"                        //服务器认证用户名
Password="mypassword"                        //服务器认证密码

'判断使用此功能的用户
Dim CanOK,url
CanOK=0
url=Request.ServerVariables("HTTP_REFERER")

'该表达式表示用户http://www.liangdie.com被允许调用此功能,检测调用此功能页面是否为http://www.liangdie.com
if mid(url,1,Len("http://www.liangdie.com"))="http://www.liangdie.com" then
 CanOK=1
end if

'该表达式表示用户http://www.jscy.cn被允许调用此功能,检测调用此功能页面是否为http://www.jscy.cn
if mid(url,1,Len("http://www.jscy.cn"))="http://www.jscy.cn" then
 CanOK=1
end if

'注意:如需加入其它授权用户,只需依照上面的语法,加入相应的代码即可

'开始发送邮件
if CanOK=1 then
 set msg = Server.CreateOBject( "JMail.Message" )
 msg.Logging = true '日志记录
 msg.silent = true '错误打开

 msg.From = request("email")
 msg.FromName = request("name")

 msg.AddRecipient request("recieve"),""

 msg.MailServerUserName = Username '输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址)
 msg.MailServerPassword = Password  '输入smtp服务器验证密码  (用户Email帐号对应的密码)
 msg.Priority = 1   '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
 msg.Subject = request("subject")
 msg.Body=request("body")
 if not msg.Send(SmtpServer) then
  Response.write "错误信息:<br>"
      Response.write "<pre>" & msg.log & "</pre>"
 else
  response.write "<meta http-equiv=refresh content='3;URL=" & url & "'>"
      Response.write "<p align=center><font size=2 color=black>邮件发送成功!3秒钟后自动返回!</font></p>"

 end if

else
 response.write "<p align=center><font size=2 color=red>非法用户或未授权用户!</font></p>"
 response.end
end if
%>
<hr height=1>
'-------------------------------------------------



调用处http://www.jscy.cn/feedback.htm代码如下:
-------------------------------------------------
<form name="form" method="GET" action="http://211.23.12.12/SendMail.asp">
<input type=text name=email value="customer@liangdie.com">
<input type=text name=name value="customer@liangdie.com">
<input type=text name=body value="">
<input type=text name=subject value="">
<input type="submit" name="Submit" value="提 交" onclick="sendmsg.style.visibility='visible'">
<input type="reset" name="Submit2" value="清 除">
<p id=sendmsg align=center style="visibility:hidden"><font color=red>邮件正在发送,请稍侯......</font></p>
</form>
-------------------------------------------------
注意:在发送前须先检查email变量是否为email格式,否则发送程序会报错.在大多数情况下,客户发送的表单信息可能会很多,可通过脚本将这些表单信息全组合到body变量中,再提交给服务器发送.


呵呵,其实当初写完这个程序,觉的有点类似于Web Service的初级概念了,当然,如果纯粹从技术角度出发来看这段程序,与Web Service的技术实现相差的太远了,但使用起来的方式却有点类似了.

【Python学习笔记】-自动发送邮件脚本

自动发送邮件功能是我们经常要用到的,比如每天定时统计报表信息,然后自动发送给运营人员,协助运营人员进行业务数据分析。本文是用Python写的一个自动发送邮件的脚本,调用函数时,直接把发件人邮箱地址、密...
  • Kevin_zhai
  • Kevin_zhai
  • 2015年08月17日 09:43
  • 13516

一个自动发邮件的脚本(转)

把以下文件存為vbs文件,雙擊就可運行,也可以放到Job里去運行。 Set cdo = CreateObject("CDO.Message") strCfg = "http://sch...
  • tony2278
  • tony2278
  • 2015年03月04日 10:17
  • 1299

微信小程序处理用户拒绝授权情况及微信登录,登录保存等系列解决方案

在微信小程序开发时,当我们调用API  wx.getUserInfo(OBJECT) 时,需要用户授权。但如果用户拒绝授权,我们如何兼容用户拒绝授权状态,拥有更好的用户体验呢? 先看看这个接口的官方...
  • zgmu
  • zgmu
  • 2017年07月18日 18:16
  • 7897

CMD Telnet 命令行自动发送邮件脚本

定期监控sql server服务运行状态,如服务停止,则启动它? 这个比较简单的方法可以实现  net start 服务名称 放到windows的定时执行中就好了 如果服务已经启动则报 服务...
  • hbtianmimi
  • hbtianmimi
  • 2012年12月29日 14:01
  • 2151

微信小程序通讯地址授权拒绝后的处理方式

微信小程序通讯地址授权拒绝后的处理方式
  • StruggleRookie
  • StruggleRookie
  • 2017年12月04日 14:28
  • 1081

练习:编写一个脚本,可以自动建立用户,及匹配密码

练习
  • a18829898663
  • a18829898663
  • 2017年05月01日 17:49
  • 301

引用未经授权的图片

测试引用未经授权的腾讯图片: 测试referer-killer.js,引用未经授权的腾讯图片: script> li>Without sending referrer: br...
  • hainandao710
  • hainandao710
  • 2017年02月25日 13:14
  • 258

微信小程序获取手机号授权登录

小程序中有很多地方都会用到注册用户信息的地方,用户需要填写手机号等,有了这个组件可以快速获取微信绑定手机号码,无须用户填写。 1.getPhoneNumber这个组件通过button...
  • jimolangyaleng
  • jimolangyaleng
  • 2017年11月08日 22:37
  • 4840

小程序没有授权时的处理方法

在做小程序开发的时候,我们经常会需要获取用户的一些权限。比如获取用户信息用于直接登录,获取地理位置用于定位等。但要是用户拒绝授权了,该怎么处理呢?...
  • a49220824
  • a49220824
  • 2017年06月24日 11:30
  • 7982

连接被拒绝 因为没有授权此用户账户进行远程登录

背景:有时想远程连接某服务器进行操作,但是远程登陆时,却报错: 解决办法:在服务器上进行设置,允许用户登录 步骤: 1:用允许登录的用户,远程连接服务器(在这里用v-liyh登录) 点...
  • YABIGNSHI
  • YABIGNSHI
  • 2014年03月26日 15:39
  • 37270
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:可以被授权用户引用的自动邮件发送脚本程序
举报原因:
原因补充:

(最多只允许输入30个字)