上一篇：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