<!--#include file="conn.asp"-->
<%
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

%><head><%set rs=conn.execute("select * from [ylmv_home]")%>
<title><%=stats%> - <%=rs("homes")%> - <%=rs("url")%> --- 最新流行歌曲在线试听 免费听歌 免费在线听歌 mp3免费下载 零距离音乐无线 让您的心重新获得释放 ::...</title>
<meta name="keywords" content="<%=rs("homes")%>, wma, WMA, wma下载, wma试听, WMA下载, Mp3, MP3, mp3下载, MP3下载, mtv, MTV, flash, FLASH, 免费音乐下载, 免费音乐试听, 在线视听, 流行歌曲, 经典老歌, DJ舞曲, dj舞曲, 免费电影, 电影下载, 服务器租用"/>
<meta name="description" content="<%=rs("homes")%>,六万首音乐在线试听，百万网友喜爱的音乐网站"/>
<meta http-equiv=content-type content='text/html; charset=gb2312'>  
<link href="css/style.css" rel="stylesheet" type="text/css" />
<link href="css/layout.css" rel="stylesheet" type="text/css" />
<link href="css/css.css" rel="stylesheet" type="text/css" />
<SCRIPT language=javaScript src="images/Js.js"></SCRIPT>
<SCRIPT src="js/Top.Js"></SCRIPT>
</head>
<!--分类栏目开始-->
  <table cellSpacing=0 cellPadding=0 width=970 border=0>
    <tr>
      <td width=12><IMG height=40 src="images/skin2/top/p1.gif" width=12></td>
      <SCRIPT language=jscript.encode src="Js/Class.js"></SCRIPT> 
      <td width=12><IMG height=40 src="images/skin2/top/p2.gif" width=12></td>
    </tr>
  </table>
<!--分类栏目结束-->
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
    <TR>
      <TD><IMG height=7 src="images/skin1/menu_bg2.gif" width=970></TD>
    </TR>
    <TR>
      <TD background=images/skin1/addr.jpg><TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
          <TBODY>
            <TR>
              <TD align=middle width="5%"><IMG height=17 src="images/skin1/arrows2.gif" 
            width=16></TD>
              
              <TD width="95%">您现在的位置：<a href='./'><font color=#000000><%=rs("homes")%></font></a> <font color=#000000>>></font> <a href='Music.html'><font color=#000000> 音乐频道</font></a> <font color=#000000>>></font> <font color=#000000> <%=stats%></font>&nbsp;&nbsp;&nbsp;<marquee scrolldelay="2" scrollamount="2"width="500"><script src="jstopgd.asp"  ></script>
                    </marquee></TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
    <TR>
      <TD background=images/skin1/addr_line.jpg height=4></TD>
    </TR>
  </TBODY>
<table width="970" border="0" align="center" cellspacing="0" cellpadding="0">
  <tr> 
    <td></td>
  </tr>
</table>
<table width="970" height="159" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="178" height="159" rowspan="3" valign="top" bgcolor="#F8FCFC"> 
      <script language="JavaScript" src="inc/special_list_left.js"></script>
    </td>
    <td width="1" valign="top" bgcolor="#F3F3F3"></td>
    <td width="750" valign="top" bgcolor="#FFFFFF">
	<div class="art_spec_a"><%set rs=conn.execute("select * from [ylmv_home]")%>
	<div class="art_spec_b">&nbsp;<a class=a href="index.html"><font color="#FFFFFF"><%=rs("homes")%></font></a> - <%=stats%>
      </div></div>
      <br>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 align="center">
        <TBODY>
          <TR><TD>
 <%
	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 ("首页&nbsp;上一页")
					Else%>
						<a href='?page=1&action=<%=action%>'>首页</a> <a href='?page=<%=cint(curpage-1)%>&action=<%=action%>'>上一页</a>                                       
					<%                                       
					End If
					If  curpage = Music_rs.pagecount Then
						Response.Write ("&nbsp;下一页&nbsp;尾页")
					Else%>
						&nbsp;<a href='?page=<%=cint(curpage+1)%>&action=<%=action%>'>下一页</a>&nbsp;<a href='?page=<%=cint(Music_rs.pagecount)%>&action=<%=action%>'>尾页</a>                                       
					<%End If%>                                       

                    &nbsp; 页次：<STRONG><%=curpage%>/<%=Music_rs.pagecount%></STRONG>页                                              
                        &nbsp;共<b><%=Music_rs.recordcount%></b>首推荐歌曲 &nbsp;每页<B><%=pagesize%></B>首                     
          </td> 
        </tr>
      </table>
      <br>
       <form name="form" onsubmit="javascript:return lbsong();" target="lbsong" action="playsong.asp">
                <TABLE width=98% border=0 align="center" cellPadding=0 cellSpacing=0>
                  <TBODY>
                    <TR>
                      <TD bgColor=#c7c7c7 colSpan=8 height=1></TD>
                    </TR>
                                <TR class=a111 bgColor=#ffebf2>
                      <TD align=middle width=10 height=25>&nbsp;</TD>
                      <TD width=160>歌名</TD>
                      <TD width=60>歌手</TD>
                      <TD width=25>试听</TD>
                      <TD width=25>收藏</TD>
                      <TD width=25>歌词</TD>
                      <TD width=25>点歌</TD>
                      <TD width=25>铃声</TD>
                    </TR>
                    <TR>
                      <TD bgColor=#c7c7c7 colSpan=8 
            height=1></TD>
                    </TR>
                  </TBODY>
                </TABLE>
      <table width="99%" border="0" align="center" cellpadding="3" cellspacing="0" >
        <tr><td colspan=9></td></tr>
