|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。mail组件subsendMail(a_intID,a_strEmail)
constc_strMailServer="smtp.163.net"
dimobjConn,objRs,strSql
dimstrContent,strBody,strSubject,objEmail</P><P>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>"+"</a><br>"
strBody=strBody+"<pstyle=FONT-SIZE:13px>"+"接待再次到临万里信息网!"+"</td>"
strBody=strBody+"</body></html>"</P><P>发送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</P><P>审查毛病
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</P><P>清场
setobjEmail=nothing
endsub</P><P>利用该历程:
<%
.....</P><P>RTSEmailGuestMailID,""&email&""
.....</P><P>%>
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般 |
|