<!--#include file="inc.asp"-->
<!--#include file="check.asp"-->
<%
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")
%><html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<head>
<title>福建音乐视听网 音乐管理中心</title>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
    <td height=25 colspan=3 class="topbg"><strong>音 乐 分 类 管 理</strong></tr>
<tr>
    <td width="30%" class="tdbg" height=23 align=center>一级分类</td>
    <td width="35%" class="tdbg" align=center>进入音乐分类列表</td>
    <td width="35%" class="tdbg" align=center>添加音乐二级分类</td>
</tr>
</table>

<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolordark="#FFFFFF">
<%
do while not rs.eof
i=i+1
%>
<form method="POST" action="0hao_SClass_Save.asp?act=add&Classid=<%=rs("Classid")%>" align="center"><tr>
<td width="30%">&nbsp;&nbsp;<a href='0hao_class2.asp?id=<%=rs("Classid")%>'><%=i%>. <%=rs("Class")%></a></td>
<td width="35%" align=center><a href='0hao_class2.asp?id=<%=rs("Classid")%>'>进入管理音乐分类</a></td>
<td width="35%" align=center><input type="text" name="sClass" size="15">&nbsp;&nbsp;<input  class=input type="submit" value="添 加" name="B1"></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>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align=center>
<%
dim Xn_SingerNum
set rs=conn.Execute("select count(*) from Nclass")
Xn_SingerNum=rs(0)
if isnull(Xn_SingerNum) then Xn_SingerNum=0
dim Xn_SpecialNum
set rs=conn.Execute("select count(*) from Special")
Xn_SpecialNum=rs(0)
if isnull(Xn_SpecialNum) then Xn_SpecialNum=0
Dim Xn_MusicNum
set rs=conn.execute("select count(*) from musiclist")
Xn_MusicNum=rs(0)
If isnull(Xn_MusicNum) then Xn_MusicNum=0
if not rs.eof then
%>
<TR>
<TD height=30 align=center>系统信息：歌手 <B><%=Xn_SingerNum%></B>┊ 专辑 <B><%=Xn_SpecialNum%></B>  ┊ 歌曲 <B><%=Xn_MusicNum%></B></TD></TR>

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