www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > template_a/page_admin_cate_manage.html.asp
<!-- #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> </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 %> (贴吧总版主设置请到<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" -->