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

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

---

<%
'邮件发送服务器信息
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地址）