|
<%
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 '設置和計算每頁的記錄數,即每頁共多少圖片
dim everypagesize,rscount,curpage,pgcount '每頁記錄數,總記錄數,當前頁數,總頁數
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 '設置當前頁數
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 '否則正常顯示標題
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("| 【作者】不顯示 | 【發表時間】"&rs("date").value&" |
")
'如果是則不顯示留言
response.write("")
ELSE '否則正常顯示
if len(rs("name").value)<=25 then
response.write("| 【作者】"&rs("name").value&" | 【發表時間】"&rs("date").value&" |
")
else
response.write("| 【作者】"&mid(rs("name").value,1,25)&"... | 【發表時間】"&rs("date").value&" |
")
end if
response.write("| 【留言內容】 | "&rs("content").value&" |
| ------------------------- | | 【管理員回復】 | "&rs("reply").value&" |
| ")
IF session("postboard_admin")=true then '最近的更新方向為管理員管理,及根限設定
response.write("| 管理操作 | | 回復留言 |  刪除留言 |  ")
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)&" 上一頁 ")
else
response.write(" | "&chr(13)&" ")
end if
IF curpage<10 THEN '如果當前頁少于10
If pgcount>10 Then '又如果總頁數大于10
for k=1 to 10 '則顯示可連頁數為1到10
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next '<當前頁少于10且總頁數大于10>情況處理完畢
Else '否則,即總頁數小于等于10
for k=1 to pgcount '則顯示可連頁數為1到總頁數
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next '<當前頁少于10且總頁數小于等于10>情況處理完畢
End if '<如果當前頁數少于10>的情況處理完畢
ELSEIF curpage>=10 then '如果當前頁數大于等于10
If curpage+5curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next
Elseif curpage+5>=pgcount then '但如果當前頁加5后大于等于總頁數
for k=curpage-5 to pgcount '則顯示可連頁為當前頁減5到總頁
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next
End if '<當前頁大于等于10>情況處理完畢
END IF
if curpage下一頁  | "&chr(13)&" ")
else
response.write(" "&chr(13)&"")
end if
response.write("
共"&pgcount&"頁 當前第"&curpage&"頁 | "&chr(13)&"")
END IF
%>
<% if session("postboard_admin")=true then
response.write(" | 注銷管理員登陸 | 進入管理中心")
end if
%>
|
