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

核心提示： 本功能与邮件回复功能一样，为邮件查看页面的一个子功能，ASP开发WAP简易邮件系统实例(续)(5)，通过MessageID传递实现删除邮件，源码：email_del.asp〈% @LANGUAGE="VBSCRIPT" CODEPAGE="65001"

本功能与邮件回复功能一样，为邮件查看页面的一个子功能，通过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参数传递，当然也可以将邮件主体内容传递到回复邮件的主体中，但由于当今手机上网基本采用流量收费的方式，为了减少流量就省去了这些功能，具体代码如下：