上一篇：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"%〉
〈?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")
%〉
收件人:
〈input type="text" title="收件人" name="tomail" size="12" maxlength="50"/〉〈br/〉
标题:
〈input type="text" title="标题" name="subject" size="12" maxlength="50"/〉
〈br/〉内容:
〈input type="text" title="内容" name="body" size="12" maxlength="250"/〉〈br/〉
〈do type="accept" label="发送" optional="false"〉
〈go href="sendok.asp?user=〈%=user%〉&pwd=〈%=pwd%〉" method="post" accept-charset="utf-8"〉
〈postfield name="from" value="$(from)"/〉
〈postfield name="tomail" value="$(tomail)"/〉
〈postfield name="subject" value="$(subject)"/〉
〈postfield name="body" value="$(body)"/〉〈/go〉
〈/do〉
〈/p〉
〈p〉
〈a href="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"%〉
〈?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")
tomail=request("tomail")
'from=request.form("from")
subject=request.form("subject")
body=request.form("body")
servermail=user+"@sohu.com"
dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.from =""&ServerMail&"" '为发件人
JMail.AddRecipient tomail
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")
Set JMail=nothing
if sendok then
response.write "发送成功!〈a href='main.asp?user="&user&"&pwd="&pwd&"'〉返回邮箱〈/a〉"
else
response.write "发送失败!〈a href='send.asp?user="&user&"&pwd="&pwd&"'〉返回邮箱〈/a〉"
end if
%〉
〈/p〉
〈/card〉
〈/wml〉
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" "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
〈% @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")
id=request("id")
page=request("page")
Set pop3 = Server.CreateObject( "JMail.POP3" )
' POP3的连接用户名,密码,POP3地址
pop3.connect user,pwd,"http://pop3.sohu.com"
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
〈% @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")
id=request("id")
Set pop3 = Server.CreateObject( "JMail.POP3" )
' POP3的连接用户名,密码,POP3地址
pop3.connect user,pwd,"http://pop3.sohu.com"
pop3.deletesinglemessage id
pop3.Disconnect
Set JMail=nothing
response.write delok&"删除成功!〈a href='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"%〉
〈?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")
tomail=request("mailto")
%〉
收件人:
〈%=tomail%〉〈br/〉
标题:
〈input type="text" title="标题" name="subject" size="8" maxlength="50"/〉
〈br/〉内容:
〈input type="text" title="内容" name="body" size="8" maxlength="250"/〉〈br/〉
〈do type="accept" label="发送" optional="false"〉
〈go href="sendok.asp?user=〈%=user%〉&pwd=〈%=pwd%〉&tomail=〈%=tomail%〉" method="post" accept-charset="utf-8"〉
〈postfield name="subject" value="$(subject)"/〉
〈postfield name="body" value="$(body)"/〉〈/go〉
〈/do〉
〈/p〉
〈p〉
〈a href="email_list.asp?user=〈%=user%〉&pwd=〈%=pwd%〉"〉返回收件箱〈/a〉〈br/〉
〈a href="main.asp?user=〈%=user%〉&pwd=〈%=pwd%〉"〉返回邮箱〈/a〉〈/p〉
〈/card〉
〈/wml〉
虽然这套系统可以实现邮件的发送、接收、回复、删除等功能，但是很多方面都是非常欠缺的，比如接收邮件时不能够显示出未读邮件,邮件不能够按照发送邮件的先后顺序排序等等，希望大家有兴趣帮忙多多完善，有什么好的想法好的建议多与我交流,欢迎来信sn1985boy@sohu.com。