show_flasher.asp

一个FLASH游戏的主页源码

                <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")%>"><%=rs("Name")%></a></td>
                  </tr>
                </table>
              </td>
<%
rs.movenext
if rs.eof or rs.bof then 
response.write "<td width='33%'></td><td width='34%'></td>"
exit do
else
n=n+1
end if
%>
              <td width="33%" align="center">
                <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")%>"><%=rs("Name")%></a></td>
                  </tr>
                </table>
              </td>
<%
rs.movenext
if rs.eof or rs.bof then 
response.write "<td width='34%'></td>"
exit do
else
n=n+1
end if
%>
              <td width="34%" align="center">
                <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")%>"><%=rs("Name")%></a></td>
                  </tr>
                </table>
              </td>
            </tr>
<%
rs.movenext
n=n+1
if n>=rs.pagesize then exit do
loop
%>
          </table>
          </td>
        </tr>
        <tr>
          <td><img border="0" src="Image/Channel_DownB_570.gif"></td>
        </tr>
<form action="Show_Flsher.asp" method="post">
      <tr>
        <td align="center" style="padding-top:10px" height="50" background="Image/Page_Channel_Bg_570.gif">共 <b><%=rs.recordcount%></b> 部动画 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>,                             
          当前从第 <%                  
if pagecount<=1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%> 部开始。 <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>                  
          <a href="Show_Flsher.asp?Flasher=<%=Flasher%>&page=<%=cstr(pagecount+1)%>">下一页</a>                  
          <% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %>                  
          <a href="Show_Flsher.asp?Flasher=<%=Flasher%>&page=<%=cstr(pagecount-1)%>">                  
          上一页</a> <%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%>                  
          <a href="Show_Flsher.asp?Flasher=<%=Flasher%>&page=<%=cstr(pagecount-1)%>">                  
          上一页</a> <a href="Show_Flsher.asp?Flasher=<%=Flasher%>&page=<%=cstr(pagecount+1)%>">                  
          下一页</a> <% end if%>&nbsp; 跳转到                  
          <select name="page">
            <%for i=1 to rs.pagecount%>
<%
iselected=""
if i=pagecount then iselected="selected"
%>
            <option value="<%=i%>" <%=iselected%>><%=i%></option>
            <%next%> 
          </select> 页 <input type="hidden" name="FlasherType" value="<%=FlasherType%>"><input border=0 onFocus=if(this.blur)this.blur() name=go src="Image/B_Go.gif" type=image align="absmiddle" alt="点击提交"></td>                        
      </tr>
</Form>
<%
rs.close
set rs=nothing
%>
      <tr>
        <td height="10"></td>         
      </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>