bzmtv-4.asp

一个不错的音乐网站

<!--#include file="bzmtvconst.asp"-->
<%CheckAdmin1%>
<%PageName="bzmtv-4"%>
<!--#include file="top.asp"-->
<%
dim i
set rs=server.createobject("adodb.recordset")
set rs2=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")
do while not rs.eof
rs.movenext
loop
rs.close
sql="select * from class where classid="&i
rs.open sql,conn,1,1
if rs.eof then
else
%>
     <div align="center">
      <center>
     <table border="0" cellpadding="0" cellspacing="0" width="60%" bordercolor="GREEN" bordercolordark="#FFFFFF">
         <tr>
          <td width="100%" height="25" bgcolor="#44A938" align=center><font color="white"><b>添 加 编 辑 MTV (第一步)</b></font></a></td>
        </tr></table>
         <table border="1" cellpadding="0" cellspacing="0" width="60%" bordercolor="GREEN" bordercolordark="#FFFFFF">
              <div align="center">
                      <tr>
                      <td width="100%" background="bzmtv/bgleft.gif" height=20 align=center><b>二级分类</b></td>
                      
                   </tr>
                  
<%
		sql2="select * from 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%" height=22 align=left>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=j%>.&nbsp;&nbsp;&nbsp;<a title="进入管理 <%=rs2("sclass")%> 所属歌手 " href=bzmtv-4-2.asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>><%=rs2("SClass")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>点击进入此类歌手列表</font></a></td>
                     
              
                  
<%
			rs2.movenext
			loop
		end if
		rs2.close
end if
rs.close
%>

      </table>
     </center>
    </div>
<% 
set rs=nothing
set rs2=nothing
conn.close
set conn=nothing
%>
</body></html>