注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

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

2011-06-07 13:33:39|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

呵呵,以前经常有朋友要我帮他们写一个用服务器在后台发送邮件的程序,嫌麻烦,就在我自己的服务器上写了一段代码,以后别人要用服务器来发送邮件时,只需要在自己的程序中简单的写一行引用代码就OK了!
有个前提:必须先在你自己的服务器上安装一个邮件发送组件,我这儿用的是JMail,其它组件,可查看相应的函数说明修改一下我的程序即可.
程序语言: ASP(VBScript)
我的服务器地址:http://211.23.12.12(为保密起见,此地址为杜撰)
target=_blank>http://211.23.12.12">http://211.23.12.12(为保密起见,此地址为杜撰)

服务器端程序SendMail.asp代码如下:
'-------------------------------------------------
font size=2 color=greenXXX应用程序服务提供商 自动邮件发送系统/font
hr height=1
BRBR
%
'邮件发送服务器信息
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
target=_blank>http://www.liangdie.com">http://www.liangdie.com

if mid(url,1,Len("
http://www.liangdie.com"  ="http://www.liangdie.com"http://www.liangdie.com"  ="then
target=_blank>http://www.liangdie.com"
then

CanOK=1
end i
'该表达式表示用户http://www.jscy.cn
target=_blank>http://www.jscy.cn">http://www.jscy.cn

if mid(url,1,Len("
http://www.jscy.cn"  ="http://www.jscy.cn"http://www.jscy.cn"  ="then
target=_blank>http://www.jscy.cn"
then

CanOK=1
end i
'注意:如需加入其它授权用户,只需依照上面的语法,加入相应的代码即可
'开始发送邮件
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=centerfont size=2 color=black邮件发送成功!3秒钟后自动返回!/font/p"
end i
else
response.write "p align=centerfont size=2 color=red非法用户或未授权用户!/font/p"
response.end
end i
%
hr height=1
'-------------------------------------------------
调用处http://www.jscy.cn/feedback.htm
target=_blank>http://www.jscy.cn/feedback.html">http://www.jscy.cn/feedback.htm

-------------------------------------------------
form name="form" method="GET" action="asp">
http://211.23.12.12/SendMail.asp"
target=_blank>http://211.23.12.12/SendMail.asp"">http://211.23.12.12/SendMail.asp"

input type=text name=email value="
customer@liangdie.com"
">customer@liangdie.com">customer@liangdie.com"
input type=text name=name value="
customer@liangdie.com"
">customer@liangdie.com">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的技术实现相差的太远了,但使用起来的方式却有点类似了.

  评论这张
 
阅读(81)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017