<!--#include file="conn.asp" -->
<!--#include file="checkout.asp" -->
<%if (session("userkey")=1) then%>
  <script language=javascript>  
    alert( "错误：您无权进行用户管理！"  );
    location.href = "javascript:history.back()"  
  </script>
<%end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>产品列表</title>
<LINK href="css.css" rel=stylesheet type=text/css>
</head>
<body>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="748">
    <tr>
      <td width="100%" height="30">
        <p align="center"><b>所有产品列表<br></b></td>
    </tr>
  </table>
  </center>
</div>
<table width="748" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
  <tr bgcolor=#ccffff height=20>
  <td width="404"><p align="center">产品分类</p></td>
  <td width="226"><p align="center">操作</p></td>
  <td width="74"><p align="center">操作员</td>
 </tr>
  <tr bgcolor=#ffffff><td colspan=3 height=15 width="732">
  　</td></tr>
<%
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from newclass where len(code)=1 order by code"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
%>
<tr bgcolor=#f2f2f2><td width="404">【<a href="news_list.asp?code=<%=htmlencode1(rs_2("code"))%>&name=<%=htmlencode1(rs_2("name"))%>"><%=htmlencode1(rs_2("name"))%></a>】</td><td width="226" >
    <p align="center"><a href="news_add.asp?code=<%=htmlencode1(rs_2("code"))%>&name=<%=htmlencode1(rs_2("name"))%>">[添加]</a> </p>
  </td><td width="74"><center><%=htmlencode1(rs_2("classMaster"))%></center></td></tr>
<%
set rs_1 = server.CreateObject ("adodb.recordset")
sql_1 = "select * from newclass where len(code)=2 and left(code,1) = '"&rs_2("code")&"' order by code"
rs_1.Open sql_1,conn,1,1
do while not rs_1.EOF
%>
<tr bgcolor=#ffffff>
<td bgcolor="#ffffff" width="404"><p style="margin-left: 15"><b>[</b><a href="news_list.asp?code=<%=htmlencode1(rs_1("code"))%>&name=<%=htmlencode1(rs_1("name"))%>"><%=htmlencode1(rs_1("name"))%></a><b>]</b></p>
  </td><td bgcolor="#ffffff" width="226" >
  <p align="center"><a href="news_add.asp?code=<%=htmlencode1(rs_1("code"))%>&name=<%=htmlencode1(rs_1("name"))%>">[添加]</a> </td>
  <td bgcolor="#ffffff" width="74"><center><%=htmlencode1(rs_1("classMaster"))%></center>
  </td></tr>
<%
set rs_3 = server.CreateObject ("adodb.recordset")
sql_3 = "select * from newclass where len(code)=3 and left(code,2) = '"&rs_1("code")&"' order by code"
rs_3.Open sql_3,conn,1,1
do while not rs_3.EOF
%>
<tr><td bgcolor="#ccffff" width="404">
    <p style="margin-left: 20"><a href="news_list.asp?code=<%=htmlencode1(rs_3("code"))%>&name=<%=htmlencode1(rs_3("name"))%>"><%=htmlencode1(rs_3("name"))%>
    </a>
  </td><td bgcolor="#ccffff" width="226" >
    <p align="center"><a href="news_add.asp?code=<%=htmlencode1(rs_3("code"))%>&name=<%=htmlencode1(rs_3("name"))%>">[添加]</a> </td><td bgcolor="#ccffff" width="74"></td></tr>

<%
rs_3.MoveNext
loop
rs_3.Close 
rs_1.MoveNext
loop
rs_1.Close 
rs_2.MoveNext
Loop
rs_2.Close
%>
</table>
<input type=hidden name=code>
</body>

</html>

