制作WAP留言本[ASP教程]
时间：[2005-12-14 18:07:49] 作者：未知
留言本的程序包括：发贴，保存，显示，编辑，回复，删除。
整个的后台管理＋前台显示，也就这几个功能。
注意：以下代码，如果你是使用EditPlus编写的，请在保存的时候选择，另存为“UTF-8”编码。如果不这么做，你就会遇到WML中传递中文变量，出现乱码的问题了。
以ASP为例。那我们就先从发贴页面做起，add.asp
指定ASP页面所用的脚本和编码，CODEPAGE="65001"这个一定不能少，是表示UTF-8编码，GB2312是CODEPAGE="936"。
先声名WML的头文件信息，这样即使你用的是虚拟的空间，也不用在IIS或者是Apache里面映射MIME文件类型。
声名WML的头文件信息，这个是规定，规定了WAP的版本和采用的标准，如果不明白就这么写就行了，不变的，但是必须要加上。 其中encoding也是指定编码。
接下来就是页面的显示代码了
简单介绍一下：wml类似html标签，card代表一个卡片，这里简单理解为一个页面就行了，注意：所有的显示的内容都要放在<p> </p>标签里面，一定要注意这点，要不然就会出错。
在meta中指定不缓存页面。
emptyok不允许为空，maxlength允许输入的文字最大长度。
WML的表单提交有点不同，<postfile name="title" value="($title:n)" />是把input表单的值附给title变量，name="title" 是变量名， value="($title:n)"是变量，即input中输入的信息，content也是一样。
注：这里($title:n)是WML变量的写法，以$符号开头，类似PHP的变量声名，WML中表单提交有:n，:e，:u，和空，四种状态，其中:n是强制不进行URL转义；:e是转义；:u是反转义；如果为空，在有的手机上默认是不转义，有的是转义， 规范不统一，安全期间，如果不转义，还是写上:n为好。
WAP的变量提交也分两种情况，GET和POST，使用GET方法，对中文的支持并不是很好，所以有使用到表单提交的地方，都改为POST方式提交，代码格式为：
当然对于英文和数字，简单的，使用GET方式提交会比较方便一些，代码格式为：
注：连接不同变量字符的&符号要写为&
发表留言页面add.asp的代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
接下来是保存数据。
保存页面save.asp，代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
最后是显示把留言的内容显示出来。
显示数据的时候需要注意字符的替换，因为有些字符是不能直接显示的，需要转换为Ascii码，在WML里面“$”符号是表示变量，如果要显示“$”，需要写为“$$”，例：“一共有$$315元RMB”，显示为“一共有$315元RMB”。
必须要替换的字符，已经写为函数，方便大家使用。
显示留言的页面index.asp，代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
后台管理页面admin.asp，代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
连接数据库conn.asp，代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
源码下载地址：点击下载
其他说明：有任何疑问，请访问：http://www.designer5.net或
蓝色理想论坛WAP版：http://www.blueidea.com/bbs
广告：蓝色理想WAP网站改版了，使用手机访问http://wap.blueidea.com
如果您参考了此程序，有WAP站点，请做上http://wap.blueidea.com的链接。
整个的后台管理＋前台显示，也就这几个功能。
注意：以下代码，如果你是使用EditPlus编写的，请在保存的时候选择，另存为“UTF-8”编码。如果不这么做，你就会遇到WML中传递中文变量，出现乱码的问题了。
以ASP为例。那我们就先从发贴页面做起，add.asp
指定ASP页面所用的脚本和编码，CODEPAGE="65001"这个一定不能少，是表示UTF-8编码，GB2312是CODEPAGE="936"。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
先声名WML的头文件信息，这样即使你用的是虚拟的空间，也不用在IIS或者是Apache里面映射MIME文件类型。
<% Response.ContentType="text/vnd.wap.wml;charset=UTF-8" %>
声名WML的头文件信息，这个是规定，规定了WAP的版本和采用的标准，如果不明白就这么写就行了，不变的，但是必须要加上。 其中encoding也是指定编码。
<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "htt
p://www.wapforum.org/DTD/wml_1.1.xml">
接下来就是页面的显示代码了
<card id="add" title="经典WAP留言本"> <p> 昵称：<br/> <input name="Name" emptyok="false" size="10" maxlength="10"/><br/> 标题：<br/> <input name="Title" emptyok="false" maxlength="40"/><br/> 内容：<br/> <input name="Content" format="false" maxlength="150"/><br/> </p> </card>
简单介绍一下：wml类似html标签，card代表一个卡片，这里简单理解为一个页面就行了，注意：所有的显示的内容都要放在<p> </p>标签里面，一定要注意这点，要不然就会出错。
<meta http-equiv="Cache-Control" content="max-age=0"/> <meta http-equiv="Cache-Control" content="no-cache"/>
在meta中指定不缓存页面。
<input name="Title" emptyok="false" maxlength="40"/><br/>
emptyok不允许为空，maxlength允许输入的文字最大长度。
WML的表单提交有点不同，<postfile name="title" value="($title:n)" />是把input表单的值附给title变量，name="title" 是变量名， value="($title:n)"是变量，即input中输入的信息，content也是一样。
注：这里($title:n)是WML变量的写法，以$符号开头，类似PHP的变量声名，WML中表单提交有:n，:e，:u，和空，四种状态，其中:n是强制不进行URL转义；:e是转义；:u是反转义；如果为空，在有的手机上默认是不转义，有的是转义， 规范不统一，安全期间，如果不转义，还是写上:n为好。
WAP的变量提交也分两种情况，GET和POST，使用GET方法，对中文的支持并不是很好，所以有使用到表单提交的地方，都改为POST方式提交，代码格式为：
<anchor>POST方式提交 <go href="save.asp" method="post"> <postfield name="Name" value="$(Name:n)" /> <postfield name="Title" value="$(Title:n)" /> <postfield name="Content" value="$(Content:n)" /> <postfield name="Method" value="POST" /> </go> </anchor>
当然对于英文和数字，简单的，使用GET方式提交会比较方便一些，代码格式为：
<a href="save.asp?Name=$(Name:n)&Title=$(Title:n)&Co
ntent=$(Content:n)&Method=GET">GET方式提交</a>
注：连接不同变量字符的&符号要写为&
发表留言页面add.asp的代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
接下来是保存数据。
保存页面save.asp，代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
最后是显示把留言的内容显示出来。
显示数据的时候需要注意字符的替换，因为有些字符是不能直接显示的，需要转换为Ascii码，在WML里面“$”符号是表示变量，如果要显示“$”，需要写为“$$”，例：“一共有$$315元RMB”，显示为“一共有$315元RMB”。
必须要替换的字符，已经写为函数，方便大家使用。
Function outHTM(str) ' 把字符串进行HTM解码,输出字符串 Dim sTemp sTemp = str outHTM = "" If IsNull(sTemp) Then Exit Function End If sTemp = Replace(sTemp, "'", "'") '还原单引号 sTemp = Replace(sTemp, "&", "&") sTemp = Replace(sTemp, "<", "<") sTemp = Replace(sTemp, ">", ">") sTemp = Replace(sTemp, "$", "$$") sTemp = Replace(sTemp, "", " ") sTemp = Replace(sTemp, Chr(10), "<br/>") outHTM = sTemp End Function
显示留言的页面index.asp，代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
后台管理页面admin.asp，代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
连接数据库conn.asp，代码如下：
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
源码下载地址：点击下载
其他说明：有任何疑问，请访问：http://www.designer5.net或
蓝色理想论坛WAP版：http://www.blueidea.com/bbs
广告：蓝色理想WAP网站改版了，使用手机访问http://wap.blueidea.com
如果您参考了此程序，有WAP站点，请做上http://wap.blueidea.com的链接。
【声明】本站刊载的《制作WAP留言本[ASP教程]》一文如果有侵害你权益的情况，请联系我们。我们将及时采取措施。
QQ：44637339 Email:just6@163.com Tel:13355163107 Lining studios
