search.asp

一个网上flash网站源码

      <td width="10%" bgcolor="#F2F1E6" height="25" align="center">大 小</td>
    </tr>
  <%end if%>
    <tr>
      <td width="100%" bgcolor="#D8D5B4" colspan="5" height="1"></td>
    </tr>
<%if request("k")="" and request("pl")="" and request("cd")="" then%>
    <tr>
    <td width="100%" colspan="5" height="60" align="center">请在上面输入关键词！</td>
    </tr>
<%else
    set rs=server.CreateObject("ADODB.RecordSet")
    if request("type")="info" then
      KN=split(request("k")," ")
      for i = 0 to ubound(KN)
        KNN=KNN&" or title like '%"&KN(i)&"%' or info like '%"&KN(i)&"%'"
      next%><!--#include file="admin/mdb_path_info.asp"--><%
      sql="select * from info where title like '%"&request("k")&"%'"&KNN&" order by "&pl&" desc"
    else
      KN=split(request("k")," ")
      for i = 0 to ubound(KN)
        KNN=KNN&" or cxn like '%"&KN(i)&"%' or cxv like '%"&KN(i)&"%' or body like '%"&KN(i)&"%'"
      next
    %><!--#include file="admin/mdb_path_down.asp"--><%
      sql="select * from down where (cxn like '%"&request("k")&"%'"&KNN&")"&skCD&" order by "&pl&" desc"
    end if
rs.open sql,conn,1,1
if rs.eof then
%>
    <tr>
      <td width="100%" colspan="5" height="60" align="center"><br>关键字：<b><font color="#ff0000"><%=skN%></font></b> 没有相关作品！<br><br><font color="#0000ff">请再尝试使用相关的关键字搜索。</font><p>&nbsp;</p>
<p>&nbsp;</p>相关链接：<a target="_blank" href="http://www.shanke.cn/search.asp?condition=content&keyword=<%=skN%>"><font color="#0091F0">搜索 闪客学堂</font></a>、<a target="_blank" href="http://my.shanke.cn/list.asp?selecttype=logtext&keyword=<%=skN%>"><font color="#0091F0">搜索 我是闪客Blog</font></a>。<br></td>                                             
    </tr>
<%else
if sePAGE<>"no" then '###排行方式时只显示指定数目
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount     '得到总页数
allshu=rs.recordcount
   if request("page")<>"" then
      if cint(request("page"))<1 or cint(request("page"))>mpage then
         currentPage=1
      else
         currentPage=cint(request("page"))
      end if
   else        
      currentPage=1        
   end if
rs.move  (currentPage-1)*MaxPerPage
end if '###排行方式时只显示指定数目
do while not rs.eof%>
<%'''文章
if request("type")="info" then
       softname=rs("title")
       if request("k")<>"" then
          for i = 0 to ubound(KN)
          softname=replace(softname,""&KN(i)&"","<font color=#FF0000>"&KN(i)&"</font>")
          next
       end if%>
     <tr height="30" bgcolor="#FFFFFF" onmouseover="this.bgColor='#FAFAF5'" onmouseout="this.bgColor='#FFFFFF'">
      <td width="60%"><img src="images/j7.gif" border="0" width="15" height="12" align="absmiddle">&nbsp;<a href="joke/<%=rs("id")%>.htm"><%=softname%></a></td>
      <td width="10%" align="center">　</td>
      <td width="10%" align="center">　</td>
      <td width="10%" align="center"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
      <td width="10%" align="center"><%=rs("hits")%></td>
    </tr>
<%'''作品
else
       softname=rs("cxn")
       if request("k")<>"" then
          for i = 0 to ubound(KN)
          softname=replace(softname,""&KN(i)&"","<font color=#FF0000>"&KN(i)&"</font>")
          next
       end if%>
    <tr bgcolor="#FFFFFF" onmouseover="this.bgColor='#FAFAF5'" onmouseout="this.bgColor='#FFFFFF'">
      <td width="60%" class="p1"><img src="images/j5.gif" border="0" width="15" height="12" align="absmiddle">&nbsp;<a href="flash/<%=rs("id")%>.htm"><font color="#0000ff"><%=softname%></font></a><br>
      ·<%if rs("body")<>"" then%><%
tempstr=replace(rs("body"),"<br>","")
tempstr=replace(tempstr,"<p>","")
tempstr=replace(tempstr,"<b>","")
tempstr=replace(tempstr,"<","")
tempstr=replace(tempstr,"&nbsp;","")
tempstr=replace(tempstr,"　","")
tempstr=replace(tempstr," ","")
body=left(tempstr,22)
       if request("k")<>"" and request("kt")<>"作品名称" and request("type")<>"cd" then
          for i = 0 to ubound(KN)
          body=replace(body,""&KN(i)&"","<font color=#FF0000>"&KN(i)&"</font>")
          next
       end if%><%=body%>...<%else%>-<%end if%><br><FONT color=#666666>作品类别：<%
