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

核心提示： 图六接收邮件主要由两部分组成，第一部分为邮件列表，ASP开发WAP简易邮件系统实例(续)(3)，根据所获得的邮件总数(pop3.count)进行分页显示，第二部分为每封信的具体内容，因此本系统只对附件作了检测并提醒用户邮件是否包含邮件功能，源码如下：邮件列表：email_list.asp〈

图六

接收邮件主要由两部分组成，第一部分为邮件列表，根据所获得的邮件总数(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" "http://www.wapforum.org/DTD/wml_1.1.xml"〉
　　〈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,"http://pop3.sohu.com"
　　' 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