安全阀厂家
免费服务热线

Free service

hotline

010-00000000
安全阀厂家
热门搜索:
技术资讯
当前位置:首页 > 技术资讯

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

发布时间:2020-02-03 07:34:49 阅读: 来源:安全阀厂家

用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 ("快速回复:

"&_ "

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

=*=*=*=*=*=

">返回新闻内容

返回网站首页

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

Wendy性感图片

极品美乳大全

熟妇丝袜福利