<!--#include file="conn.asp"-->
<!--#include file="Star.INC"-->
<!--#include file="sql.asp"-->
<!--#include file="inc/noip.asp"--> 
<%
Specialid=request.QueryString("AlbumID")
set rs=server.createobject("adodb.recordset")

%>
<!--#include file="Top11.asp"--> <body leftMargin=0 topMargin=0> 
<table width="900" BORDER="0" CELLSPACING="0" CELLPADDING="0" bgcolor="#FFFFFF"> 
<tr> <td width="200" valign="top" bgcolor="F7F7F7"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td><img src="indeximg/0859_top1.gif" width="200" height="40"></td></tr> 
<tr> <td><table width="100%" border="0" cellspacing="4" cellpadding="0"> <tr> 
<td><table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"> 
<%
'////////////////////////////////////////////////////////////
'##################################################################
m=0
set rs=conn.execute("SELECT top 20 Specialid,name,Classid,SClassid,NClassid,NClass,hits FROM Special order by hits desc") 
if not Rs.eof then
do while not rs.eof
m=m+1
if len(rs("name"))>10 then
titley=left(rs("name"),10)
else
titley=rs("name")
end if
%> <tr> <td width=100% ><img src="indeximg/greenpoint.gif" width="11" height="11" align="absmiddle">&nbsp;<a href='Musiclist.asp?AlbumID=<%=rs("Specialid")%>'><%=titley%></a></td><td width=20% align="center" ><font color="#FF6600"><%=rs("hits")%></font></td></tr> 
<%
if m>=20 then exit do
rs.movenext 
loop
else
response.write "尚无收录"
end if
rs.close

%> <%
'////////////////////////////////////////////////////////////
'##################################################################
'//////////////////////////////////////////////////////////
%> </table></td></tr> </table></td></tr> <tr> <td><img src="indeximg/0859_top2.gif" width="200" height="40"></td></tr> 
<tr> <td><table width="100%" border="0" cellspacing="4" cellpadding="0"> <tr> 
<td><table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"> 
<%
'////////////////////////////////////////////////////////////
'##################################################################
m=0
set rs=conn.execute("SELECT top 20 id,Singer,ClassID,SClassID,NClassID,MusicName,hits FROM MusicList order by hits desc") 
if not Rs.eof then
do while not rs.eof
m=m+1

if len(rs("MusicName"))>10 then
title=left(rs("MusicName"),10)
else
title=rs("MusicName")
end if
%> <tr> <td width=100% ><img src="indeximg/greenpoint.gif" width="11" height="11" align="absmiddle">&nbsp;<a href="Yxplay.asp?id=<%=rs("id")%>" target="_blank" title="试听"><%=title%></a></td><td width=20% align="center" ><font color="#FF6600"><%=rs("hits")%></font></td>
<%
if m>=20 then exit do
rs.movenext 
loop
else
response.write "尚无收录"
end if
rs.close
%> <%
'////////////////////////////////////////////////////////////
'##################################################################
%> <%
sql="select * from Special where Specialid="&cstr(Specialid)
rs.open sql,conn,1,3
if rs.EOF then
	errmsg= "<li>服务器出错！请联系管理员</li>"
	call error()
	Response.End 
else
	rs("hits")=rs("hits")+1
	rs.update
	hits=rs("hits")
	Classid=rs("Classid")
	SClassid=rs("SClassid")
	NClassid=rs("NClassid")
	Nclass=rs("Nclass")
	name=rs("name")
	Gongsi=rs("Gongsi")
	Yuyan=rs("Yuyan")
	pic=rs("pic")
	intro=rs("intro")
%> </table></td></tr> </table></td></tr> <tr> <td>　</td>
</tr> 
<tr> 
  <td>　</td>
