第七课手把手教你用ASP开发WAP网站

用ASP开发WAP新闻系统--新闻的回复的显示跟回复列表 接下来的工作，就是回复的显示跟回复列表文件了。 先打开p文件，在快速回复上面，即ite("

=*=*=*=*=*=

")上面，插入以下代码： '//读取最后一条回复 Dim rsReply Set rsReply=ecute("Select top 1 content from [NewsComment] where newsID="& ID &" order by ID desc") If Not f Then ite("

=*=*=*=*=*=

") ite ("最新回复：

"&_ replaceStr(rsReply(0))&"

"&_ "阅读所有回复") End If ose() set rsReply=nothing 这段代码主要是读取回复表里关于这条新闻的最后一条回复。相信大家都对这段代码的意思非常清楚了，这里就不多罗索！ 保存文件之后，回到刚才的调试页面，刷新页面看一看，嘿嘿，刚刚回复的内容就显示出来了！请看图6-2的效果。[img][/img] 新闻回复列表文件的完成： 同样是新建立一个文本文件，将文件名修改为p，保存文件编码为UTF-8。复制以下代码： 1 then ite "

[跳转到该页]" Else ite ("暂无回复内容！") End If Call rsClose() Call ConnClose() ite ("

=*=*=*=*=*=

") ite ("快速回复：

"&_ "

"&_ "马上回复"&_ ""&_ ""&_ ""&_ ""&_ ""&_ "") %>

=*=*=*=*=*=

">返回新闻内容

返回网站首页

这些代码是不是很眼熟咧，其实它跟新闻列表文件的代码几乎是一样的，只是读取的数据库跟数据库表不同而已！ 保存文件后，进行相应的调试，然后传到空间里，用手机再测试一下效果！

中山代理记账电话

中山筹划税务企业

深圳代理记账收费