<!--#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"-->