list_special_hot.inc

971音乐站全站程序

<!-- 导航热门专辑列表 开始 -->
	<%
	Dim Hot_Special_List_rs
	Set Hot_Special_List_rs=conn.execute("select SpecialID,name from [Special] ORDER BY hits desc")
	For i=1 To 12
		If Hot_Special_List_rs.eof Then Exit For
	%>
        <tr> 
          <td height="22">&nbsp;<img src="images/br_dot.gif" width="5" height="5"> <a href="show.asp?Specialid=<%Response.Write(Hot_Special_List_rs(0))%>"><font color="#000000"><%If Len(Hot_Special_List_rs(1))>17 Then Response.Write (left(Hot_Special_List_rs(1),16)&"..")  Else Response.Write(Hot_Special_List_rs(1)) End If%></font></a></td>                                   
        </tr>
	<%	
		Hot_Special_List_rs.movenext	
	Next
	Hot_Special_List_rs.close
	Set Hot_Special_List_rs=NOTHING
	%>
<!-- 导航热门专辑列表 结束 -->