|
<%
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è)置和計(jì)算每頁(yè)的記錄數(shù),即每頁(yè)共多少圖片
dim everypagesize,rscount,curpage,pgcount '每頁(yè)記錄數(shù),總記錄數(shù),當(dāng)前頁(yè)數(shù),總頁(yè)數(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)前頁(yè)數(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(" | ")
ELSE '否則正常顯示標(biāo)題
if lenB(rs("title").value)>abs(lt)*2 then
response.write(" | ")
else
response.write(" | ")
end if
END IF '檢查SHIELD完畢
response.write(" ")
response.write("")
response.write("")
IF rs("shield").value=true then '檢查shield是否為TRUE以判斷此記錄是否已被屏蔽
response.write("| 【作者】不顯示 | 【發(fā)表時(shí)間】"&rs("date").value&" |
")
'如果是則不顯示留言
response.write("")
ELSE '否則正常顯示
if len(rs("name").value)<=25 then
response.write("| 【作者】"&rs("name").value&" | 【發(fā)表時(shí)間】"&rs("date").value&" |
")
else
response.write("| 【作者】"&mid(rs("name").value,1,25)&"... | 【發(fā)表時(shí)間】"&rs("date").value&" |
")
end if
response.write("| 【留言內(nèi)容】 | "&rs("content").value&" |
| ------------------------- | | 【管理員回復(fù)】 | "&rs("reply").value&" |
| ")
IF session("postboard_admin")=true then '最近的更新方向?yàn)楣芾韱T管理,及根限設(shè)定
response.write("| 管理操作 | | 回復(fù)留言 |  刪除留言 |  ")
if rs("shield").value=true then
response.write("解除屏蔽 | ")
else
response.write("屏蔽留言")
end if
END IF
response.write(" ")
response.write("")
i=i+1
rs.movenext
Wend
END IF
%>
<%
response.write("")
if curpage>1 then
response.write(""&chr(13)&" 上一頁(yè) ")
else
response.write(" | "&chr(13)&" ")
end if
IF curpage<10 THEN '如果當(dāng)前頁(yè)少于10
If pgcount>10 Then '又如果總頁(yè)數(shù)大于10
for k=1 to 10 '則顯示可連頁(yè)數(shù)為1到10
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next '<當(dāng)前頁(yè)少于10且總頁(yè)數(shù)大于10>情況處理完畢
Else '否則,即總頁(yè)數(shù)小于等于10
for k=1 to pgcount '則顯示可連頁(yè)數(shù)為1到總頁(yè)數(shù)
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next '<當(dāng)前頁(yè)少于10且總頁(yè)數(shù)小于等于10>情況處理完畢
End if '<如果當(dāng)前頁(yè)數(shù)少于10>的情況處理完畢
ELSEIF curpage>=10 then '如果當(dāng)前頁(yè)數(shù)大于等于10
If curpage+5curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next
Elseif curpage+5>=pgcount then '但如果當(dāng)前頁(yè)加5后大于等于總頁(yè)數(shù)
for k=curpage-5 to pgcount '則顯示可連頁(yè)為當(dāng)前頁(yè)減5到總頁(yè)
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next
End if '<當(dāng)前頁(yè)大于等于10>情況處理完畢
END IF
if curpage下一頁(yè)  | "&chr(13)&" ")
else
response.write(" "&chr(13)&"")
end if
response.write("
共"&pgcount&"頁(yè) 當(dāng)前第"&curpage&"頁(yè) | "&chr(13)&"")
END IF
%>
<% if session("postboard_admin")=true then
response.write(" | 注銷管理員登陸 | 進(jìn)入管理中心")
end if
%>
|
