ASP编程：ASP+SMTP完成邮件群发功能
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。asp+|smtp--><metahttp-equiv="Content-Language"content="zh-cn">
<TITLE>中国劲网Web(ASP+STMP)邮件群发体系2004.11.28版</TITLE>
<style>
<!--
body{color:#000000;text-decoration:none;font-family:宋体;font-size:10pt;
letter-spacing:1pt;font-weight:bold}
table{font-family:宋体;font-size:10pt;text-decoration:none;color:#000000;
letter-spacing:1pt;font-weight:bold}
-->
</style>
<%
imail是吸收人长度限定
imail=1001
设置发信暗码
mailpass="www.5790.com"
post=Request("post")
Response.Cookies("text")=Request("text")
Response.Cookies("title")=Request("title")
ifpost="openmail"then
smtpmail=Request("smtpmail")
onerrorresumenext
email=Replace(Request("email"),vbCrlf,",")
mailtopic=Request("title")
body=Request("text")&"<br>MTV在线视听:http://www.5790.com"
pass=Request("pass")
ifpassmailpassthenerror="请输出准确的发信暗码！"
ifinstr(smtpmail,"@")=0orsmtpmail=""thenerror="发信E-mail地点填写毛病！"
ifinstr(email,"@")=0oremail=""thenerror="收信E-mail地点填写毛病！"
smail=Split(email,"@")
ubmail=UBound(smail)
ifint(ubmail)>int(imail)thenerror="收信E_mail超越限定！限定一次性发送"&imail&"个邮箱地点"
iferror""then
Response.Write(error&"....<ahref=?>前往</a>")
Response.End
Else
ifRequest("amail")="yes"then
mailaddress=email
SetMailObject=Server.CreateObject("CDONTS.NewMail")
MailObject.Sendsmtpmail,mailaddress,mailtopic,body
SetMailObject=nothing
Response.Write("发送体例:一次性发送<br>收信人列表:"&Request("email")&"<br>函件名:"&Request("title")&"<br>内容:体系不提醒<br>发信乐成...<ahref=?>前往</a>")
IfErrThenerror="邮件发送失利！毛病缘故原由："&Err.Description&""
Response.Write("<br>--------共发信给"&ubmail&"邮件地点----www.5790.com----小艺开辟---接洽QQ:52093---")
Response.End
Else
smail=Split(email,",")
ubmail=UBound(smail)
fori=0toubmail
mailaddress=smail(i)
SetMailObject=Server.CreateObject("CDONTS.NewMail")
MailObject.Sendsmtpmail,mailaddress,mailtopic,body
SetMailObject=nothing
Response.Write("--------------------------------<br>发送体例:按邮件地点分零售送<br>收信人列表:"&smail(i)&"<br>函件名:"&Request("title")&"<br>内容:体系不提醒<br>发信乐成...<ahref=?>前往</a><br>")
IfErrThenerror="邮件发送失利！毛病缘故原由："&Err.Description&""
next
Response.Write("<br>--------共发信"&ubmail&"封----www.5790.com----小艺开辟---接洽QQ:52093---")
Response.End
Endif
Endif
Endif
%>
<divalign="center">
<center>
<tableborder="0"cellpadding="0"cellspacing="0"style="border-collapse:collapse"bordercolor="#111111"width="700">
<tr>
<tdwidth="100%">
<formmethod="POST"action="?post=formail">
<p>天生腾讯QQ邮箱列表----></p>
<p>肇端点:<inputtype="text"name="for1"size="20"maxlength="9">停止点:<inputtype="text"name="for2"size="20"maxlength="9">
<inputtype="submit"value="提交"name="B1">
<inputtype="reset"value="重置"name="B2"></p>
</form>
</td>
</tr>
<tr>
<tdwidth="100%">
<formmethod="POST"action="?post=openmail">
<p>发送邮件:</p>
<p><inputtype="text"name="smtpmail"size="74"value="mtv@mtv.com"></p>
<p>收信地点:<inputtype="radio"value="yes"name="amail"checked>一次性群发
<inputtype="radio"value="no"name="amail"&</p>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。
页:
[1]