华人组合 | 日韩组合

闽南台语 | 儿歌 | DJ舞曲 | 影视其它 | 音乐欣赏 | 经典怀旧 | 情歌の派

<%=XDsystemName%> → 歌曲排行 → 华人女歌手单曲排行(周)
华人女歌手单曲排行(周)
更多>>
<% i=0 MaxList=201 set rs=server.createobject("adodb.recordset") sql="select top "&MaxList&" id,Nclassid,musicName,Singer FROM MusicList where sclassid=2 order by z_hits desc" rs.Open sql,conn,1,1 do while not rs.eof i=i+1 %>
<%=right("00"&i,3)%>.
">
/<%=rs("id")%>.html') title="<%=rs("Singer")%>"><%=rs("musicName")%>
<% if i>=MaxList then exit do rs.movenext loop rs.close %>
随 机 播 放连 续 播 放

关于我们 | 版权声明 | 错误报告 | 建议反馈 | 联系我们 | 广告服务 | 友情链接 | 帮助中心

Copyright © 2008 www.6t1t.com All Rights Reserved.
站不提供任何下载链接,音乐系自动搜索结果,出处与本站无关 请在确认获得著作权人合法授权后使用 支持正版 浙ICP备06054526号
<% Sub SenFe_DJList(sWhere,sTemplate,iLen,iQuantity) Set Rs = Server.Createobject("Adodb.Recordset") Rs.Open "Select * From [MusicList] " & sWhere,Conn,1,1 If Rs.Eof Then sTemplate = Replace(sTemplate,"$SenFe_No$","") sTemplate = Replace(sTemplate,"$SenFe_PlayUrl$","#") sTemplate = Replace(sTemplate,"$SenFe_DJName$","还没有任何舞曲！") Response.Write(sTemplate & VbCrLf) Else Dim N,sContent N = 0 Do While Not Rs.Eof And N" & SenFe_GotTopic(Rs("MusicName"),iLen) & "") 'Else sContent = Replace(sContent,"$SenFe_DJName$",SenFe_GotTopic(Rs("MusicName"),iLen)) 'End If Response.Write(sContent & VbCrLf) Rs.MoveNext Loop End If Rs.Close Set Rs = Nothing End Sub %>