<!--#include file="conn.asp"-->
<!--#include file="Top.asp"--> 
<div align="center"> 
  <table width="773" height="72" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
    <tr> 
      <td width="161" rowspan="2" valign="top" bgcolor="#eeeeee"><b> 
        <!--#include file="left.asp"-->
        </b></td>
      <td height="23" bgcolor="#b5df42"><strong><font color="#000000">　<a href="/">返回首页</a> 
        &gt; 专集推荐列表</font></strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF"> 
        <table width="100%" border="0" cellspacing="3" cellpadding="0">
          <tr>
            <td><table width=100% height="100%" border=0 cellpadding=4 cellspacing=1 bgcolor="#c0c0c0">
                <%
i=0 
MaxList=50
set rs=server.createobject("adodb.recordset")
sql="SELECT top 50 * FROM Special where IsGood=1 order by Specialid desc"
rs.Open sql,conn,1,1
%>
                <%
do while not rs.eof
	i=i+1
%>
                <tr bgcolor="#FFFFFF"> 
                  <td width=96 height="104" bgcolor="#FFFFFF" style="solid #000000; border-bottom: 1 solid #FFFFFF"> 
                  <p align="center"><a href="Musiclist.asp?AlbumID=<%=rs("SpecialID")%>"><img src="<%=rs("pic")%>" alt="推荐专集：<%=rs("name")%>" width=90 height=90 border=0 style="border: 1 solid #000000"></a></p></td>
                  <td width=465 height="104" valign=top bgcolor="#FFFFFF"> 
                    <table width="76%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="64"><strong>歌&nbsp;&nbsp;&nbsp; 手：</strong><%=rs("NClass")%><br> 
                          <strong>专辑名称：</strong><a href="Musiclist.asp?AlbumID=<%=rs("SpecialID")%>">[ 
                          <%=rs("name")%> ] </a><br> <strong>专辑介绍：</strong> 
                          <%                           
if len(rs("intro"))>50 then
	response.write (left(rs("intro"),50))
else
	response.write (rs("intro"))
end if
%>
                          ...</td>
                      </tr>
                    </table>                  </td>
                </tr>
                <%
	if (i mod (MaxList/1)=0) and i>=(MaxList/1) then
%>
                <%
	end if
	if i>=MaxList then exit do
rs.movenext
loop
%>
              </table></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</div>

<!--#include file="Bottom.asp"--> 