<!--#include file="inc.asp"-->
<!--#include file="check.asp"-->
<%
Response.CacheControl = "no-cache" 
Classid=Request.QueryString ("Classid")
SClassid=Request.QueryString ("SClassid")
fr=Request.QueryString ("SClassid")
if Classid="" and SClassid="" then
AskClassid=Request.QueryString ("AskClassid")
AskSClassid=Request.QueryString ("AskSClassid")
Page=Request.QueryString ("")
end if
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
%><link rel="stylesheet" href="images/Admin_Style.css">
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<center>
<table width="100%" border="1" cellpadding="0" cellspacing="0" class="border" style="border-collapse:collapse;">
<tr>
<td width="100%" height="22" class="topbg" align=center><FONT color="white"><b><%
set rs=conn.execute("SELECT * from Class where Classid="&Classid&"")
if not rs.eof then
response.write rs("Class")
end if
rs.close
%>   歌 手 管 理   | <%
set rs=conn.execute("SELECT * from SClass where SClassid="&SClassid&"")
if not rs.eof then
response.write rs("SClass")
end if
rs.close
%></b></FONT></td>
</tr><tr>
<td width="100%" class="tdbg" height=23><strong>管理快捷方式：</strong>
<%
set rs=conn.execute("SELECT * from SClass where Classid="&Classid&" order by SClassid asc")
do while not rs.eof
%>
<a href="?Classid=<%=Classid%>&SClassid=<%=rs("SClassid")%>"><B><%=rs("SClass")%></B></a>  
<%
if rs.eof then exit do
rs.movenext
loop
rs.close
set rs=nothing
%></td>
</tr><tr>
<td height="20" align="center">
<a href="#0-9"><B>0-9</B></a>  <a href="#a"><B>A</B></a>
<a href="#b"><B>B</B></a>  <a href="#c"><B>C</B></a>
<a href="#d"><B>D</B></a>  <a href="#e"><B>E</B></a>
<a href="#f"><B>F</B></a>  <a href="#g"><B>G</B></a>
<a href="#h"><B>H</B></a>  <a href="#i"><B>I</B></a>
<a href="#j"><B>J</B></a>  <a href="#k"><B>K</B></a>
<a href="#l"><B>L</B></a>  <a href="#m"><B>M</B></a>
<a href="#n"><B>N</B></a>  <a href="#o"><B>O</B></a>
<a href="#p"><B>P</B></a>  <a href="#q"><B>Q</B></a>
<a href="#r"><B>R</B></a>  <a href="#s"><B>S</B></a>
<a href="#t"><B>T</B></a>  <a href="#u"><B>U</B></a>
<a href="#v"><B>V</B></a>  <a href="#w"><B>W</B></a>
<a href="#x"><B>X</B></a>  <a href="#y"><B>Y</B></a>
<a href="#z"><B>Z</B></a></td>
</tr>
<%
sql="select * from class order by classid"
rs.open sql,conn,1,1
if rs.eof then
%>
<%
else
do while not rs.eof
%>
<%	rs.movenext
loop
end if
rs.close
%>
<%
sql3="select * from Nclass where SClassid="&SClassid&" order by Abcd"
rs3.open sql3,conn,1,1
MaxPerPage=10000

sql="select * from class where Classid="&Classid
rs.open sql,conn,1,1
%>
<%	if not rs.eof then%>
<%	end if%>
<%
if rs3.eof then
%>
<tr><td>尚无歌手</td></tr>
<%
else
k=0
do while not rs3.eof
k=k+1
if thischar<>rs3("Abcd") then
thischar=rs3("Abcd")
if i=0 then
Response.Write "<tr><td width=50% bgcolor=#E1F4EE>&nbsp;&nbsp;<a name="&thischar&"><b><font color=#000000 face=Verdana, Arial, Helvetica, sans-serif size=4>"&thischar&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='#'>TOP↑</a></font></b></a></td></tr>"
else
Response.Write "<tr><td width=50% bgcolor=#E1F4EE>&nbsp;&nbsp;<a name="&thischar&"><b><font color=#000000 face=Verdana, Arial, Helvetica, sans-serif size=4>"&thischar&"</font></b></a></td></tr>"
end if
end if
%>
<tr>
<td width="100%" height="25" align=left>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<form method="POST" action="0hao_Nclass_save.asp?act=rename&NClassid=<%=rs3("NClassid")%>">
<tr>
<td width="18%">&nbsp;&nbsp;<%=rs3("NClass")%></td>
<td width="227">
<p>
<a href='0hao_special_add.asp?act=add&Classid=<%=rs3("Classid")%>&SClassid=<%=rs3("SClassid")%>&NClassid=<%=rs3("NClassID")%>'>添加专辑</a>
<font color="#6699FF">
<a href="0hao_special_show.asp?Classid=<%=rs3("Classid")%>&SClassid=<%=rs3("SClassid")%>&NClassid=<%=rs3("NClassid")%>">[浏览该歌手的所有专辑]</a></font>&nbsp;</p>
</td>
<td width="100"><a href='make_nclass.asp?0hao_cn=<%=rs3("NClassID")%>'><font color="BLUE">生成HTML</font></a></td>
<td width="49">
<p align="center"><a href='0hao_Nclass_save.asp?act=SetIsGood&NClassid=<%=rs3("NClassID")%>&Classid=<%=Classid%>&SClassid=<%=SClassid%>'><font color="red"><%if rs3("IsGood")=true then%></font><font color="black">撤消</font><font color="red"><%else%>推荐<%end if%></font></a></p>
</td>
<td width="52" align="right">
<p align="center"><a href='0hao_geshou_ade.asp?NClassid=<%=rs3("NClassID")%>&Classid=<%=Classid%>&SClassid=<%=SClassid%>'><font color="red">修
改</font></a></td>
<td width="46" align="right">
<p align="center"><a title="慎重! 删除后可是不能恢复了哦!" href='0hao_Nclass_save.asp?act=del&NClassid=<%=rs3("NClassID")%>'><font color="red">删
除</font></a></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
<%
if k>=MaxPerPage then exit do
rs3.movenext
loop
end if
rs3.close
%>
</table>
</center>
</div>
<%
set rs=nothing
set rs3=nothing
conn.close
set conn=nothing
%></body></html>