flash_search.asp

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

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim keyword,currentpage,maxperpage,i,totalpage,totalrecords,strfile,leixin,classid
keyword=checkstr(request("keyword"))
utype=request("leixin")

if keyword="" then
  call mb("请输入搜索内容！","",0)
end if

currentpage=request("page")
if not isinteger(currentpage) then
  currentpage=1
else
  currentpage=clng(currentpage)
end if

select case utype
case "username"
sql="select * from flash where ispassed=true and  username like '%"&keyword&"%' order by dateandtime desc"
case "flashname"
sql="select * from flash where ispassed=true and  flashname like '%"&keyword&"%' order by dateandtime desc"
case "other"
sql="select * from flash where ispassed=true and remark like '%"&keyword&"%' order by dateandtime desc"
case "geshou"
sql="select * from flash where ispassed=true and geshou='"&keyword&"' order by dateandtime desc"
case else 
sql="select * from flash where ispassed=true and (username like '%"&keyword&"%' or flashname like '%"&keyword&"%' or remark like '%"&keyword&"%') order by dateandtime desc"
end select


maxperpage=20
totalpage=1
totalrecords=0
i=1
strfile="flash_search.asp?keyword="&keyword

set rs=server.createobject("adodb.recordset")
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>FLASH 搜索</title>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="190" valign="top" bgcolor="#F7F7F7"><!--#include file="left.asp"--></td>
    <td 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 width="55%">&nbsp;<IMG height=12 
            src="images/A3.gif" width=12> 当前位置：<A 
            href="index.asp" title="联盟首页">闪闪之家</A> -&gt; 搜索Flash</TD>
          <TD width="45%" height=21 align="center">&nbsp;</TD>
        </TR>
      </TABLE>
      <br>
      <TABLE align=center border=0 borderColor=#000000 cellPadding=0 cellSpacing=0 width="98%">
        <TR> 
          <TD background="images/T_back.gif" width="18%"><IMG src="images/T_1.gif" width=90 height=24 border="0"></TD>
          <TD 
          width="77%" align="center" 
          background="images/T_back.gif">搜索关键字：<font color=red><b><%=keyword%> 
            </b></font>的结果</TD>
          <TD width="5%"><IMG height=24 
            src="images/T_2.gif" 
          width=29></TD>
        </TR>
      </TABLE>
      <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
        <tr> 
          <td colspan="5" bgcolor="#FFFBFF"><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
		%>
          </td>
        </tr>
        <tr > 
          <td height="25" colspan="5" background="images/line02.gif"> <%if totalrecords>0 then call showpage(strfile,totalrecords,maxperpage,true,true,"个Flash")%> </td>
        </tr>
      </table><%end if%> 
    </td>
  </tr>
</table>