|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧subsendMail(a_intID,a_strEmail)
constc_strMailServer="smtp.163.net"
dimobjConn,objRs,strSql
dimstrContent,strBody,strSubject,objEmail
strBody="<html><head>"
strBody=strBody+"<metaHTTP-EQUIV=Content-Typecontent=text/html;charset=gb2312>"
strBody=strBody+"</head><bodybgColor=#d2b48c>"
strBody=strBody+"<ahref=http://www.china-168.net/center/default.asp>"+"<imgsrc=http://www.china-168.net/center/images/banner.gifborder=0>"+"</a>"
strBody=strBody+"<h3style=FONT-SIZE:15px>"+"请您确认"+"</h>"+vbcrlf
strBody=strBody+"<pstyle=FONT-SIZE:13px>"+"您好<ahref=mailto:"&a_strEmail&">"&a_strEmail&"</a>"+"</td>"+vbcrlf
strBody=strBody+"<pstyle=FONT-SIZE:13px>"+"接待您定阅万里信息网邮件列表"+"</td>"
strBody=strBody+"<pstyle=FONT-SIZE:13px>"+"为了避免呈现定阅毛病,请您点击以下链接举行确认。感谢!"+"</td>"
strBody=strBody+"<pstyle=FONT-SIZE:13px>"+"<ahref=""http://www.china-168.net/EmailList/affirm.asp?Mode=MailList&content="&a_strEmail&""">"+"请点击这里,举行定阅确认"+"</a>"
strBody=strBody+"<pstyle=FONT-SIZE:13px><ahref=http://www.china-168.nettarget=_blank>"+vbcrlf
strBody=strBody+"<imgsrc=http://www.china-168.net/images/logo.gif"
strBody=strBody+"alt=更多信息尽在万里信息网></a><br>"
strBody=strBody+"<pstyle=FONT-SIZE:13px>"+"接待再次到临万里信息网!"+"</td>"
strBody=strBody+"</body></html>"
发送email
onerrorresumenext
setobjEmail=server.CreateObject("Persits.MailSender")
objEmail.Host=c_strMailServer
objEmail.From="jiabaoxu@163.net"
objEmail.FromName="china-168.net"
objEmail.AddAddressa_strEmail
objEmail.Subject="定阅确认"
objEmail.IsHTML=true
objEmail.CharSet="gb2312"
objEmail.Body=strBody
objEmail.Send
审查毛病
ifErr.number=0then假如乐成
Response.Write("<palign=centerclass=cn>为确保用户不被骚扰,我们将收回确认信,请会见信中的URL以确认挂号</td>")
else假如失利则显现堕落缘故原由
Response.Write("<palign=centerclass=cn>邮件发送堕落,毛病缘故原由:<br>")
Response.Write("<fontcolor=red>"&Err.Description&"</font></td>")
endif
清场
setobjEmail=nothing
endsub
利用该历程:
<%
.....
RTSEmailGuestMailID,""&email&""
.....
%>缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|