tuijian.asp

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

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
currentpage=request("page")
utype=request("utype")
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="tuijian.asp?utype="&utype

set rs=server.createobject("adodb.recordset")

select case utype
case "推荐作品"
 sql="select * from flash where isgood=true and ispassed=true order by hits desc"
case "热门作品"
 sql="select * from flash where ishot=true and ispassed=true order by dateandtime desc,id"
case "新最作品"
 sql="select top 50 * from flash where ispassed=true order by dateandtime desc,id"
end select 
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>闪闪之家 -&gt; <%=utype%></title>
<TABLE width=770 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 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; <%=utype%></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> <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>
<!--#include file="bottom.asp"-->