|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。jmail|jmail经常要在网站中利用到JMAIL组件来发邮件。爽性就把经常使用的功效写成一个模块,便利挪用。
把程序放到一个文件中,然后包括再call就能够了。(JMAIL4.3)
<%告诫函数
subw_msg(message,w_to,w_link)
message是你要弹出的告诫信息,w_to=1暗示主动前进一页,当w_to1时w_link暗示要跳转的页面
ifw_to="1"then
%>
<scriptlanguage="javascript">
<!--
functionIndex(){window.alert(<%=message%>);history.back(-1)}
Index();
-->
</script>
<%else%>
<scriptlanguage="javascript">
<!--
functionIndex(){window.alert(<%=message%>);window.location="<%=w_link%>"}
Index();
-->
</script>
<%endif
endsub%>
<%
subsendmail(mailtitle,mailtext,mailaddress,mailcc,mailbcc,attachment,mailserver)
ifmailtitle=""then
mailtitle="体系测试邮件"
endif
ifmailtext=""then
mailtext="Justatest"
endif
ifmailaddress=""then
callw_msg("邮件地点不克不及为空","1","")
endif
ifmailserver=""then
mailserver="smtp.163.com"
endif
setmsg=server.createobject("JMail.Message")
msg.silent=true
msg.logging=true
msg.Charset="GB2312"
msg.ContentType="text/html"
msg.MailServerUserName="yourusername"
msg.MailServerPassword="yourpassword"
msg.From="youremail"
msg.FromName="dorryyang"
mailaddress_s=split(mailaddress,",")邮件地点用,格开
fori=0toubound(mailaddress_s)
msg.AddRecipienttrim(mailaddress_s(i))
next
ifmailcc""then
mailcc_s=split(mailcc,",")
fori=0toubound(mailcc_s)
msg.AddRecipientCCtrim(mailcc_s(i))
next
endif
ifmailbcc""then
mailbcc_s=split(mailbcc,",")
fori=0toubound(mailbcc_s)
msg.AddRecipientBCCtrim(mailbcc_s(i))
next
endif
ifattachment""then
msg.AddAttachment(attachment)attachment写附件地点
endif
msg.Subject=mailtitle
msg.HTMLBody=mailtext
msg.Send(mailserver)
msg.close
setmsg=nothing
callw_msg("发送乐成","1","")
endsub
%>
</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 |
|