用ASP开发WAP新闻系统--新闻的回复功能与回复显示

这一课，我们将通过增加新闻的回复功能了解WML表单的使用，深入了解WAP站点表单数据传输过程中应该注意的一些问题。

首先，打开NewsShow.asp文件，并在if pagecount>2 then response.write "

value="""&page&""" type=""text"" maxlength=""5""/>
[跳转到该页]" 和 Else 之间加入

以下代码：

Response.Write("
=*=*=*=*=*=
")
Response.Write ("快速回复：
"&_
"
"&_
"马上回复"&_
""&_
""&_
""&_
""&_
""&_
"")

代码解释：
这是WML用POST方式传输表单数据的代码。当然，输入框input可以有多个，并在之间相应添加postfield就可以了，名字要一一对应！
emptyok=""true"" 是指该输入框可以为空，在一般情况下，建议加上这一句，否则有些手机在点别的链接的时候，总会提示出错。
（content"&ID&":n）加上"&ID&"是为了避免手机缓存致使每条新闻的回复框都出现之前输入的回复内容，你当然也可以将其改成（$content:n）
（$content:n）是WML变量的写法，以$符号开头，WML中表单提交有:n，:e，:u，和空，四种状态，其中:n是强制不进行URL转义;:e是转义;:u是反转义。

传输中文数据的时候，一定要用POST方式。如果你只传输英文或者数字，可以使用GET方式进行传输。格式如下：
马上回复

在这里 $(content"&ID&") 里的:n和&Method=GET"可以省略掉。但是，&绝对不可以写成&，否则页面执行时将出错！

清楚上面的代码之后，我们来运行调试一下！打开Opera，输入网址：">
现在，我们来制作保存页面。新建一个文本文件，将文件名重命名为：SaveReply.asp，打开文件，将文件的编码保存为UTF-8，复制以下代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" ' 将文件的格式转换成wml，编码为UTF-8
%>


新闻回复列表文件的完成：
同样是新建立一个文本文件，将文件名修改为ReplyList.asp，保存文件编码为UTF-8。复制以下代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" ' 将文件的格式转换成wml，编码为UTF-8
%>

阅读所有回复

=*=*=*=*=*=

<%
Dim ID,rs
ID=int(request.QueryString("ID"))

Call openConn() ' 打开数据库
Set rs=conn.execute("Select content From [NewsComment] where newsID="& ID &"") ' 读取新闻回复表
If Not rs.eof Then
Dim PageSize,i
PageSize=10 ' 每一页显示的条数
Dim Count,page,pagecount,gopage ' 定义相关变量
gopage="ReplyList.asp?ID="&ID&"&"
Count=conn.execute("Select count(ID) from [NewsComment] where newsID="& ID &"")(0) ' 读取回复总数
page=int(request.QueryString ("page"))
if page<=0 or page="" then page=1 ' 默认为第一页
pagecount=(count+pagesize-1)\pagesize ' 计算出页数
rs.move(pagesize*(page-1)) ' 将游标指到每一页的第一条记录
For i=1 To PageSize ' 根据每一页的条数进行循环
If rs.eof Then Exit For ' 如果循环到了尽头，则跳出循环
Response.Write (i+(PageSize*(page-1))&"."&replaceStr(rs(0))&_
"
-=-=-=-=-=-
")
rs.moveNext
Next
response.write ("共:"&count&"条,"&page&"/"&pagecount&"页")
if page-pagecount<0 then response.write "
下页-
href="""&gopage&"page="&pagecount&""">尾页"
if page>1 then response.write "
上页-首页

"
' //下面这一句，是让用户通过输入框输入页数，然后通过链接直接转向该页
if pagecount>1 then response.write "

maxlength=""5"" emptyok=""true""/>
[跳转到该页]"
Else
Response.Write ("暂无回复内容！")
End If
Call rsClose()
Call ConnClose()

Response.Write ("
=*=*=*=*=*=
")
Response.Write ("快速回复：
"&_
"
"&_
"马上回复"&_
""&_
""&_
""&_
""&_
""&_
"")
%>

=*=*=*=*=*=

返回新闻内容

返回网站首页

这些代码相信大家都非常熟悉，其实它跟新闻列表文件的代码几乎是一样的，只是读取的数据库跟数据库表不同而已！具体就不多讲了。

在本地调试无错误之后，我们把代码传送到远程空间，用手机测试一下！