<!--#include file="Const.Asp"-->
<!--#include file="error.ini"-->
<%PageName="Art"%>
<!--#include file="Top.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%
dim i
i=0 
MaxList=80
set rs=server.createobject("adodb.recordset")

sql="select * from class order by classid"
rs.open sql,conn,1,1
i=request("id")
if i="" then i=rs("Classid")
%>

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan="3" align="center"><strong>分 类 管 理</strong></td>
  </tr>
  
<form method="POST" action="Art_2.asp?act=add&Classid=<%=rs("Classid")%>" align="center">
  <tr class="tdbg">
    <td height="30"><div align="center">总类</div></td>
    <td width="325"><div align="center">添加歌手分类</div></td>
  </tr>
</form>
                 
             
<%
do while not rs.eof
	i=i+1
%>  
		
              
                   <form method="POST" action="Art_2.asp?act=add&Classid=<%=rs("Classid")%>" align="center">
  <tr class="tdbg"> 
    <td width="247" height="30"><div align="center"><a title="点击进入管理 <%=rs("class")%> 的二级分类" href=Art_3.asp?id=<%=rs("Classid")%>><%=rs("Class")%></a></div></td>
    <td><div align="center"><input class=input type="text" name="SClass" size="15">&nbsp;&nbsp;<input class=input type="submit" value="添 加" name="B1"></div></td>
  </tr>
  </form>
  <%
if (i mod (MaxList/2)=0) and i>=(MaxList/2) then

	end if
	if i>=MaxList then exit do
    rs.movenext
	loop
	rs.close
		%>
</table>

<% 
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>