<%
dim pConn
Set pConn = New ShowPage
pConn.SetCurrentPage Request("Page")
pConn.GetUserlogin sConn.loginok
%>
<%
'////////////////置顶数据/////////////////
Select Case pConn.CurrentPage
Case 1
pConn.GetOntop()
Select Case pConn.Ontop
Case 1
TableGsbook="TableGsbook2"
TGsbook="TGsbook2"
Onpic="7.gif"
for i=0 to ubound(pConn.ArrRs,2)
pConn.GetGsbookInfo()
Response.write "
"&_
"
"&_
"
"&_
"
"&_
"
"&pConn.ArrRs(2,i)&"( "
If pConn.ArrRs(3,i)=True Then response.write "♂" else Response.write "♀"
Response.Write ") 留言于"&pConn.ArrRs(11,i)&" [置顶]
"
Next
End Select
End Select
'////////////////非置顶数据/////////////////
If pConn.ArrRsErr<>1 Then pConn.GetPageInfo()
Select Case pConn.ArrRsErr
Case 1
Response.Write "
=============== 留言板还没有任何内容！ ===============
"
Response.End
End Select
for i=0 to ubound(pConn.ArrRs,2)
pConn.GetStyle i
pConn.GetGsbookInfo()
Response.write "
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&pConn.ArrRs(2,i)&"( "
If pConn.ArrRs(3,i)=True Then response.write "♂" else Response.write "♀"
Response.Write ") 留言于"&pConn.ArrRs(11,i)&"
"
'////////////////执行分页/////////////////
If pConn.TotalPage>1 Then
CurrentPage = Int(pConn.CurrentPage)
TotalPage = Int(pConn.TotalPage)
response.write "
"&_
"
"&_
"
共 "&pConn.recordcounti&" 个留言 "&CurrentPage&"/"&TotalPage&"页"
If CurrentPage>=10 Then CurrentPagei=CurrentPage-10 else CurrentPagei=1
If CurrentPage>=2 Then
response.write " 首页9..7 "
Else
response.write " 首页 9..7 "
End If
If CurrentPage>4 Then i=CurrentPage-4 else i=1
Do
If i=CurrentPage Then exit Do
response.write ""&i&" "
i=i+1
loop
response.write ""&CurrentPage&" "
n=CurrentPage
Do
If n-CurrentPage>4 or n>=TotalPage Then exit Do
response.write ""&n+1&" "
n=n+1
loop
If TotalPage-CurrentPage>=10 Then CurrentPagen=CurrentPage+10 else CurrentPagen=TotalPage
response.write " "
If CurrentPage < TotalPage Then
response.write "8..:末页"
Else
response.write "8..: 末页"
End If
response.write "
![](face/"&pConn.ArrRs(6,i)&".gif)
Re:"&Autolink(pConn.ReContent)&" "&pConn.ReKeyLink&_
"