?? recycle.asp
字號:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!-- #include file="inc/char.asp" -->
<!--#include file="inc/recycle_list.asp"-->
<!--#include file="inc/theme.asp"-->
<%
Rem ----------------------
Rem ------主程序開始------
Rem ----------------------
dim sql,rs
dim username
dim bBoardEmpty
dim totalrec
dim n,i,RowCount
dim p
dim currentpage,page_count,Pcount
dim arrRow1
stats="論壇回收站"
if founderr then
call nav()
call headline(1)
call error()
else
call chkInput()
if founderr then
call nav()
call headline(1)
call error()
else
call nav()
call headline(1)
call boardtop()
call AnnounceList1()
call listPages3()
if founderr=true then call error()
end if
end if
call endline()
REM 顯示版面信息---Headinfo
sub boardtop()
response.write "<style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px; color: #000000; }</style>"
response.write "<script language=javascript src=inc/list.js></script>"
response.write "<br><table cellpadding=0 cellspacing=0 border=0 width="&tablewidth&" align=center><tr>"&_
"<td align=center width=2 valign=middle> </td>"&_
"<td align=left valign=middle> <font color="&TableContentColor&">本頁面只有系統管理員可進行操作</font></td>"&_
"<td align=right> </td></tr></table>"
end sub
sub chkInput
'on error resume next
currentPage=request("page")
if currentpage="" or not isInteger(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
end sub
%>
<script language="JavaScript">
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
//-->
</script>
<!--#include file="footer.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -