<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim smallclassid,maxperpage,totalpage,totalrecords,currentpage,strfile
dim order,bigclassname,smallclassname,bigclassid,i
smallclassid=request("smallclassid")
if not isinteger(smallclassid) then
  call mb("请指定Flash分类ID!","index.asp",1)
end if

currentpage=request("page")
order=request("order")
if not isinteger(currentpage) then
  currentpage=1
else
  currentpage=clng(currentpage)
end if
maxperpage=64
i=1
totalpage=1
totalrecords=0
strfile="showflash.asp?smallclassid="&smallclassid

set rs=conn.execute("select B.bigclassname,S.smallclassname,S.bigclassid from bigclass B inner join smallclass S on B.bigclassid=S.bigclassid where S.smallclassid="&smallclassid)
if not (rs.bof and rs.eof) then
  bigclassname=rs(0)
  smallclassname=rs(1)
  bigclassid=rs(2)
else
  bigclassname="不详"
  smallclassname="不详"
end if
rs.close
  

set rs=server.createobject("adodb.recordset")
if order="hits" then
 sql="select * from flash where smallclassid="&smallclassid&" order by hits desc"
else
 sql="select * from flash where smallclassid="&smallclassid&" order by id desc"
end if
rs.open sql,conn,1,1

if not(rs.bof and rs.eof) then
  rs.pagesize=maxperpage
  rs.absolutepage=currentpage
  totalpage=rs.pagecount
  totalrecords=rs.recordcount
end if
%>
<TABLE width=770 border=0 align="center" cellPadding=0 cellSpacing=0 class=border>
  <TR> 
    <TD width=190 vAlign=top bgcolor="#F7F7F7"><!--#include file="left2.asp"--></TD>
    <TD vAlign=top align=right width=1 background="images/bg_vline.gif"></TD>
    <TD width=570 align=left vAlign=top bgcolor="#FFFFFF"> 
      <TABLE align=center 
      background="images/line01.gif" 
      border=0 cellPadding=0 cellSpacing=0 height=24 width="100%">
        <TR> 
          <TD height=21>&nbsp;<IMG height=12 
            src="images/A3.gif" width=12> 当前位置：<A 
            href="index.asp" title="首页">闪游吧</A>             -&gt; <%=smallclassname%></TD>
        </TR>
      </TABLE>
      <BR>
      <TABLE 
      background="images/line02.gif" 
      border=0 cellPadding=0 cellSpacing=0 width="100%">
        
          <TR> 
            <TD colSpan=3 height=28>&nbsp;<IMG 
            src="images/p1.gif" width=16 height=21 border="0" align=absMiddle> 
              <%=smallclassname%></TD>
            <TD height=28 width="84%"> <P align=left>
                <%if totalrecords>0 then call showpage(strfile,totalrecords,maxperpage,true,false,"个Flash")%>
              </P></TD>
          </TR>
        
      </TABLE> 

      
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <%do until rs.eof or i>maxperpage%>
	  
        <tr>
		<%for x=1 to 4
		if not rs.eof then%>
          <td>
		  
		  <TABLE cellSpacing=0 cellPadding=0 width=127 align=center border=0>
              <TBODY>
                <TR> 
                  <TD width="127" colspan="3"><table width="100%" border="0" cellspacing="1" cellpadding="0">
                      <tr> 
                        <td height="50" align="center"> <TABLE border=1 cellPadding=0 cellSpacing=1>
                            <TR> 
                              <TD><A title="点击欣赏flash音乐" href="html/<%=rs("id")%>.htm" target=_blank> 
                                <%if rs("picurl")<>"" then
				     response.write "<IMG src='"&rs("folder")&"/"&rs("picurl")&"' alt='点击欣赏动画' width=100 height=75 border=0 align=textTop>"
				   else
				     response.write "<IMG src='images/nopic.gif' alt='点击欣赏动画' width=100 height=75 border=0 align=textTop>"
				   end if
				 %>
                                </A></TD>
                            </TR>
                          </TABLE></td>
                      </tr>
                      <tr> 
                        <td height="10" align="center"><A title="点击欣赏flash音乐" href="html/<%=rs("id")%>.htm" target=_blank><%=rs("flashname")%></A></td>
                      </tr>
                    </table></TD>
                </TR>
              </TBODY>
            </TABLE>
		  
		  
		  </td>
		  <%
		  rs.movenext
		  i=i+1
		  else%>
          <td>&nbsp;</td>
		  <%end if
		  next
		  %>
        </tr>
		
		<%
		 loop
		 rs.close
		 if totalrecords>0 then
		%>
      </table>
      <br>      
      <TABLE background="images/line02.gif" border=0 cellPadding=0 cellSpacing=0 width="100%">
        
          <TR> 
            <TD height=28 width="86%"> <P align=left> 
                <% call showpage(strfile,totalrecords,maxperpage,true,true,"个Flash")%>
              </P></TD>
          </TR>
        
      </TABLE>
	<%end if%> </TD>
  </TR>
</TABLE>

<!--#include file="bottom2.asp"-->

