bzmtv-3.asp

一个不错的音乐网站

<!--#include file="bzmtvconst.asp"-->
<%CheckAdmin1%>
<%PageName="bzmtv-3"%>
<!--#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" width="96%" cellspacing="0" cellpadding="0" class="TableLine" bordercolorlight="#000000">
        <tr>
          <td width="100%" height="22" bgcolor="#44A938" align=center><font color="white"><b>歌 手 管 理</b></font></td>
        </tr>
        <tr>
          <td width="100%" align=center>
                <div align="center">
            <table border="1" cellpadding="2" cellspacing="0" width="100%" bordercolor="GREEN" bordercolordark="#FFFFFF">
            
               <tr>
                      <td width="20%" height="20" background=bzmtv/bgleft.gif align=center>&nbsp;&nbsp;<b>所属分类</b></td>
                    <td width="60%" height="20" background=bzmtv/bgleft.gif align=center><b>歌手姓名   字母索引 添加</b></td>
                       <td width="20%" height="20" background=bzmtv/bgleft.gif align=center><b>生成HTM</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
%>
	
                  <form method="POST" action="bzmtv-35.asp?act=add&Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>" align="center">
                    <tr>
                      <td width="20%"  height="23" align=left>&nbsp;<%=rs2("SClassid")%>.<a title="管理 <%=rs2("sclass")%> 所属的歌手" href=bzmtv-33.asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>><%=rs2("SClass")%></a></td>
                      <td width="60%"  height="23" align=center>
                      <input class=input size=13 type="text" name="NClass">
                      <input class=input size=6 type="text" name="Abcd">
                       <input class=input type="submit" value="添 加" name="B1">
                       </td>
                       <td width="20%"  height="23" align=center><a title="生成 <%=rs2("sclass")%> 的所有MTV" href="Make_special.asp?type=all&zzyy=<%=rs2("sclassid")%>"><font color=blue>生成HTM</font></a></td>            
                           </tr>
                   </form>
                
                
<%
			rs2.movenext
			loop
		end if
		rs2.close
end if
rs.close
%>
  </table>
                </div>
		  </td>
        </tr>
      </table>
     </center>
    </div>
<% 
set rs=nothing
set rs2=nothing
conn.close
set conn=nothing
%>
</body></html>