<!--#include file="const.asp"-->
<!--#include file="error.ini"-->
<%PageName="V800_4"%>
<!--#include file="Top.Asp"-->
<link href="Images/Admin_Style.Css" rel="stylesheet" type="text/css">
<%
dim i
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
sql="select * from ylmv_class order by classid"
rs.open sql,conn,1,1
i=request("id")
if i="" then i=rs("Classid")
do while not rs.eof
rs.movenext
loop
rs.close
sql="select * from ylmv_class where classid="&i
rs.open sql,conn,1,1
if rs.eof then
else
%>
<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></table>
         <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
                  
<%
		sql2="select * from ylmv_SClass where Classid="&rs("Classid")&" order by Sclassid"
		rs2.open sql2,conn,1,1
		if rs2.eof then
		else
			j=0
			do while not rs2.eof
			j=j+1
%>

	                   <tr>
                      <td width="100%" class=tdbg>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=j%>.&nbsp;&nbsp;&nbsp;<a title="进入管理 <%=rs2("sclass")%> 所属歌手 " href=Admin_special_Add.Asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>><%=rs2("SClass")%></font></a></td>
                     
              
                  
<%
			rs2.movenext
			loop
		end if
		rs2.close
end if
rs.close
%>
      </table>
<% 
set rs=nothing
set rs2=nothing
conn.close
set conn=nothing
%>
</body>
</html>