set rs_type=server.CreateObject("ADODB.RecordSet")
  rs_type.open "select * from downtype where id="&rs("tid"),conn,1,1
    if not rs_type.EOF then
      TN=split(rs_type("tname"),"|")
      response.write "<a href=flash_fl/"&rs("tid")&"_1.htm><FONT color=#666666>"&TN(ubound(TN)-1)&"</FONT></a>"
    else
      response.write "类别错误"
    end if
  rs_type.close
%>&nbsp;作者：<%=rs("ln")%>&nbsp;<a href="vote_flash.asp?id=<%=rs("id")%>#vote"><font color="#666666">点评>>></font></a></font></td>                                                
      <td width="10%" align="center"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
      <td width="13%" align="center"><%for i=1 to rs("hot")%><font color="#fd9720">★</font><%next%></td>
      <td width="10%" align="center"><%=rs("hits")%></td>
      <td width="10%" align="center"><%=rs("size")%></td>
    </tr>
<%end if%>
    <tr>
      <td width="100%" bgcolor="#F2F1E6" colspan="5" height="1"></td>
    </tr>
<%
di=di+1
if di>=MaxPerPage then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>  
  </table>
  </center>
</div>
<%if allshu>0 and skPAGE<>"no" then%><table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%" align="center">
    <tr>
      <td nowrap>找到：<b><%=allshu%></b> 页次<b><%=currentPage%></b>/<b><%=mpage%></b> 每页<b><%=MaxPerPage%></b></td>                                                 
      <td width="100%" align="center"><%
pageno=currentPage
%><%if cint(pageno)>1 then%><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>" title="最前页"><%end if%><font face="Webdings">9</font></a>&nbsp;<%if cint(pageno)>1 then%><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>&page=<%=pageno-1%>" title="上一页"><%end if%><font face="Webdings">7</font></a><%                                                                             
pp=cint(pageno)-5            
  if pp<1 then            
  pp=1            
  end if            
for pno=pp to mpage
if len(pno)=1 then
end if
p=p+1
if pno*1=cint(pageno)*1 then
%>&nbsp;<font color="#FF0000">[<%=pno%>]</font><%else%>&nbsp;<a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>&page=<%=pno%>">[<%=pno%>]</a><%end if%><%                                                                         
if p>=11 then exit for            
next%>&nbsp;<%if cint(pageno)< mpage then%><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>&page=<%=pageno+1%>" title="下一页"><%end if%><font face="Webdings">8</font></a>&nbsp;<%if cint(pageno)< mpage then%><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>&page=<%=mpage%>" title="最后页"><%end if%><font face="Webdings">:</font></a>
</td><form method="POST" action="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>">
      <td nowrap>到<input name="page" size="3">页<input name="Submit2" type="image" value="Submit" src="images/ssgo2.gif" border="0" align="absMiddle" width="26" height="19"></td>
      </form>
    </tr>
    </table>
<%end if%></td>
      <td width="10"></td>
      <td width="170" bgcolor="#F7F7F7">
        <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <tr>
            <td width="100%"><table border="0" cellpadding="4" cellspacing="5" style="border-collapse: collapse" width="100%" id="AutoNumber1">
          <tr>
            <td width="100%" bgcolor="#C6C6C6"><font color="#000000"><b>强 烈 推 荐</b></font></td>
          </tr>
        </table></td>
          </tr>
          <tr>
            <td width="100%"><script language=javascript src=js/soft_ad.js></script></td>
          </tr>

          <tr>
            <td width="100%"><table border="0" cellpadding="4" cellspacing="5" style="border-collapse: collapse" width="100%" id="AutoNumber1">
          <tr>
            <td width="100%" bgcolor="#C6C6C6"><font color="#000000"><b>热 辣 新 闻</b></font></td>
          </tr>
        </table></td>
          </tr>
          <tr>
            <td width="100%"><script language=javascript src=http://ulinkjs.tom.com/155_news.js></script></td>
          </tr>
          <tr>
            <td width="100%"><table border="0" cellpadding="4" cellspacing="5" style="border-collapse: collapse" width="100%" id="AutoNumber1">
          <tr>
            <td width="100%" bgcolor="#C6C6C6"><font color="#000000"><b>精 彩 广 告</b></font></td>
          </tr>
        </table></td>
          </tr>
          <tr>
            <td width="100%"><script language=javascript src=js/soft_ad2.js></script></td>
          </tr>
          <tr>
            <td width="100%"></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
<hr size="1" width="760"><script language=javascript src="js/copyright.js"></script></body>
</html>