<!--#include file="conn.asp"-->
<%
Dim action
action=trim(request.QueryString("action"))

If action="best" Then
	stats="全部推荐专辑"
ElseIf action="hot" 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="700" 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="./"><font color="#FFFFFF"><%=rs("homes")%></font></a> - <%=stats%>
        </div></div>
	<br>
        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
        <tr>
          <td bgcolor="#FFFFFF"> 
<%
Dim pagesize,curpage,Special_rs
pagesize=30		'设置每页显示 3的倍数
If Request.QueryString("page")="" or not IsNumeric(Request.QueryString("page")) Then
  	curpage = 1
Else
	curpage = cint(Request.QueryString("page"))
End If

If action="best" Then
	sql = "select SpecialID,name,Yuyan,SClassID,SClass,NClass,pic,hits from [ylmv_Special] where isgood=true ORDER BY SpecialID desc"
ElseIf action="hot" Then
	sql = "select SpecialID,name,Yuyan,SClassID,SClass,NClass,pic,hits from [ylmv_Special] ORDER BY hits desc"
Else
	sql = "select SpecialID,name,Yuyan,SClassID,SClass,NClass,pic,hits from [ylmv_Special] ORDER BY SpecialID desc"
End If
Set Special_rs = Server.CreateObject("ADODB.Recordset")
Special_rs.open sql, conn, 1, 1
If Special_rs.eof Then
        Response.Write("还没有专辑呢, 谢谢你的支持!")
End If
Special_rs.pagesize = pagesize
Special_rs.absolutepage = curpage

For i=1 To pagesize
%>
<DIV style="padding-top:20px;width:270px;height:120px;float:left;border-bottom:1px dotted #E2E2E2">
<table width="270" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<td width="120" align="center">
<table border="0" cellpadding="1" cellspacing="1" bgcolor="#00CCFF">
<tr> 
<td bgcolor="#FFFFFF"><a href="Musiclist/ylmv_<%=Special_rs("SpecialID")%>.html"><img src="<%=Special_rs("pic")%>" width="80" height="80" border=0></a></td>
<td bgcolor="#61D4F1"><img src="images/l.gif" /></td>
</tr>
</table></td>
<td width="270" style="line-height:18px;" align=left><font color="657D00">专辑名称：</font><font color="#0033CC"><%=Special_rs("name")%></font><br>            
<font color="FF5A00">歌手姓名：<%=Special_rs("NClass")%></font><br>            
<font color="946500">所属语言：<%=Special_rs("Yuyan")%></font><br>
<font color="657D00"><a href="Musiclist/ylmv_<%=Special_rs("SpecialID")%>.html">进入试听</a></font></td>
</tr>
</table>
</div>
<%
Special_rs.movenext
If Special_rs.eof Then Exit For
Next
%>
   </td>
</tr>
<tr>
   <td height="1" bgcolor="#E2E2E2"></td>
</tr>
</table>
        <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 = Special_rs.pagecount Then
			Response.Write ("&nbsp;下一页&nbsp;尾页")
		Else%>
&nbsp;<a href='?page=<%=cint(curpage+1)%>&action=<%=action%>'>下一页</a>&nbsp;<a href='?page=<%=cint(Special_rs.pagecount)%>&action=<%=action%>'>尾页</a>                          
		<%End If%>                          
&nbsp; 页次：<STRONG><%=curpage%>/<%=Special_rs.pagecount%></STRONG>页&nbsp;共<b><%=Special_rs.recordcount%></b>张专辑 &nbsp;每页<B><%=pagesize%></B>张</td>        
  </tr>
</table>  
<% 
Special_rs.close
Set Special_rs=NOTHING
%>       
    </td>       
  </tr>
</table>
<!-- 底部开始 -->
<SCRIPT src="js/bottom.Js"></SCRIPT>