<%@language="vbscript" codepage="936" %>
<%path="../basedata"%>
<!--#include file="../inc/function.asp"-->
<%call Loginpower%>
<%call legalpower%>
<!--#include file="../conn/conn_data.asp"-->
<!-- #include file="../Inc/Head.asp" -->
<script language="JavaScript" type="text/JavaScript">
function ConfirmDelBig()
{
    alert("!!!!!!!!!!!!警告？？？？？？？");
   if(confirm("确定要删除此大类吗？删除此大类同时将删除所包含的小类与(文章)，并且不能恢复！"))
     return true;
   else
     return false;
}
</script>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top"> <br> <br>
      <strong>栏目分类设置</strong>
       <br/> <br/>管理选项：<a href="categories_Add.asp">添加大类</a><br/> <br/> <br/>
      <table width="500px" border="1" bordercolor="#A5B6D6" class="center" cellpadding="0" cellspacing="2">
        <tr bgcolor="#A4B6D7" class="title">
          <td height="25" class="southidc"><strong>栏目名称</strong></td>
          <td width="251px" height="20" class="southidc"><strong>操作选项</strong></td>
        </tr>
		<%
		dim rs
		set rs=server.CreateObject("adodb.recordset")
		rs.open "Select * From class order by class_order asc",conn_data,1,1
		if rs.eof and rs.bof then
		%>
        <tr>
          <td height="20" colspan="2">暂时没有数据……</td>
        </tr>
		<%
		else
		do while not rs.eof
		if rs.eof then exit do
		%>
        <tr bgcolor="#ECF5FF">
          <td height="22" align="left">[+ <span style="color:#ff0000"><%=rs("class_order")%></span> +]&nbsp;<img src="../images/g.gif" width="15" height="15"><%=rs("class_name")%></td>
          <td align="center"><a href="categories_Modify.asp?id=<%=rs("class_id")%>">修改</a> | <a href="categories_Delete.asp?id=<%=rs("class_id")%>" onClick="return ConfirmDelBig();">删除</a></td>
        </tr>

		<%
		rs.movenext
		loop
		end if
		rs.close
		set rs=nothing
		%>
      </table>

      </td>
  </tr>
</table>
<!-- #include file="../Inc/Foot.asp" -->
