bzmtv-33.asp

一个不错的音乐网站

<!--#include file="bzmtvconst.asp"-->
<%CheckAdmin1%>
<%PageName="bzmtv-33"%>
<!--#include file="top.asp"-->
<%
Classid=Request.QueryString ("Classid")
SClassid=Request.QueryString ("SClassid")
if Classid="" and SClassid="" then
	AskClassid=Request.QueryString ("AskClassid")
	AskSClassid=Request.QueryString ("AskSClassid")
	Page=Request.QueryString ("")
end if
set rrrs=server.createobject("adodb.recordset")
sqll="select * from sclass where SClassid="&SClassid&" order by sclassid"
rrrs.open sqll,conn,1,1
kkk=rrrs("sclass")
rrrs.close

set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
%>
     <div align="center">
      <center>
     <table border="0" cellpadding="0" cellspacing="0" width="96%" bordercolor="GREEN" bordercolordark="#FFFFFF">
               <tr>
          <td width="100%" height="25" bgcolor="#44A938" align=center><font color="white"><b><%=kkk%>歌手管理</b></font></td>
        </tr></table>
         <table border="1" cellpadding="0" cellspacing="0" width="96%" bordercolor="GREEN" bordercolordark="#FFFFFF">
    
        <tr>
        <td height="20" align="center"><a  CLASS=3D2  href="#a"><B>A</B></a>  
             <a CLASS=3D2 href="#b"><B>B</B></a>  <a CLASS=3D2 href="#c"><B>C</B></a> 
             <a CLASS=3D2 href="#d"><B>D</B></a>  <a CLASS=3D2 href="#e"><B>E</B></a> 
             <a CLASS=3D2 href="#f"><B>F</B></a>  <a CLASS=3D2 href="#g"><B>G</B></a> 
             <a CLASS=3D2 href="#h"><B>H</B></a>  <a CLASS=3D2  href="#i"><B>I</B></a> 
             <a CLASS=3D2 href="#j"><B>J</B></a>  <a CLASS=3D2  href="#k"><B>K</B></a> 
             <a CLASS=3D2 href="#l"><B>L</B></a>  <a CLASS=3D2  href="#m"><B>M</B></a> 
             <a CLASS=3D2 href="#n"><B>N</B></a>  <a CLASS=3D2  href="#o"><B>O</B></a> 
             <a CLASS=3D2 href="#p"><B>P</B></a>  <a CLASS=3D2  href="#q"><B>Q</B></a> 
             <a CLASS=3D2 href="#r"><B>R</B></a>  <a CLASS=3D2  href="#s"><B>S</B></a> 
             <a CLASS=3D2 href="#t"><B>T</B></a>  <a CLASS=3D2  href="#u"><B>U</B></a> 
             <a CLASS=3D2 href="#v"><B>V</B></a>  <a CLASS=3D2  href="#w"><B>W</B></a> 
             <a CLASS=3D2 href="#x"><B>X</B></a>  <a CLASS=3D2  href="#y"><B>Y</B></a> 
             <a CLASS=3D2 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% background=bzmtv/bgleft.gif>&nbsp;&nbsp;<a name="&thischar&"><b><font color=GREEN face=Verdana, Arial, Helvetica, sans-serif size=4>"&thischar&"</font></b></a></td></tr>"
								 else
								 Response.Write "<tr><td width=50% background=bzmtv/bgleft.gif>&nbsp;&nbsp;<a name="&thischar&"><b><font color=GREEN 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%">
                     <tr>
                      <td width="35%">&nbsp;&nbsp;<%=rs3("NClassid")%>.<a href="bzmtv-34.asp?nclassid=<%=rs3("NClassid")%>"><%=rs3("NClass")%></a></td>
                      <td width="15%">&nbsp;<a href="bzmtv-34.asp?nclassid=<%=rs3("NClassid")%>">修改歌手资料</a></td>
                      <td width="35%">&nbsp;<a title="生成 <%=rs3("nclass")%> 的MTV" href="Make_special.asp?bzmtv=<%=rs3("nclassid")%>"><font color=blue>生成HTM</font></a></td>
                      <td width="15%" align="right">&nbsp;&nbsp;<a title="不到万一不要用此功能! 删除后可不能恢复的!" href='bzmtv-35.asp?act=del&NClassid=<%=rs3("NClassID")%>'><font color=red>删除</font></a>&nbsp;</td>
                    </tr>
                  
                  </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>
<html></html>