speciallist.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<%
classID=Request.QueryString("classID")
%>
<!--#include file="top.asp"-->
<!--#include file="../conn2.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="170"  valign="top" > 
     <table width="160" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>Flash 排行 
                TOP 10</b></font></div></td>
          </tr>
        </table>
        <table width="160" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<%                   
set rs=server.CreateObject("adodb.recordset")      
		n=0      
		sql="select top 10 specialid,specialname from flashSpecial order by hits desc"      
		rs.open sql,conn,1,1      
		do while not rs.eof      
			n=n+1      
			response.write "<tr bgcolor=#ffffff><td><font color=#3399ff>■</font> <a href=SpecialShow.asp?SpecialId="&rs("SpecialId")&" > "&rs("specialName")&"</a></td></tr> "      
			   
		rs.movenext      
		loop      
		rs.close      
		%>  
        </table> 
    </td>
    <td width="1">&nbsp;</td>
    <td width="80%" align="center" valign="top"  >  
     <!--#include file="top2.asp"-->
	 <table border=0 width=100%>
 <%
 sql="select * from flashspecial where classID="&classID
 rs.open sql,conn,1,1
 if rs.eof or rs.bof then 
 response.write"还没有任何专辑"
 else 
 i=0    
  %>
 <tr>
 <%do while not rs.eof
   if len(rs("picsrc"))>0 then
         picsrc=rs("picsrc")
     else
         picsrc="../images/blank.gif"
   end if
 response.write"<td><table border=0><tr><td><img src=../images/flash.gif><a href=specialshow.asp?specialID="&rs("specialid")&">"&rs("specialname")&"</a><br>[点击："&rs("hits")&"　加入："&rs("adddate")&"]</td></tr></table></td> "
  i=i+1
  
 if i mod 2=0 then 
 response.write"</tr>"
 end if

 rs.movenext
  loop

 end if 
 rs.close
 %>
      
    </table>
   </td>
    
  </tr>
  
</table>
<!-- #include file="foot.asp" -->