newrank_flash.asp

一个FLASH游戏的主页源码

<table border="0" width="93%" cellspacing="0" cellpadding="0">
<%
sql="select * from Flash order by FNO desc" 
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,3
n=0
'预留分页显示功能
if not isempty(request("page")) then   
pagecount=cint(request("page"))   
else   
pagecount=1
end if

rs.pagesize=2
rs.AbsolutePage=pagecount

do while not rs.eof 
%>
  <tr>
    <td width="46%">
<table border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td>
      <table border="0" bgcolor="#E1E1E1" cellspacing="1" cellpadding="0">
        <tr>
          <td width="100%">
<table cellSpacing="1" cellPadding="0" width="100%" bgColor="#d7d7d7" border="0">
  <tr>
    <td width="100%">
      <table cellSpacing="1" cellPadding="0" width="100%" bgColor="#b2b2b2" border="0">
        <tr>
          <td width="100%">
<table cellSpacing="0" cellPadding="5" width="100%" border="0">
  <tr>
    <td width="100%" bgColor="#ffffff">
      <table cellSpacing="0" border="0">
        <tr>
          <td width="100%" bgColor="#666666"><a href="Show_Flash.Asp?FID=<%=rs("FID")%>"><img border="0" src="UploadPic/<%=rs("FPic")%>" width="120" height="90"></a></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td align="center"><a href="Show_Flash.Asp?FID=<%=rs("FID")%>"><font color="#8C7931"><b><%=rs("Name")%></b></font></a></td>
  </tr>
</table>
    </td>
    <td class="hj" width="54%"><b>作者：</b><a href="Show_Flasher.asp?Flasher=<%=rs("Flasher")%>"><%=rs("Flasher")%></a><br>
      <b>大小：</b><%=rs("Size")%> KB<br>                
      <b>类别：</b><a href="Channel_List.asp?ChannelID=<%=rs("ChannelID")%>&ChannelName=<%=rs("ChannelName")%>"><%=rs("ChannelName")%></a><br>
      <b>查看：</b><%=rs("Click")%> 次<br>                
      <b>评价：</b><font color="#8C7931"><%=rs("StarNO")%></font><font color="#ff9966"><br>
      </font><font color="#000000"><b>介绍：</b><%=left(rs("Intro"),23)%>...</font></td>
  </tr>
  <tr>
    <td colspan="2" height="5"></td>
  </tr>
<%
rs.movenext
n=n+1
if n>=rs.pagesize then exit do
loop

rs.close
set rs=nothing
%>
</table>