<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="inc/seeion.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="fckeditor/fckeditor.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>网站后台管理系统</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="inc/header.asp"-->
<div id="top_banner" class="layout"></div>
<div id="content" class="layout">
  <!--#include file="inc/left.asp"-->
  <div id="right">
    <div class="right_title">
      <h2>分类管理</h2>
    </div>
    <div class="right_body">
      <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="table">
        <tr>
          <td colspan="2" align="center" bgcolor="#8dddfb" style="color:#FFF; background:#248fd7;"><strong>栏目名称</strong></td>
          <td width="52%" align="center" bgcolor="#8dddfb" style="color:#FFF; background:#248fd7;"><strong>操作选项</strong></td>
        </tr>
        <tr>
          <td colspan="2" align="center" style="color:#000">&nbsp;</td>
          <td align="center" style="color:#000"><a href="AddNewsBigClass.asp">添加新闻大类</a></td>
        </tr>
        <tr>
          <%
Dim rs, sql, rss, main_title, sub_title
Set rs = server.CreateObject("adodb.recordset")
sql = "select main_id,main_title from BigClass_New order by  order_id"
rs.Open sql, conn, 1, 3
If rs.EOF And rs.bof Then
    response.Write("暂无大类！")
    response.End()
End If
Do While Not rs.EOF
    Set main_title = rs(1)
%>
          <td colspan="2" align="left" valign="middle" bgcolor="#92CFED"><img src="images/jia.gif" width="15" height="15" /><%=main_title%></td>
          <td align="center" bgcolor="#92CFED"><a href="AddNewsSmallClass.asp?main_id=<%=rs(0)%>">添加子栏目</a> &nbsp;| &nbsp;<a href="NewsBigClassModify.asp?main_id=<%=rs(0)%>">修改</a>&nbsp; | &nbsp;<a href="NewsDelBigClass.asp?act=del&amp;main_id=<%=rs("main_id")%>" onclick="return ConfirmDelBig();">删除</a></td>
        </tr>
        <tr>
          <%
Set rss = server.CreateObject("adodb.recordset")
sql = "select sub_title,order_id,sub_id from SmallClass_New where main_id="&rs("main_id")&" order by order_id"
rss.Open sql, conn, 1, 3
Do While Not rss.EOF
    Set sub_title = rss(0)
%>
          <td width="28%" align="left" bgcolor="#afe6fb">&nbsp;&nbsp;&nbsp;&nbsp;<img src="images/jian.gif" width="15" height="15" /><%=sub_title%></td>
          <td width="20%" align="center" bgcolor="#afe6fb">排序号：<span class="red"><%=rss(1)%></span></td>
          <td align="center" bgcolor="#afe6fb">&nbsp;　　　　　 &nbsp;　<a href="NewsSmallClassModify.asp?sub_id=<%=rss(2)%>">修改</a>&nbsp; | &nbsp;<a href="NewsDelSmallClass.asp?act=del&amp;sub_id=<%=rss(2)%>" onclick="return ConfirmDelSmall();">删除</a></td>
        </tr>
        <%
rss.movenext
Loop
rs.movenext
Loop
rss.Close
Set rss = Nothing
Call close_rs
Call close_conn
Set main_title = Nothing
Set sub_title = Nothing
%>
      </table>
    </div>
  </div>
  <div class="clear"></div>
</div>
<!--#include file="inc/footer.asp"-->