</tr> 
<tr> <td>　</td></tr> </table></td><td width="100%" bgcolor="#FFFFFF" height="74" valign="top"><table width="100%" border="0" cellspacing="4" cellpadding="0"> 
<tr> <td> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%"> 
<tr> <td height="25"><a href='index.asp'><font class=font2>音乐首页</font></a><font class=font2> 
→ </font><a href="Artlist.asp?Name=51y&ID=<%=rs("SClassid")%>"><font class=font2><%=rs("SClass")%></font></a><font class=font2 > 
→ <a href="Albumlist.asp?Name=51y&ID=<%=rs("classid")%>&ArtID=<%=rs("Nclassid")%>"><%=rs("Nclass")%></a> 
→ 专辑列表&nbsp;&nbsp;&nbsp;</font></td></tr> <tr> <td valign="top" bgcolor="#CCCCCC"><img src="indeximg/1x1.gif" width="1" height="1"></td></tr> 
<tr> <td width="100%" valign="top" bgcolor="F7F7F7"><img src="indeximg/4x4.gif" width="4" height="4"></td></tr> 
<tr> <td align="center" bgcolor="#FFFFFF">　</td></tr> <tr> <td width="100%" align="center" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC"> 
<tr> <td bgcolor="eeeeee"><table width="100%" border="0" cellspacing="4" cellpadding="0"> 
<tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5"> 
<tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="5" cellpadding="0"> 
<tr> <td width="23%"> <table width="110" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td height="110" align="center" valign="middle" background="indeximg/bg_88.gif"><img src=<%=pic%> width=85 height=85 border=0></td></tr> 
</table></td><td width="77%" align="center"> <table width="100%" border="0" cellspacing="1" cellpadding="0"> 
<tr> <td width="26%" height="19" align="center" bgcolor="#FF9900"><font color="#FFFFFF">专集名称：</font></td><td width="74%" bgcolor="eeeeee">&nbsp;&nbsp;<%=name%></td></tr> 
<tr> <td height="19" align="center" bgcolor="#FF9900"><font color="#FFFFFF">演唱歌手：</font></td><td bgcolor="eeeeee">&nbsp;&nbsp;<a href="Albumlist.asp?Name=51y&ID=<%=rs("classid")%>&ArtID=<%=rs("Nclassid")%>"><%=rs("Nclass")%></a></td></tr> 
<tr> <td height="19" align="center" bgcolor="#FF9900"><font color="#FFFFFF">发行公司：</font></td><td bgcolor="eeeeee">&nbsp;&nbsp;<%=Gongsi%></td></tr> 
<tr> <td height="19" align="center" bgcolor="#FF9900"><font color="#FFFFFF">发行日期：</font></td><td bgcolor="eeeeee">&nbsp;&nbsp;<%=rs("Times")%></td></tr> 
<tr> <td height="19" align="center" bgcolor="#FF9900"><font color="#FFFFFF">语言种类：</font></td><td bgcolor="eeeeee">&nbsp;&nbsp;<%=Yuyan%> 
[<a href="albuBox.asp?action=add&id=<%=rs("Specialid")%>" target="_blank" title="会员才能使用专集收藏夹"><font color=red>收藏此专辑</font></a>] <a href='#' onClick=window.open('user/Mailalbum.asp?id=811','','scrollbars=no,resizable=no,width=419,height=151,menubar=no,top=98,left=198')> 
</td></tr> </table></td></tr> </table></td></tr> </table></td></tr> </table></td></tr> 
</table></td></tr> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="8" cellpadding="0"> 
<tr> <td><font color="#006600">专集介绍：</font></td></tr> <tr> <td> <%if intro="" then%> 
<%else%> <%=htmlencode3(intro)%> <%end if%> </td></tr> </table></td></tr> <tr> 
<td bgcolor="#FFFFFF">　</td></tr> <tr> <td bgcolor="#FFFFFF"> <%
end if
rs.close
%> <table width="546" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> <td><img src="indeximg/liebiao_bg1.gif" width="546" height="35"></td></tr> 
<tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> 
<td width="1" valign="top" bgcolor="#CCCCCC"><img src="indeximg/1x1.gif" width="1" height="1"></td><td><table width="100%" border="0" cellspacing="4" cellpadding="0"> 
<tr> <td> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#eeeeee"> 
<%
sql="select * from MusicList where Specialid="&cstr(Specialid)
rs.open sql,conn,1,1
if rs.EOF then
response.write "<div align=center>暂时未收录歌曲</div>"
else
%> <tr align="center" bgcolor="#eeeeee"> <td width="40" height="25" background="Play/links_02.gif" bgcolor="#eeeeee"> <table border='1' cellpadding='2' cellspacing='0' width='99%' bordercolor='#000000' bordercolordark='#FFFFFF'> <form name=form2 target="lbsong" action=playsong.asp>
</table><font color="#FFFFFF">选择</font></td><td width='247' valign='bottom' background="Play/links_02.gif" bgcolor="#eeeeee" class=bg1><font color="#333333">歌曲</font></td>
<td width='40' height='25' background="Play/links_02.gif" bgcolor="#eeeeee" class=bg1><font color="#FFFFFF">试听</font></td>
<td width='40' background="Play/links_02.gif" bgcolor="#eeeeee" class=bg1><font color="#FFFFFF">下载</font></td>
<td width='40' background="Play/links_02.gif" bgcolor="#eeeeee" class=bg1><font color="#FFFFFF">歌词</font></td>
<td width='40' background="Play/links_02.gif" bgcolor="#eeeeee" class=bg1><font color="#FFFFFF">点歌</font></td>
<td width='40' background="Play/links_02.gif" bgcolor="#eeeeee" class=bg1><font color="#FFFFFF">收藏</font></td>
<%
i=0
do while not rs.eof
i=i+1
%> </tr> <tr bgcolor="#FFFFFF" onmouseover=this.bgColor='#F5F5F5' onmouseout=this.bgColor='#ffffff' this.style cursor='hand'> 
<td width='40' height="25" align='center'> <input type='checkbox' name='checked' value='<%=rs("id")%>'></td><td width='247' align='left'> 
&nbsp; <%=i%>.<a href="Yxplay.asp?id=<%=rs("id")%>" target="lbsong" title="试听"><%=rs("MusicName")%></a> 
<img src="indeximg/ting.gif" width="11" height="9" align="absmiddle"> </td><td width='40' align='center'><a href="Yxplay.asp?id=<%=rs("id")%>" target="lbsong" title="试听"><img border='0' src='indeximg/wma.gif' alt='试听本歌曲' WIDTH="17" HEIGHT="16"></a></td><td width='40' align='center'><a href="#" onClick="window.open('Yxdown.asp?id=<%=rs("id")%>','yxdown','scrollbars=no,resizable=no,width=510,height=340,menubar=no,top=98,left=68')"><img src='indeximg/down.gif' border='0' width='14' height='12' alt='下载本歌曲'></a></td><td width='40' align='center'><a href="#" onClick="window.open('inc/GetOne.asp?MusicName=<%=rs("MusicName")%>','51y','scrollbars=yes,resizable=no,width=320,height=420,menubar=no,top=100,left=200');"><img src='indeximg/word.gif' width='16' height='16' border='0' alt='查看本歌曲的歌词'></a></td><td width='36' align='center'><a href="Dg/Add.asp?MusicID=<%=rs("id")%>&musicname=<%=rs("MusicName")%>"><img border='0' height='12' src='indeximg/diange.gif' width='13' alt='把本歌曲送给你朋友共享'></a></td><td width='40' align='center'><a href="Box.asp?action=add&id=<%=rs("id")%>" target="_blank" title="会员才能使用音乐盒"><img src='indeximg/shoucang.gif' border='0' width='14' height='15' alt='把本歌曲放入你的音乐盒'></a></td></tr> 
<% 
rs.movenext 
loop 
%> <tr bgcolor="#FFFFFF"> <td height='30' colspan='7' align='center'> <input type="hidden" name="PageName" value="ShowSpecial"> 
<input type="hidden" name="Specialid" value="811"> <input type="button" name="chkall"  value=" " onclick="CheckAll(this.form)" title="选择显示的所有歌曲" class="anniou" style="width: 62px; height: 23px; background-image: url('img/ly1.gif'); border-style: none; border-width: medium"> 
<input type="button" name="chkOthers" value=" " onclick="CheckOthers(this.form)" title="反向选择歌曲" class="anniou"  style="width: 62px; height: 23px; background-image: url('img/ly2.gif'); border-style: none; border-width: medium"> 
<input type="submit" name="player" value=" " title="请先选择你想听的歌曲后再点击播放" style="width: 62px; height: 23px; background-image: url('img/ly3.gif'); border-style: none; border-width: medium"></td><%
end if
rs.close
%> </tr> </table></form> </td></tr> </table></td><td width="1" valign="top" bgcolor="#CCCCCC"><img src="indeximg/1x1.gif" width="1" height="1"></td></tr> 
</table></td></tr> <tr> <td valign="top" bgcolor="#CCCCCC"><img src="indeximg/1x1.gif" width="1" height="1"></td></tr> 
</table></td></tr> </table></td></tr> </table></tr> <tr> <td width="576" valign="top"><table width="100%" border="0" cellspacing="3" cellpadding="0"> 
<tr> </tr> </table></td></tr> </table><%
set rs=nothing

%>
<%
conn.close
set conn=nothing
%>
 <SCRIPT src="js/bottom.Js"></SCRIPT>