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

　2007-07-19 12:04:23　来源：WEB开发网　　　

核心提示： Reply.asp〈% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %〉〈%Response.ContentType = "text/vnd.wap.wml; charset=UTF-8"%〉〈?x

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〉