channel_list.asp

一个FLASH游戏的主页源码

                                                  <tr> 
                                                    <td width="100%" bgColor="#666666"><a href="Show_Flash.Asp?FID=<%=rs("FID")%>" Title="<%=rs("Name")%>"><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")%>" Title="<%=rs("Name")%>"><%=left(rs("Name"),11)%></a></td>
                    </tr>
                  </table></td>
              </tr>
              <%
rs.movenext
n=n+1
if n>=3 then exit do
loop
rs.close
set rs=nothing
%>
            </table></td>
        </tr>
        <tr> 
          <td><img border="0" src="Image/Channel_DownA_570.gif"></td>
        </tr>
        <tr> 
          <td height="10"></td>
        </tr>
      </table>
      <table border="0" width="570" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img border="0" src="Image/Channel_List_570.gif"></td>
        </tr>
        <tr> 
          <td background="Image/Channel_BgB_570.gif" align="center"> <table border="0" width="95%" cellspacing="0" cellpadding="5">
              <%
sql="select * from Flash where ChannelID="&ChannelID&" order by FID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1

i=0
'预留分页显示功能
if not isempty(request("page")) then   
pagecount=cint(request("page"))   
else   
pagecount=1
end if

rs.pagesize=6
rs.AbsolutePage=pagecount

do while not rs.eof 
%>
              <tr> 
                <td width="32%" align="center" height="150"> <table border="0" cellspacing="1" cellpadding="0" bgcolor="#E1E1E1">
                    <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>
                <td width="68%"> <table border="0" width="95%" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td height="26" colspan="2">【<a href="Class_List.Asp?ChannelID=<%=ChannelID%>&ChannelName=<%=ChannelName%>&ClassID=<%=rs("ClassID")%>&ClassName=<%=rs("ClassName")%>"><%=rs("ClassName")%></a>】【<a href="Show_Flash.asp?FID=<%=rs("FID")%>"><%=rs("Name")%></a>】</td>
                    </tr>
                    <tr> 
                      <td height="1" background="Image/Text_Line_Bg.gif" colspan="2"></td>
                    </tr>
                    <tr> 
                      <td width="100%" height="26" colspan="2">加入时间：<%=rs("AddTime")%></td>
                    </tr>
                    <tr> 
                      <td height="1" background="Image/Text_Line_Bg.gif" colspan="2"></td>
                    </tr>
                    <tr> 
                      <td height="26" width="50%">动画作者：<a href="Show_Flasher.Asp?Flasher=<%=rs("Flasher")%>"><%=rs("Flasher")%></a></td>
                      <td height="26" width="50%">文件大小：<%=rs("Size")%> KB</td>
                    </tr>
                    <tr> 
                      <td height="1" background="Image/Text_Line_Bg.gif" colspan="2"></td>
                    </tr>
                    <tr> 
                      <td height="26">推 荐 度：<font color="#808000"><%=rs("StarNO")%></font></td>
                      <td height="26">查看次数：<%=rs("Click")%> 次</td>
                    </tr>
                    <tr> 
                      <td height="1" background="Image/Text_Line_Bg.gif" colspan="2"></td>
                    </tr>
                    <tr> 
                      <td colspan="2" height="26">动画简介：<%=left(rs("Intro"),21)%>...</td>
                    </tr>
                    <tr> 
                      <td height="1" background="Image/Text_Line_Bg.gif" colspan="2"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
rs.movenext
i=i+1
if i>=rs.pagesize then exit do
loop
%>
            </table></td>
        </tr>
        <tr> 
          <td><img border="0" src="Image/Channel_DownB_570.gif"></td>
        </tr>
        <form action="Channel_List.asp" method="post">
          <tr> 
            <td style="padding-top:10px" height="50" background="Image/Page_Channel_Bg_570.gif" align="center"> 
              共 <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="Channel_List.asp?ChannelID=<%=ChannelID%>&ChannelName=<%=ChannelName%>&page=<%=cstr(pagecount+1)%>">下一页</a> 
              <% end if %>
              <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
              <a href="Channel_List.asp?ChannelID=<%=ChannelID%>&ChannelName=<%=ChannelName%>&page=<%=cstr(pagecount-1)%>"> 
              上一页</a> 
              <%end if%>
              <% if pagecount<>1 and rs.pagecount<>pagecount then%>
              <a href="Channel_List.asp?ChannelID=<%=ChannelID%>&ChannelName=<%=ChannelName%>&page=<%=cstr(pagecount-1)%>"> 
              上一页</a> <a href="Channel_List.asp?ChannelID=<%=ChannelID%>&ChannelName=<%=ChannelName%>&page=<%=cstr(pagecount+1)%>"> 
              下一页</a> 
              <% end if%>
              跳转到 
              <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="ChannelID" value="<%=ChannelID%>">
              <input type="hidden" name="ChannelName" value="<%=ChannelName%>">
              <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>
<!--#include file="down.asp"-->
</body>
</html>