<%
For i=1 To pagesize
%>
<tr>
<td width=10 align=right> <input type="checkbox" name="id" value="<%Response.Write (Music_rs(0))%>"></td>
<td width=5><%=i%>.</td><td width="150" align=left><a href="MusicPlay/<%Response.Write (Music_rs(4))%>/ylmv_<%Response.Write (Music_rs(0))%>.html" target="Ylmv"><%Response.Write (Music_rs(1))%></a></td>
<td width=60><%Response.Write (Music_rs(2))%></td>
<td width=25><a href="Yxplay.asp?id=<%Response.Write (Music_rs(0))%>" target="Ylmv"><img alt='试听' src=images/IC1.gif border=0></a></td>
<td width=25><a href="musicbox.asp?action=add&id=<%Response.Write(Music_rs(0))%>" target="blank""><img alt='加入音乐盒' src=images/musicbox.gif border=0></a></td>
<td width=25><%
	  	  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 ("<a href='#' onclick=""showword('musicword.asp?action=add&id="&Music_rs(0)&"&musicname="&Replace(Music_rs(1),"'","’")&"&singer="&Music_rs(2)&"')""><img src='images/035no.gif' alt='添加歌词' border=0></a>")
          	Else
          		Response.Write ("<a href='#' onclick=""showword('musicword.asp?action=show&id="&Music_rs(0)&"&musicname="&Replace(Music_rs(1),"'","’")&"&singer="&Music_rs(2)&"')""><img src='images/035.gif' alt='浏览歌词' border=0></a>")
          	End If
          Open_MusicWord_rs.close
          Set Open_MusicWord_rs=NOTHING%></td>
<td width=25><a href="Dg/Add.asp?MusicID=<%Response.Write(Music_rs(0))%>&musicname=<%Response.Write (Music_rs(1))%>"><img alt='免费点歌' src=images/IC4d_.gif border=0></a></td>
<td width=25><img src=images/sms.gif border=0></td>
</tr>
<% 
Music_rs.movenext
If Music_rs.eof Then Exit For	
Next
%>
</table>
<div align="center"><br>
        	<input type="button" name="chkall" value="" onclick="CheckAll(this.form)" title="选择显示的所有歌曲" style="width: 62px; height: 23px; background-image: url('images/ly1.gif'); border-style: none; border-width: medium">&nbsp;                       
			<input type="button" name="chkOthers" value="" onclick="CheckOthers(this.form)" title="反向选择歌曲" style="width: 62px; height: 23px; background-image: url('images/ly2.gif'); border-style: none; border-width: medium">&nbsp;                                    
			<input type="submit" name="player" value=" " title="请先选择你想听的歌曲后再点击播放" style="width: 62px; height: 23px; background-image: url('images/ly3.gif'); border-style: none; border-width: medium">
        <table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td align="center">
            <%		If curpage = 1 Then
						Response.Write ("首页&nbsp;上一页")
					Else%>
						<a href='?page=1&action=<%=action%>'>首页</a> <a href='?page=<%=cint(curpage-1)%>&action=<%=action%>'>上一页</a>                                       
					<%                                       
					End If
					If  curpage = Music_rs.pagecount Then
						Response.Write ("&nbsp;下一页&nbsp;尾页")
					Else%>
						&nbsp;<a href='?page=<%=cint(curpage+1)%>&action=<%=action%>'>下一页</a>&nbsp;<a href='?page=<%=cint(Music_rs.pagecount)%>&action=<%=action%>'>尾页</a>                                       
					<%End If%>                                       

                    &nbsp; 页次：<STRONG><%=curpage%>/<%=Music_rs.pagecount%></STRONG>页                                              
                        &nbsp;共<b><%=Music_rs.recordcount%></b>首推荐歌曲&nbsp;每页<B><%=pagesize%></B>首</div>         
<%
Music_rs.close
Set Music_rs=NOTHING
%>
            </td>       
          </tr>
        </table>
   </td>
  </tr>
</table>
<!-- 底部开始 -->
<SCRIPT src="js/bottom.Js"></SCRIPT>