<!-- #include file="page_admin_forum_header.html.asp" -->             
<!-- ##### 主欄目開始 ##### --->
<div id="main_menu">
	<table id="main_menu_title" width="100%" border="0" cellspacing="2" cellpadding="0">
		<tr>
			<td class="main_menu_img">
				<a><div id="menu_img_show" name="menu_img_show" class="img_show"><span class="alt">[ +/- img ]</span></div></a></td>
			<td class="main_menu_active" id="main_menu_buttom" name="main_menu_buttom">
				<a href="admin_cate_manage.asp">查看</a></td>
			<td class="main_menu_buttom" id="main_menu_buttom" name="main_menu_buttom">
				<a href="admin_cate_add_form.asp">創建</a></td>
			<td>&nbsp;</td>
		</tr>
	</table>
</div>
<div id="main_content">
	<div id="main_content_title">
		<div  id="note">論壇分類列表</div>
	</div>
	<div id="main_content_list">	
		<table class="main" width="100%"  align="center" border="0" cellspacing="1" cellpadding="0">
			<tr  class="even">
				<td align="left">
				當前論壇總版主:<%
				Dim arrMasterName : arrMasterName = Split(GBL_strForumMasterName,"|||")
				Dim arrMasterId : arrMasterId = Split(GBL_strForumMasterId,"|||")
				Dim m
				For m = Lbound(arrMasterName) To UBound(arrMasterName)
					Response.Write "<a href='admin_user_detail.asp?intUserId=" & arrMasterId(m) &"'>" & arrMasterName(m) & "</a>,"
				Next
				%>&nbsp;&nbsp;(論壇總版主設置請到<font color=red><a href="admin_user_manage.asp" class="setting">[用戶管理]</a></font>)
				</td>
			</tr>
		</table>
	</div>
	<div id="main_content_list">	
		<table class="main" width="100%"  align="center" border="0" cellspacing="1" cellpadding="0">
		<form name="vbfrom" id="vbform" action="admin_cate_del.asp" method="post">
			<tr id="main_list_index">
				<td width="2%" align="center">
					<input class="checkbox" onclick="CheckAll(this.form,this)" id="topcheckall" name="topcheckall" type="checkbox" value="" /></td>
				<td width="10%">序號</td>
				<td >論壇分類名</td>
				<td >排序號</td>
				<td >添加時間</td>
				<td >最后修改時間</td>
				<td width="10%">修改</td>
			</tr>
			<%Call ActionView(CONST_ACTION_FUNC)%>
			<% 
If IsObject(TAG_objRS) Then 
Dim i : i = 0 
Do While Not TAG_objRS.Eof %>

			<tr onmouseover="LineMouseOver(this)" onmouseout="LineMouseOut(this,<%=i+1%>)" onmousedown="LineMouseDown(this,<%=i+1%>)" class="<%=TrStyleSet(i)%>">
				<td align="center">
				<input name="selId" type="checkbox" class="form_checkbox" id="selId" value="<%=TAG_objRS("CATE_ID")%>" /></td>
				<td><%=i+1%></td>
				<td><%=TAG_objRS("CATE_NAME")%></td>
				<td><%=TAG_objRS("CATE_ORDER")%></td>
				<td><%=TAG_objRS("CATE_ADD_TIME")%></td>
				<td><%=TAG_objRS("CATE_LAST_TIME")%></td>
				<td align="center"><a class="setting" href="admin_cate_mdy_form.asp?intCateId=<%=TAG_objRS("CATE_ID")%>">修改</a></td>
			</tr>		
			
<% 
	i = i + 1 
	If i >= TAG_intPerPage Then  Exit Do 
	TAG_objRS.MoveNext
Loop
If IsObject(TAG_objRS) Then
	TAG_objRS.Close() 
	Set TAG_objRS = Nothing 
End If
End If
%>	
<input type="hidden" name="intPageNow" value="<%=TAG_intPageNow%>"  />

			<tr class="selectall">
				<td colspan="12">
					<input class="checkbox" onclick="CheckAll(this.form,this)" id="bottomcheckall" name="bottomcheckall" type="checkbox" value="" /> 全選
					<input type="button" value="刪除論壇分類" class="submit" onclick="return CheckSelChkBox(this.form,'你確認刪除所選論壇分類?');">
				</td>
			</tr>
		</form>
		</table>		    
	</div>
	<div id="main_content_foot">
		<div class="pagination"><%=TAG_strPageNav%></div>
	</div>
</div>

<!-- ##### 主欄目結束 ##### -->   
<!-- #include file="page_admin_footer.html.asp" -->