<%
IF (output=true and session("postboard_admin")=true) or not output=true THEN
if x0=empty or not isNUMERIC(x0) then
x0=0
elseif x0>30 then
x0=30
elseif x0<-30 then
x0=-30
end if
if x0<>0 then
rs.open "select * from message order by id "&list(x0),conn,1
maxX=1
maxY=abs(x0)
elseif x0=0 then
response.write(licence)
response.end
end if
rs.pagesize=maxX*maxY '設(shè)置和計算每頁的記錄數(shù),即每頁共多少圖片
dim everypagesize,rscount,curpage,pgcount '每頁記錄數(shù),總記錄數(shù),當(dāng)前頁數(shù),總頁數(shù)
everypagesize=rs.pagesize
rscount=rs.recordcount
pgcount=rs.pagecount
if request.form("page")=empty or not isNumeric(request.form("page")) then
if isNumeric(request.querystring("page")) then
curpage=cint(request.querystring("page"))
else curpage=1
end if
else
curpage=cint(request.form("page"))
end if
if curpage=empty or curpage<1 then
curpage=1
elseif curpage>pgcount then
curpage=pgcount
end if
if not rs.eof=true and not rs.bof=true then
rs.absolutepage=curpage '設(shè)置當(dāng)前頁數(shù)
end if
%>
<%
IF rs.eof=true and rs.bof=true THEN
%>
還沒有任何留言
There are not any messages !
<%
ELSE
i=1
While not rs.eof and i<=maxY
response.write("
")
response.write("
")
response.write("
"&rs("id")&"樓
")
IF rs("shield").value=true then '檢查shield是否為TRUE以判斷此記錄是否已被屏蔽
response.write("
")
end if
IF curpage<10 THEN '如果當(dāng)前頁少于10
If pgcount>10 Then '又如果總頁數(shù)大于10
for k=1 to 10 '則顯示可連頁數(shù)為1到10
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next '<當(dāng)前頁少于10且總頁數(shù)大于10>情況處理完畢
Else '否則,即總頁數(shù)小于等于10
for k=1 to pgcount '則顯示可連頁數(shù)為1到總頁數(shù)
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next '<當(dāng)前頁少于10且總頁數(shù)小于等于10>情況處理完畢
End if '<如果當(dāng)前頁數(shù)少于10>的情況處理完畢
ELSEIF curpage>=10 then '如果當(dāng)前頁數(shù)大于等于10
If curpage+5curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next
Elseif curpage+5>=pgcount then '但如果當(dāng)前頁加5后大于等于總頁數(shù)
for k=curpage-5 to pgcount '則顯示可連頁為當(dāng)前頁減5到總頁
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next
End if '<當(dāng)前頁大于等于10>情況處理完畢
END IF
if curpage下一頁
"&chr(13)&"
")
else
response.write(" "&chr(13)&"")
end if
response.write("
共"&pgcount&"頁 當(dāng)前第"&curpage&"頁
"&chr(13)&"")
END IF
%>
<% if session("postboard_admin")=true then
response.write(" | 注銷管理員登陸 | 進入管理中心")
end if
%>
")
if rs("shield").value=true then
response.write("
上一頁