仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 329|回复: 7
打印 上一主题 下一主题

[学习教程] ASP网页编程之ASP开辟WAP浅易邮件体系实例(续)

[复制链接]
活着的死人 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:22:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,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:35 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
愤怒的大鸟 该用户已被删除
板凳
发表于 2015-1-24 15:46:25 | 只看该作者
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
飘灵儿 该用户已被删除
地板
发表于 2015-2-7 17:17:50 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
第二个灵魂 该用户已被删除
5#
发表于 2015-2-22 19:41:02 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
只想知道 该用户已被删除
6#
发表于 2015-3-7 01:57:59 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
海妖 该用户已被删除
7#
发表于 2015-3-14 07:24:00 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
若天明 该用户已被删除
8#
发表于 2015-3-21 01:16:51 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 09:48

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表