showsmall.asp

俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<script language="javascript">
kstatus();
function kstatus(){
  self.status="闪耀吧动漫网欢迎您的访问,请记住我们的网址:http://www.flash18.com，如果您喜欢本站请将本站网址发给你QQ好友！";
  setTimeout("kstatus()",10000);
}
</script>
<%
dim smallclassid,maxperpage,totalpage,totalrecords,currentpage,strfile,classid
dim order,bigclassname,smallclassname,bigclassid,i
smallclassid=request("smallclassid")
classid=request("classid")
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.bigclassid="&classid)
if not (rs.bof and rs.eof) then
  bigclassname=rs(0)
  smallclassname=rs(1)
  bigclassid=rs(2)
else
  bigclassname="不详"
  smallclassname="不详"
end if
if not isinteger(classid) 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=10
i=1
totalpage=1
totalrecords=0
strfile="showsmall.asp?classid="&classid  

set rs=server.createobject("adodb.recordset")
if order="hits" then
 sql="select * from flash where bigclassid="&classid&" and ispassed=true order by hits desc"
else
 sql="select * from flash where bigclassid="&classid&" and ispassed=true order by dateandtime desc,id"
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
%>
<title><%=bigclassname%></title>
<TABLE width=770 height=85 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TR> 
    <TD width="190" vAlign=top background="index3/flash_bg4.gif" bgcolor="#F7F7F7" class="bg"> 
      <!--#include file="left.asp"-->
    </TD>
    <TD width="570" vAlign=top bgcolor="#FFFFFF">
<TABLE align=center 
      border=0 cellPadding=0 cellSpacing=0 height=24 width="100%">
        <TR> 
            
          <TD height=21 width="44%">&nbsp;<IMG height=12 
            src="images/A3.gif" width=12> 当前位置：<A 
            href="index.asp" title="联盟首页">闪耀吧动漫网</A> -&gt; <%=ShowBigclassname(classid)%></TD>
            <TD height=21 width="56%">&nbsp;</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> 
            <%=bigclassname%></TD>
          <TD height=28 width="305"> <P align=left>&nbsp; </P></TD>
        </TR>
      </TABLE>
      <br> 
      <%do until rs.eof or i>maxperpage%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="25%"><table width="100%" border="0" cellspacing="1" cellpadding="0">
              <tr> 
                <td height="50" align="center"><table border="0" cellpadding="0" cellspacing="0" width="120">
                    <tr> 
					<%
					dim picbg3
					if rs("picurl")="" then
					picbg3="smallpic/no.jpg"
					else
					picbg3=rs("picurl")
					end if
					%>
                      <td background="<%=picbg3%>" class="bg2"><A title="点击欣赏flash音乐" href="flash_play.asp?id=<%=rs("id")%>" target=_blank><img name="picbg_r1_c1" src="index3/picbg/picbg_r1_c1_2.gif" width="120" height="95" border="0" alt=""></a></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td align="center">&nbsp;</td>
              </tr>
            </table></td>
          <td width="75%" valign="top"> <TABLE align=center border=0 cellPadding=3 cellSpacing=1 
      width="99%" 1 border-width:>
              <TR> 
                <TD colspan="2">&nbsp;<IMG height=7 src="images/arrow_red.gif" width=9> 
                  Flash名称：<A title="点击欣赏flash音乐" href="flash_play.asp?id=<%=rs("id")%>" target=_blank><%=rs("flashname")%></A> </TD>
              </TR>
              <TR> 
                <TD colspan="2" bgColor=#fdfdfd>Flash作者：<a href="showuser.asp?username=<%=rs("username")%>" title="查看作者：<%=rs("username")%>的详细信息..." target=_blank><%=rs("username")%></a></TD>
              </TR>
              <TR> 
                <TD width="29%">文件大小：<%=rs("fsize")%> KB</TD>
                <TD> 上传日期：<%=rs("dateandtime")%></TD>
              </TR>
              <TR> 
                <TD>点击次数：<%=rs("hits")%></TD>
                <TD>推荐程度：<font color="#FF6600"><%=rs("star")%> </font></TD>
              </TR>
              <TR> 
                <TD colspan="2">Flash说明：
				<%
				if len(rs("remark"))>20 then
				response.write left(rs("remark"),18)&"……"
				else
				response.write rs("remark")
				end if 
				%>
				</TD>
              </TR>
            </TABLE></td>
        </tr>
        <tr> 
          <td height="8" colspan="2" background="index3/flash_linebg3.gif"></td>
        </tr>
      </table> 
      <br> 
      <%rs.movenext
		 i=i+1
		 loop
		 rs.close
		 if totalrecords>0 then
		%>
      <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>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" bgcolor="#FFFFFF"> <iframe src="http://c03.caishow.com/zhdm/zhgd760.asp?style=2&f=1000" height="135" width="770" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->