ASP开发WAP简易邮件系统实例(续)
2007-07-19 12:04:23 来源:WEB开发网核心提示:3) 发送邮件图五发送邮件功能的实现主要采用了Jmail.Message对象完成,关于所要用到的对象相关知识在前面已经叙述过了,ASP开发WAP简易邮件系统实例(续),大家可以将上面的功能介绍与源码对照起来阅读,这样有助于理解整个邮件发送过程,当然如果将WM元素换为HTMLF元素,这样一个简单的WEB邮件发送功能也就完
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
更多精彩
赞助商链接