仓酷云

标题: ASP网页编程之ASP开辟WAP浅易邮件体系实例(续) [打印本页]

作者: 活着的死人 时间: 2015-1-16 22:22
标题: 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）方式来编写的。

作者: 山那边是海 时间: 2015-1-19 09:32
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 愤怒的大鸟 时间: 2015-1-24 15:46
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

作者: 飘灵儿 时间: 2015-2-7 17:17
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 第二个灵魂 时间: 2015-2-22 19:41
以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

作者: 只想知道 时间: 2015-3-7 01:57
不能只是将它停留在纸上谈兵的程度上。

作者: 海妖 时间: 2015-3-14 07:24
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 若天明 时间: 2015-3-21 01:16
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

欢迎光临仓酷云 (http://ckuyun.com/)