ASP开发WAP简易邮件系统实例(续)

2022-07-15 80酷酷网 80kuku.com

　　上一篇：

　　3) 发送邮件

开发简易邮件系统实例续
图五

　　发送邮件功能的实现主要采用了Jmail.Message对象完成，关于所要用到的对象相关知识在前面已经叙述过了，大家可以将上面的功能介绍与源码对照起来阅读，这样有助于理解整个邮件发送过程，当然如果将WM元素换为HTMLF元素，这样一个简单的WEB邮件发送功能也就完成了，send.asp为邮件发送页面 sendok.asp为邮件发送处理页面

　　Send.asp

　　Sendok.asp

　　4) 接收邮件

开发简易邮件系统实例续
图六

　　接收邮件主要由两部分组成，第一部分为邮件列表，根据所获得的邮件总数(pop3.count)进行分页显示。第二部分为每封信的具体内容，其中包括对附件进行检测功能，由于手机浏览时并不能打开附件，因此本系统只对附件作了检测并提醒用户邮件是否包含邮件功能。

　　源码如下：

　　邮件列表：email_list.asp

　　〈% LANGUAGE="VBSCRIPT" CODEPAGE="65001" %〉
　　〈%Response.ContentType = "text/vnd.wap.wml; charset=UTF-8"%〉
　　〈?xml version="1.0" encoding="utf-8"?〉
　　〈!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" ""〉
　　〈wml〉
　　〈card id="main" title="收件箱"〉
　　〈p〉
　　〈%
　　user=request("user")
　　pwd=request("pwd")
　　dim perpage_num,curpage,totalpage
　　perpage_num=3 '设每页显示条数
　　if request("page")="" then
　　curpage=1 '当前页
　　else
　　curpage=int(request("page"))
　　end if
　　Set pop3 = Server.CreateObject( "JMail.POP3" )
　　pop3.connect user,pwd,""
　　' POP3的连接用户名,密码,POP3地址
　　if pop3.count mod perpage_num〈〉0 then
　　totalpage=int(pop3.count / perpage_num)+1
　　else
　　totalpage=int(pop3.count / perpage_num)
　　end if
　　Response.Write( "你现在有" & pop3.count & " 封邮件。分"&totalpage&"页，当前"&curpage&"页〈br/〉---------------------〈br/〉" )
　　if pop3.count 〉 0 then '如果没有邮件则显示无邮件
　　if pop3.count〉=perpage_num*curpage then
　　for i=(curpage-1)*perpage_num to curpage*perpage_num-1%〉
　　〈a href="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
　　%〉
　　〈%if curpage〉1 then%〉
　　〈a href="email_list.asp?page=〈%=curpage-1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉"〉上一页〈/a〉
　　〈%end if%〉
　　〈%if int(curpage)〈int(totalpage) then%〉
　　〈a href="email_list.asp?page=〈%=curpage+1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉"〉下一页〈/a〉
　　〈%end if%〉
　　〈%
　　else
　　for i=(curpage-1)*perpage_num to pop3.count-1%〉
　　〈a href="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%〉
　　〈%if curpage〉1 then%〉
　　〈a href="email_list.asp?page=〈%=curpage-1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉"〉上一页〈/a〉
　　〈%end if%〉
　　〈%if int(curpage)〈int(totalpage) then%〉
　　〈a href="email_list.asp?page=〈%=curpage+1%〉&user=〈%=user%〉&pwd=〈%=pwd%〉"〉下一页〈/a〉
　　〈%end if%〉
　　〈%
　　end if
　　else
　　response.write("暂无邮件!")
　　end if
　　pop3.Disconnect
　　%〉
　　〈/p〉
　　〈p〉
　　〈a href="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"%〉
　　〈?xml version="1.0" encoding="utf-8"?〉
　　〈!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" ""〉
　　〈wml〉
　　〈card id="main" title="查看邮件"〉
　　〈p〉
　　〈%
　　user=request("user")
　　pwd=request("pwd")
　　id=request("id")
　　page=request("page")
　　Set pop3 = Server.CreateObject( "JMail.POP3" )
　　' POP3的连接用户名,密码,POP3地址
　　pop3.connect user,pwd,""
　　Set msg = pop3.Messages.item(id)
　　ReTo = ""
　　ReCC = ""
　　Set Recipients = msg.Recipients
　　separator = ", "
　　For i = 0 To Recipients.Count - 1
　　If i = Recipients.Count - 1 Then
　　separator = ""
　　End If
　　Set re = Recipients.item(i)
　　If re.ReType = 0 Then
　　ReTo = ReTo & re.Name & re.EMail & separator
　　else
　　ReCC = ReTo & re.Name & re.EMail & separator
　　End If
　　Next
　　body=msg.body
　　body=replace(body,"〈","")
　　body=replace(body,"〉","")
　　Set Attachments = msg.Attachments
　　%〉
　　〈a href="email_title.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&page=〈%=page%〉"〉返回上一页〈/a〉〈a href="reply.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&mailto=〈%=msg.From%〉"〉回复〈/a〉〈a href="email_del.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&id=〈%=id%〉"〉删除〈/a〉
　　〈/p〉
　　〈p〉
　　发件人：〈%= msg.FromName %〉--〈%=msg.date%〉〈br/〉
　　标题：〈%= msg.Subject %〉〈br/〉
　　内容：〈%= body %〉〈br/〉
　　〈%
　　if Attachments.Count〉0 then
　　response.Write("信件中包含附件，请通过网络查收！")
　　end if
　　pop3.Disconnect
　　%〉
　　〈/p〉
　　〈p〉
　　〈a href="email_list.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&page=〈%=page%〉"〉返回上一页〈/a〉〈a href="reply.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&mailto=〈%=msg.From%〉"〉回复〈/a〉〈a href="email_del.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&id=〈%=id%〉"〉删除〈/a〉
　　〈/p〉
　　〈/card〉
　　〈/wml〉

　　5) 删除邮件

　　本功能与邮件回复功能一样，为邮件查看页面的一个子功能，通过MessageID传递实现删除邮件。

　　源码：email_del.asp

　　%〉
　　〈/p〉
　　〈/card〉
　　〈/wml〉

　　6) 回复邮件

　　回复邮件基本与发送邮件相同，只是将发送人由原来的手工输入改成通过URL参数传递，当然也可以将邮件主体内容传递到回复邮件的主体中，但由于当今手机上网基本采用流量收费的方式，为了减少流量就省去了这些功能，具体代码如下：

　　Reply.asp

　　虽然这套系统可以实现邮件的发送、接收、回复、删除等功能，但是很多方面都是非常欠缺的，比如接收邮件时不能够显示出未读邮件,邮件不能够按照发送邮件的先后顺序排序等等，希望大家有兴趣帮忙多多完善，有什么好的想法好的建议多与我交流,欢迎来信sn1985boysohu.com。