【第七课】手把手教你用ASP开发WAP网站
时间:[2007-11-2 17:24:38] 作者:作者不详
用ASP开发WAP新闻系统--新闻的回复的显示跟回复列表
接下来的工作,就是回复的显示跟回复列表文件了。
先打开NewsShow.asp文件,在快速回复上面,即Response.Write("<br/>=*=*=*=*=*=<br/>")上面,插入以下代码:
'//读取最后一条回复
Dim rsReply
Set rsReply=conn.execute("Select top 1 content from [NewsComment] where newsID="& ID &" order by ID desc")
If Not rsReply.eof Then
Response.Write("<br/>=*=*=*=*=*=<br/>")
Response.Write ("最新回复:<br/>"&_
replaceStr(rsReply(0))&"<br/>"&_
"<a href=""ReplyList.asp?ID="& ID &""">阅读所有回复</a>")
End If
rsReply.close()
set rsReply=nothing
这段代码主要是读取回复表里关于这条新闻的最后一条回复。相信大家都对这段代码的意思非常清楚了,这里就不多罗索!
保存文件之后,回到刚才的调试页面,刷新页面看一看,嘿嘿,刚刚回复的内容就显示出来了!请看图6-2的效果。
新闻回复列表文件的完成:
同样是新建立一个文本文件,将文件名修改为ReplyList.asp,保存文件编码为UTF-8。复制以下代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="inc/config.asp"-->
<%
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml,编码为UTF-8 7WAP
%>
<?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>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/><!-- 每次都需通过连接服务器调用本页内容 -->
<meta http-equiv="Cache-Control" content="no-cache"/><!-- 禁止浏览器从缓存中访问页面内容 -->
</head>
<card id="ReplyList" title="阅读回复">
<p align="left"><!-- 页面居左对齐 -->阅读所有回复
<br/>=*=*=*=*=*=<br/>
<%
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 '默认为第一页 文章来源:www.7wap.cn,WAP资讯网
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))&_
"<br/>-=-=-=-=-=-<br/>")
rs.moveNext
Next
response.write ("共:"&count&"条,"&page&"/"&pagecount&"页")
if page-pagecount<0 then response.write "<br/><a href="""&gopage&"page="&page+1&""">下页-</a><a
href="""&gopage&"page="&pagecount&""">尾页</a>" www.7wap.cn提供WAP资讯服务
if page>1 then response.write "<br/><a href="""&gopage&"page="&page-1&""">上页-</a><a href="""&gopage&"page=1"">首页
</a>"
'//下面这一句,是让用户通过输入框输入页数,然后通过链接直接转向该页
if pagecount>1 then response.write "<br/><input name=""page"" format=""*N"" value="""&page&""" type=""text""
maxlength=""5"" emptyok=""true""/><br/><a href="""&gopage&"page=$(page)"">[跳转到该页]</a>"
Else
Response.Write ("暂无回复内容!")
End If
Call rsClose()
Call ConnClose()
Response.Write ("<br/>=*=*=*=*=*=<br/>")
Response.Write ("快速回复:<br/>"&_
"<input name=""content"&ID&""" emptyok=""true"" type=""text""/><br/>"&_
"<anchor>马上回复"&_
"<go href=""SaveReply.asp"" method=""post"">"&_
"<postfield name=""ID"" value="""&ID&""" />"&_
"<postfield name=""content"" value=""$(content"&ID&":n)"" />"&_
"<postfield name=""Method"" value=""POST"" />"&_
"</go>"&_
"</anchor>")
%>
<br/>=*=*=*=*=*=<br/>
<a href="NewsShow.asp?ID=<%=ID%>">返回新闻内容</a><br/> WAP资讯网
<a href="index.asp">返回网站首页</a><br/>
</p>
</card>
</wml>
这些代码是不是很眼熟咧,其实它跟新闻列表文件的代码几乎是一样的,只是读取的数据库跟数据库表不同而已!
保存文件后,进行相应的调试,然后传到空间里,用手机再测试一下效果!
接下来的工作,就是回复的显示跟回复列表文件了。
先打开NewsShow.asp文件,在快速回复上面,即Response.Write("<br/>=*=*=*=*=*=<br/>")上面,插入以下代码:
'//读取最后一条回复
Dim rsReply
Set rsReply=conn.execute("Select top 1 content from [NewsComment] where newsID="& ID &" order by ID desc")
If Not rsReply.eof Then
Response.Write("<br/>=*=*=*=*=*=<br/>")
Response.Write ("最新回复:<br/>"&_
replaceStr(rsReply(0))&"<br/>"&_
"<a href=""ReplyList.asp?ID="& ID &""">阅读所有回复</a>")
End If
rsReply.close()
set rsReply=nothing
这段代码主要是读取回复表里关于这条新闻的最后一条回复。相信大家都对这段代码的意思非常清楚了,这里就不多罗索!
保存文件之后,回到刚才的调试页面,刷新页面看一看,嘿嘿,刚刚回复的内容就显示出来了!请看图6-2的效果。
新闻回复列表文件的完成:
同样是新建立一个文本文件,将文件名修改为ReplyList.asp,保存文件编码为UTF-8。复制以下代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="inc/config.asp"-->
<%
Response.ContentType="text/vnd.wap.wml;charset=UTF-8" '将文件的格式转换成wml,编码为UTF-8 7WAP
%>
<?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>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/><!-- 每次都需通过连接服务器调用本页内容 -->
<meta http-equiv="Cache-Control" content="no-cache"/><!-- 禁止浏览器从缓存中访问页面内容 -->
</head>
<card id="ReplyList" title="阅读回复">
<p align="left"><!-- 页面居左对齐 -->阅读所有回复
<br/>=*=*=*=*=*=<br/>
<%
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 '默认为第一页 文章来源:www.7wap.cn,WAP资讯网
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))&_
"<br/>-=-=-=-=-=-<br/>")
rs.moveNext
Next
response.write ("共:"&count&"条,"&page&"/"&pagecount&"页")
if page-pagecount<0 then response.write "<br/><a href="""&gopage&"page="&page+1&""">下页-</a><a
href="""&gopage&"page="&pagecount&""">尾页</a>" www.7wap.cn提供WAP资讯服务
if page>1 then response.write "<br/><a href="""&gopage&"page="&page-1&""">上页-</a><a href="""&gopage&"page=1"">首页
</a>"
'//下面这一句,是让用户通过输入框输入页数,然后通过链接直接转向该页
if pagecount>1 then response.write "<br/><input name=""page"" format=""*N"" value="""&page&""" type=""text""
maxlength=""5"" emptyok=""true""/><br/><a href="""&gopage&"page=$(page)"">[跳转到该页]</a>"
Else
Response.Write ("暂无回复内容!")
End If
Call rsClose()
Call ConnClose()
Response.Write ("<br/>=*=*=*=*=*=<br/>")
Response.Write ("快速回复:<br/>"&_
"<input name=""content"&ID&""" emptyok=""true"" type=""text""/><br/>"&_
"<anchor>马上回复"&_
"<go href=""SaveReply.asp"" method=""post"">"&_
"<postfield name=""ID"" value="""&ID&""" />"&_
"<postfield name=""content"" value=""$(content"&ID&":n)"" />"&_
"<postfield name=""Method"" value=""POST"" />"&_
"</go>"&_
"</anchor>")
%>
<br/>=*=*=*=*=*=<br/>
<a href="NewsShow.asp?ID=<%=ID%>">返回新闻内容</a><br/> WAP资讯网
<a href="index.asp">返回网站首页</a><br/>
</p>
</card>
</wml>
这些代码是不是很眼熟咧,其实它跟新闻列表文件的代码几乎是一样的,只是读取的数据库跟数据库表不同而已!
保存文件后,进行相应的调试,然后传到空间里,用手机再测试一下效果!
【声明】本站刊载的《【第七课】手把手教你用ASP开发WAP网站》一文如果有侵害你权益的情况,请联系我们。我们将及时采取措施。
QQ:44637339 Email:just6@163.com Tel:13355163107 Lining studios