ASP网页编程之ASP开辟WAP浅易邮件体系实例(续)
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。 上一篇：ASP开辟WAP浅易邮件体系实例3)发送邮件
图五
发送邮件功效的完成次要接纳了Jmail.Message工具完成，关于所要用到的工具相干常识在后面已叙说过了，人人能够将下面的功效先容与源码对比起来浏览，如许有助于了解全部邮件发送历程，固然假如将WM元素换为HTMLF元素，如许一个复杂的WEB邮件发送功效也就完成了，send.asp为邮件发送页面sendok.asp为邮件发送处置页面
Send.asp
〈%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%〉
〈%Response.ContentType="text/vnd.wap.wml;charset=UTF-8"%〉
〈?xmlversion="1.0"encoding="utf-8"?〉
〈!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml"〉
〈wml〉
〈cardid="main"title="发件箱"〉
〈p〉
〈%
user=request("user")
pwd=request("pwd")
%〉
收件人:
〈inputtype="text"title="收件人"name="tomail"size="12"maxlength="50"/〉〈br/〉
题目:
〈inputtype="text"title="题目"name="subject"size="12"maxlength="50"/〉
〈br/〉内容:
〈inputtype="text"title="内容"name="body"size="12"maxlength="250"/〉〈br/〉
〈dotype="accept"label="发送"optional="false"〉
〈gohref="sendok.asp?user=〈%=user%〉&pwd=〈%=pwd%〉"method="post"accept-charset="utf-8"〉
〈postfieldname="from"value="$(from)"/〉
〈postfieldname="tomail"value="$(tomail)"/〉
〈postfieldname="subject"value="$(subject)"/〉
〈postfieldname="body"value="$(body)"/〉〈/go〉
〈/do〉
〈/p〉
〈p〉
〈ahref="main.asp?user=〈%=user%〉&pwd=〈%=pwd%〉"〉前往邮箱〈/a〉〈/p〉
〈/card〉
〈/wml〉
Sendok.asp
〈%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%〉
〈%Response.ContentType="text/vnd.wap.wml;charset=UTF-8"%〉
〈?xmlversion="1.0"encoding="utf-8"?〉
〈!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml"〉
〈wml〉
〈cardid="main"title="发送邮件"〉
〈p〉
〈%
user=request("user")
pwd=request("pwd")
tomail=request("tomail")
from=request.form("from")
subject=request.form("subject")
body=request.form("body")
servermail=user+"@sohu.com"
dimJMail
setJMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset="gb2312"
JMail.from=""&ServerMail&""为发件人
JMail.AddRecipienttomail
JMail.Subject=""&subject&""
jmail.Body=""&body&"----------你以后利用的众赢掌中邮体系，概况请会见:http://www.palmmail.cn邮通世界剑拔弩张！----------"
JMail.MailServerUserName=user
JMail.MailServerPassWord=pwd
JMail.MailDomain="www.sohu.com"
JMail.Priority=2
sendok=JMail.send("smtp.sohu.com")
SetJMail=nothing
ifsendokthen
response.write"发送乐成!〈ahref=main.asp?user="&user&"&pwd="&pwd&"〉前往邮箱〈/a〉"
else
response.write"发送失利!〈ahref=send.asp?user="&user&"&pwd="&pwd&"〉前往邮箱〈/a〉"
endif
%〉
〈/p〉
〈/card〉
〈/wml〉
4)吸收邮件
图六
吸收邮件次要由两部分构成，第一部分为邮件列表，依据所取得的邮件总数(pop3.count)举行分页显现。第二部分为每封信的详细内容，个中包含对附件举行检测功效，因为手机扫瞄时其实不能翻开附件，因而本体系只对附件作了检测并提示用户邮件是不是包括邮件功效。
源码以下：
邮件列表：email_list.asp
〈%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%〉
〈%Response.ContentType="text/vnd.wap.wml;charset=UTF-8"%〉
〈?xmlversion="1.0"encoding="utf-8"?〉
〈!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml"〉
〈wml〉
〈cardid="main"title="收件箱"〉
〈p〉
〈%
user=request("user")
pwd=request("pwd")
dimperpage_num,curpage,totalpage
perpage_num=3设每页显现条数
ifrequest("page")=""then
curpage=1以后页
else
curpage=int(request("page"))
endif
Setpop3=Server.CreateObject("JMail.POP3")
pop3.connectuser,pwd,"http://pop3.sohu.com"
POP3的毗连用户名,暗码,POP3地点
ifpop3.countmodperpage_num〈〉0then
totalpage=int(pop3.count/perpage_num)+1
else
totalpage=int(pop3.count/perpage_num)
endif
Response.Write("你如今有"&pop3.count&"封邮件。分"&totalpage&"页，以后"&curpage&"页〈br/〉---------------------〈br/〉")
ifpop3.count〉0then假如没有邮件则显现无邮件
ifpop3.count〉=perpage_num*curpagethen
fori=(curpage-1)*perpage_numtocurpage*perpage_num-1%〉
〈ahref="email_info.asp?id=〈%=i+1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉&page=〈%=curpage%〉"〉〈%=pop3.messages.item(i+1).Subject%〉--〈%=pop3.messages.item(i+1).date%〉〈/a〉〈br/〉
〈%next
%〉
〈%ifcurpage〉1then%〉
〈ahref="email_list.asp?page=〈%=curpage-1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉"〉上一页〈/a〉
〈%endif%〉
〈%ifint(curpage)〈int(totalpage)then%〉
〈ahref="email_list.asp?page=〈%=curpage+1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉"〉下一页〈/a〉
〈%endif%〉
〈%
else
fori=(curpage-1)*perpage_numtopop3.count-1%〉
〈ahref="email_info.asp?id=〈%=i+1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉&page=〈%=curpage%〉"〉〈%=pop3.messages.item(i+1).Subject%〉--〈%=pop3.messages.item(i+1).date%〉〈/a〉〈br/〉
〈%next%〉
〈%ifcurpage〉1then%〉
〈ahref="email_list.asp?page=〈%=curpage-1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉"〉上一页〈/a〉
〈%endif%〉
〈%ifint(curpage)〈int(totalpage)then%〉
〈ahref="email_list.asp?page=〈%=curpage+1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉"〉下一页〈/a〉
〈%endif%〉
〈%
endif
else
response.write("暂无邮件!")
endif
pop3.Disconnect
%〉
〈/p〉
〈p〉
〈ahref="main.asp?user=〈%=user%〉&pwd=〈%=pwd%〉"〉前往邮箱〈/a〉
〈/p〉
〈/card〉
〈/wml〉
邮件具体信息：email_info.asp
〈%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%〉
〈%Response.ContentType="text/vnd.wap.wml;charset=UTF-8"%〉
〈?xmlversion="1.0"encoding="utf-8"?〉
〈!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml"〉
〈wml〉
〈cardid="main"title="检察邮件"〉
〈p〉
〈%
user=request("user")
pwd=request("pwd")
id=request("id")
page=request("page")
Setpop3=Server.CreateObject("JMail.POP3")
POP3的毗连用户名,暗码,POP3地点
pop3.connectuser,pwd,"http://pop3.sohu.com"
Setmsg=pop3.Messages.item(id)
ReTo=""
ReCC=""
SetRecipients=msg.Recipients
separator=","
Fori=0ToRecipients.Count-1
Ifi=Recipients.Count-1Then
separator=""
EndIf
Setre=Recipients.item(i)
Ifre.ReType=0Then
ReTo=ReTo&re.Name&re.EMail&separator
else
ReCC=ReTo&re.Name&re.EMail&separator
EndIf
Next
body=msg.body
body=replace(body,"〈","")
body=replace(body,"〉","")
SetAttachments=msg.Attachments
%〉
〈ahref="email_title.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&page=〈%=page%〉"〉前往上一页〈/a〉〈ahref="reply.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&mailto=〈%=msg.From%〉"〉复兴〈/a〉〈ahref="email_del.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&id=〈%=id%〉"〉删除〈/a〉
〈/p〉
〈p〉
发件人：〈%=msg.FromName%〉--〈%=msg.date%〉〈br/〉
题目：〈%=msg.Subject%〉〈br/〉
内容：〈%=body%〉〈br/〉
〈%
ifAttachments.Count〉0then
response.Write("函件中包括附件，请经由过程收集查收！")
endif
pop3.Disconnect
%〉
〈/p〉
〈p〉
〈ahref="email_list.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&page=〈%=page%〉"〉前往上一页〈/a〉〈ahref="reply.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&mailto=〈%=msg.From%〉"〉复兴〈/a〉〈ahref="email_del.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&id=〈%=id%〉"〉删除〈/a〉
〈/p〉
〈/card〉
〈/wml〉
5)删除邮件
本功效与邮件复兴功效一样，为邮件检察页面的一个子功效，经由过程MessageID传送完成删除邮件。
源码：email_del.asp
〈%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%〉
〈%Response.ContentType="text/vnd.wap.wml;charset=UTF-8"%〉
〈?xmlversion="1.0"encoding="utf-8"?〉
〈!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml"〉
〈wml〉
〈cardid="main"title="删除乐成"〉
〈p〉
〈%
user=request("user")
pwd=request("pwd")
id=request("id")
Setpop3=Server.CreateObject("JMail.POP3")
POP3的毗连用户名,暗码,POP3地点
pop3.connectuser,pwd,"http://pop3.sohu.com"
pop3.deletesinglemessageid
pop3.Disconnect
SetJMail=nothing
response.writedelok&"删除乐成!〈ahref=email_list.asp?user="&user&"&pwd="&pwd&"〉前往收件箱〈/a〉"
%〉
〈/p〉
〈/card〉
〈/wml〉
6)复兴邮件
复兴邮件基础与发送邮件不异，只是将发送人由本来的手工输出改成经由过程URL参数传送，固然也能够将邮件主体内容传送到复兴邮件的主体中，但因为现今手机上彀基础接纳流量免费的体例，为了削减流量就省往了这些功效，详细代码以下：
Reply.asp
〈%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%〉
〈%Response.ContentType="text/vnd.wap.wml;charset=UTF-8"%〉
〈?xmlversion="1.0"encoding="utf-8"?〉
〈!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.1//EN""http://www.wapforum.org/DTD/wml_1.1.xml"〉
〈wml〉
〈cardid="main"title="发件箱"〉
〈p〉
〈%
user=request("user")
pwd=request("pwd")
tomail=request("mailto")
%〉
收件人:
〈%=tomail%〉〈br/〉
题目:
〈inputtype="text"title="题目"name="subject"size="8"maxlength="50"/〉
〈br/〉内容:
〈inputtype="text"title="内容"name="body"size="8"maxlength="250"/〉〈br/〉
〈dotype="accept"label="发送"optional="false"〉
〈gohref="sendok.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&tomail=〈%=tomail%〉"method="post"accept-charset="utf-8"〉
〈postfieldname="subject"value="$(subject)"/〉
〈postfieldname="body"value="$(body)"/〉〈/go〉
〈/do〉
〈/p〉
〈p〉
〈ahref="email_list.asp?user=〈%=user%〉&pwd=〈%=pwd%〉"〉前往收件箱〈/a〉〈br/〉
〈ahref="main.asp?user=〈%=user%〉&pwd=〈%=pwd%〉"〉前往邮箱〈/a〉〈/p〉
〈/card〉
〈/wml〉
固然这套体系能够完成邮件的发送、吸收、复兴、删除等功效，可是良多方面都长短常完善的，好比吸收邮件时不克不及够显现出未读邮件,邮件不克不及够依照发送邮件的前后按次排序等等，但愿人人有乐趣协助多多完美，有甚么好的设法好的倡议多与我交换,接待来信sn1985boy@sohu.com。
ASP脚本是采用明文（plaintext）方式来编写的。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 不能只是将它停留在纸上谈兵的程度上。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。
页:
[1]