sub showgb_body()
dim totalgb,Currentpage,totalpages,i
opengb
sql="SELECT * FROM gb ORDER BY gb_id DESC"
if request("key")"" and request("colname")"" then
sql="select * from gb where "& request("colname") &" like '%"& request("key") &"%' order by gb_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
rs.movefirst
rs.pagesize=gbperpage
if trim(request("page"))"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalgb=rs.recordcount
if currentpage1 then
if (currentpage-1)*gbperpage rs.move(currentpage-1)*gbperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalgb mod gbperpage)=0 then
totalpages=totalgb\gbperpage
else
totalpages=totalgb\gbperpage+1
end if
i=0
do while not rs.eof and i sql="select * from reply where gb_id="&rs("gb_id")
set rsrep=server.createobject("adodb.recordset")
rsrep.open sql,conn,1,1%>
[ ]
dim totalrep,Currentreppage,totalreppages,j
rsrep.movefirst
rsrep.pagesize=gbrepperpage
reppage="reppage"&i
if trim(request(reppage))"" then
currentreppage=clng(request(reppage))
if currentreppage>rsrep.pagecount then
currentreppage=rsrep.pagecount
end if
else
currentreppage=1
end if
totalrep=rsrep.recordcount
if currentreppage1 then
if (currentreppage-1)*gbrepperpage rsrep.move(currentreppage-1)*gbrepperpage
dim repbookmark
repbookmark=rsrep.bookmark
end if
end if
if (totalrep mod gbrepperpage)=0 then
totalreppages=totalrep\gbrepperpage
else
totalreppages=totalrep\gbrepperpage+1
end if
j=0
do while not rsrep.eof and j k=j+1%>
[]
rsrep.movenext
loop
end if%>
[共有条回复
j=1
for j=1 to totalreppages%>
if j=currentreppage then
%>
if request("page")"" then
%>
[]
[]
end if
next
end if%>]【留言管理】 | 回复 |
删除 | IP: |
rsrep.close
set rsrep=nothing
i=i+1
rs.movenext
loop
%>
else
if rs.eof and rs.bof then
%>
class=entry2text>系统找不到您所要查询的记录！
end if
end if
rs.close
set rs=nothing
%>
目前共有条留言/页
i=1
for i=1 to totalpages
if i=currentpage then
%>
[]
if request("key")"" and request("colname")"" then%>
[]
[]
end if
next%>
留 言 者留言内容
=== 留 言 注 意 事 项 === 1、留言簿上只能应用于网站链接、网站事务等方面，不能提出技术问题，否则删除贴子； 2、严禁灌水，轻者删除留言，重者封掉IP； 3、有关技术方面的问题，请到论坛； 4、作友情链接留言时，请先做好本站链接，然后再留言，否则本站一律不与链接。
