<% Dim action action=trim(request.QueryString("action")) If action="all" Then stats="全部歌曲列表" ElseIf action="hot" Then stats="热门歌曲排行" ElseIf action="om" Then stats="欧美歌曲列表" ElseIf action="rh" Then stats="日韩歌曲列表" Else stats="所有推荐歌曲" End If %><%set rs=conn.execute("select * from [ylmv_home]")%> <%=stats%> - <%=rs("homes")%> - <%=rs("url")%> --- 最新流行歌曲在线试听 免费听歌 免费在线听歌 mp3免费下载 久久音乐无线 让您的心重新获得释放 ::... , wma, WMA, wma下载, wma试听, WMA下载, Mp3, MP3, mp3下载, MP3下载, mtv, MTV, flash, FLASH, 免费音乐下载, 免费音乐试听, 在线视听, 流行歌曲, 经典老歌, DJ舞曲, dj舞曲, 免费电影, 电影下载, 服务器租用"/> ,六万首音乐在线试听,百万网友喜爱的音乐网站"/>
您现在的位置:<%=rs("homes")%> >> 音乐频道 >> <%=stats%>   
<%set rs=conn.execute("select * from [ylmv_home]")%>
 <%=rs("homes")%> - <%=stats%>

<% Dim pagesize,curpage,Music_rs pagesize=30 '设置每页显示数 If Request.QueryString("page")="" or not IsNumeric(Request.QueryString("page")) Then curpage = 1 Else curpage = cint(Request.QueryString("page")) End If If action="all" Then sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] ORDER BY ID desc" ElseIf action="hot" Then sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] ORDER BY hits desc" ElseIf action="om" Then sql1="select sclassid from ylmv_sclass where sclass like '%欧美%'" sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] where sclassid in ("&sql1&") ORDER BY ID desc" ElseIf action="rh" Then sql1="select sclassid from ylmv_sclass where sclass like '%日%' or sclass like '%韩%'" sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] where sclassid in ("&sql1&") ORDER BY ID desc" Else sql = "select ID,MusicName,Singer,hits,NClassID from [ylmv_MusicList] where IsGood=true ORDER BY ID desc" End If Set Music_rs = Server.CreateObject("ADODB.Recordset") Music_rs.open sql, conn, 1, 1 If Music_rs.eof Then Response.Write("还没有推荐歌曲呢, 谢谢你的支持!") End If Music_rs.pagesize = pagesize Music_rs.absolutepage = curpage If curpage = 1 Then Response.Write ("首页 上一页") Else%> 首页 上一页 <% End If If curpage = Music_rs.pagecount Then Response.Write (" 下一页 尾页") Else%>  下一页 尾页 <%End If%>   页次:<%=curpage%>/<%=Music_rs.pagecount%>页  共<%=Music_rs.recordcount%>首推荐歌曲  每页<%=pagesize%>

  歌名 歌手 试听 收藏 歌词 点歌 铃声
<% For i=1 To pagesize %> <% Music_rs.movenext If Music_rs.eof Then Exit For Next %>
<%=i%>.<%Response.Write (Music_rs(1))%> <%Response.Write (Music_rs(2))%> 试听 加入音乐盒 <% Dim Open_MusicWord_rs Set Open_MusicWord_rs=conn.execute("select ID from [ylmv_MusicWord] where IsShow=true and MusicID="&Music_rs(0)) If Open_MusicWord_rs.eof Then Response.Write ("添加歌词") Else Response.Write ("浏览歌词") End If Open_MusicWord_rs.close Set Open_MusicWord_rs=NOTHING%> 免费点歌

   
<% If curpage = 1 Then Response.Write ("首页 上一页") Else%> 首页 上一页 <% End If If curpage = Music_rs.pagecount Then Response.Write (" 下一页 尾页") Else%>  下一页 尾页 <%End If%>   页次:<%=curpage%>/<%=Music_rs.pagecount%>页  共<%=Music_rs.recordcount%>首推荐歌曲 每页<%=pagesize%>首 <% Music_rs.close Set Music_rs=NOTHING %>