speciallist.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 67 行

<%
classID=Request.QueryString("classID")
%>
<!--#include file="../conn2.asp"-->
<!--#include file="top.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td  valign="top" > 
        <TBODY>
    <TR> 
      <TD width=160 rowspan="2" vAlign=top ><table width="160" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>影视排行 
                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 * from videoSpecial order by hits desc"      
		rs.open sql,conn,1,1      
		do while not rs.eof      
			n=n+1      
			response.write "<tr bgcolor=#f0f0f0><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="601" align="center" valign="top"  > 
	<!--#include file="top2.asp"-->
	<table border=0 width=100%>
        <%
 sql="select * from videospecial 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/video.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" -->