music_list.html

971音乐站全站程序

<!-- 歌曲列表 SQL参数Best_Music_Sql、Best_Music_Num -->
<%	Dim Best_Music_rs,Best_Music_bgcolor
	Set Best_Music_rs=conn.execute(Best_Music_Sql)
	For i=1 To Best_Music_Num
		If Best_Music_rs.eof Then Exit For
		Best_Music_bgcolor="f7f7f7"
		If i mod 2 = 0 Then 
			Best_Music_bgcolor="ffffff"
		Else
			Best_Music_bgcolor="f7f7f7"
		End If
	%>
        <tr bgcolor="<%Response.Write (Best_Music_bgcolor)%>"> 
          <td height="22" align="center"> <input type="checkbox" name="checked" value="<%Response.Write (Best_Music_rs(0))%>"></td>
          <td height="22" >&nbsp;<img src="images/d.gif" alt="" width="12" height="12"><%Response.Write (Best_Music_rs(1))%></td>          
          <td height="22" align="center"><%Response.Write (Best_Music_rs(2))%></td>
          <td height="22" align="center"><a href="#" onclick="window.open('yxplay.asp?id=<%Response.Write(Best_Music_rs(0))%>','','scrollbars=no,resizable=no,width=400,height=190,menubar=no,top=98,left=198')"><img src="images/music_icon12_yes.gif" alt="试 听" width="14" height="11" border=0></a></td>
          <td height="22" align="center">
        <%
	  Dim Open_MusicWord_rs
          Set Open_MusicWord_rs=conn.execute("select ID from [MusicWord] where IsShow=true and MusicID="&Best_Music_rs(0))
          	If Open_MusicWord_rs.eof Then
          		Response.Write ("<a href='#' onclick=""showword('musicword.asp?action=add&id="&Best_Music_rs(0)&"&musicname="&Best_Music_rs(1)&"&singer="&Nclass&"')""><img src='images/035no.gif' alt='添加歌词' width='16' height='13' border=0></a>")
          	Else
          		Response.Write ("<a href='#' onclick=""showword('musicword.asp?action=show&id="&Best_Music_rs(0)&"&musicname="&Best_Music_rs(1)&"&singer="&Nclass&"')""><img src='images/035.gif' alt='浏览歌词' width='16' height='13' border=0></a>")
          	End If
          Open_MusicWord_rs.close
          Set Open_MusicWord_rs=NOTHING%>
          </td>
          <td height="22" align="center"><img src="images/center_img22.gif" alt="放入音乐盒" width="17" height="12"></td>
          <td height="22" align="center"><font color="#FF0000"><%Response.Write (Best_Music_rs(3))%></font></td>
        </tr>
        <tr> 
          <td colspan="7"> <TABLE width=100% height=2 border=0 align="center" cellPadding=0 cellSpacing=0 background="images/txwm_line_1.gif"><TBODY><TR> <TD height=2><IMG height=2 src="img/dot.gif" width=10></TD></TR></TBODY></TABLE></td>
        </tr>
<% 
		Best_Music_rs.movenext	
	Next
	Best_Music_rs.close
	Set Best_Music_rs=NOTHING
%>
<!-- 歌曲列表 结束 -->