list_music_hot.inc

971音乐站全站程序

<!-- 导航热门单曲列表 开始 -->
	<%
	Dim Hot_Music_List_rs
	Set Hot_Music_List_rs=conn.execute("select id,MusicName from [MusicList] ORDER BY hits desc")
	For i=1 To 12
		If Hot_Music_List_rs.eof Then Exit For
	%>
        <tr> 
          <td height="22">&nbsp;<img src="images/br_dot.gif" width="5" height="5"> <a href="#" onclick="window.open('yxplay.asp?id=<%Response.Write(Hot_Music_List_rs(0))%>','','scrollbars=no,resizable=no,width=400,height=190,menubar=no,top=98,left=198')"><font color="#000000"><%If Len(Hot_Music_List_rs(1))>17 Then Response.Write (left(Hot_Music_List_rs(1),16)&"..")  Else Response.Write(Hot_Music_List_rs(1)) End If%></font></a></td>                                  
        </tr>
	<%	
		Hot_Music_List_rs.movenext	
	Next
	Hot_Music_List_rs.close
	Set Hot_Music_List_rs=NOTHING
	%>
<!-- 导航热门单曲列表 开始 -->