阅读所有回复

=*=*=*=*=*=

<%
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 ("快速回复：
"&_
"
"&_
"马上回复"&_
""&_
""&_
""&_
""&_
""&_
"")
%>

=*=*=*=*=*=

返回新闻内容

返回网站首页