index.asp

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

<!--#include file="../conn2.asp"-->
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <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>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="600" valign=top  bgcolor="#FFFFFF"> 
<!--#include file="top2.asp"-->
  <div align=center>
 <table border=0 width=100%>
 <tr>
<%                    
		sql="select top 4 specialid,picsrc,specialname from [FlashSpecial]order by SpecialId"      
		rs.open sql,conn,1,1      
		do while not rs.eof      
               if len(rs("picsrc"))>0 then
                   picsrc=rs("picsrc")
                else
                 picsrc="../images/blank.gif"
               end if
			response.write "<td width=""25%""><a href=SpecialShow.asp?SpecialId="&rs("SpecialId")&" ><img src="&picsrc&" border=0 width=100 height=100></a><br> "&rs("specialName")&" </td> "      
			   
		rs.movenext      
		loop      
		rs.close      
		%>  
</tr></table>

</div>  </TD>
    </tr>
    <TR>
      <TD valign=top  bgcolor="#FFFFFF"></TD>
    </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<!-- 底部信息部分 -->
<!-- #include file="foot.asp" -->