📄 search.asp
字号:
</TD>
<TD width="13" background="images/2flash_search_5.gif"> </TD>
</TR>
<TR>
<TD COLSPAN=4> <IMG SRC="images/2flash_search_6.gif" WIDTH=468 HEIGHT=8 ALT=""></TD>
</TR>
<TR>
<TD height="25" COLSPAN=4 background="images/2flash_search_7.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"> <strong class="style1"><img src="images/2flash_dot1.gif" width="14" height="12"></strong> <span class="style1">动画园搜索：<%=skT%> <img src="images/j1.gif" border="0" width="8" height="11"><%=skN%></span></td>
</tr>
</table></TD>
</TR>
</TABLE></td>
</tr>
<tr>
<td height="81" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="border-collapse: collapse">
<%if request("type")="info" then%>
<%else%>
<tr bgcolor="#EAF2CE">
<td height="25" colspan="2"> <font color="#000000">作品名称</font></td>
<td width="18%" height="25" align="center"><font color="#000000"><u>时 间</u></font></a></td>
<td width="13%" height="25" colspan="2" align="center"><u><font color="#000000">人 气</font></u></a></td>
</tr>
<%end if%>
<tr>
<td bgcolor="#D8D5B4" colspan="5" height="1"></td>
</tr>
<%if request("k")="" and request("pl")="" and request("cd")="" then%>
<tr valign="top">
<td height="360" colspan="5" align="center"><br>
请在上面输入关键词！</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="go_flash/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 valign="top">
<td height="360" colspan="5" align="center"><br>
关键词：<b><font color="#ff0000"><%=skN%></font></b> 没有相关作品！<br>
<a target="_blank" href="http://www.2flash.net/?search.asp?k=<%=skN%>&lm=-1"><font color="#0091F0">这里有<%=skN%>！</font></a></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%>
<%'''作品
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="27%" class="p1"><table width="100" height="80" border="0" align="center" cellpadding="0" cellspacing="6" bordercolor="#E6E6E6">
<tr>
<td background="http://<%=rs("pic1")%><%=rs("pic")%>"><a href="2Flash_net.Asp?id=<%=rs("id")%>" a target="_blank"><img border="0" src="images/2flash_ipic.gif" width="104" height="84" alt="<%=rs("cxn")%>"></a></td>
</tr>
</table> </td>
<td width="42%" class="p1"><span class="hj"><a href="2Flash_net.Asp?id=<%=rs("id")%>" target="_blank"><%=softname%></a> [<a href="http://search.caishow.com/search/ring_body.asp?f=7769&search=<%=cxn%>" target="_blank">手机铃声</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," ","")
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>
类别：
<%
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_dir/"&rs("tid")&"_1.shtml><FONT color=#666666>"&TN(ubound(TN)-1)&"</FONT></a>"
else
response.write "类别错误"
end if
rs_type.close
%>
<br>
作者：<%=rs("ln")%></span></td>
<td width="18%" align="center"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
<td align="center"><%=rs("hits")%></td>
</tr>
<%end if%>
<tr>
<td 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>
<%if allshu>0 and skPAGE<>"no" then%>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%" align="center">
<tr>
<td width="31%" nowrap><div align="right">找到<b><%=allshu%></b>部, 页次<b><%=currentPage%></b>/<b><%=mpage%></b></div></td>
<td width="50%" 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>
<%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
%>
<font color="#FF0000"><%=pno%></font>
<%else%>
<a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>&page=<%=pno%>"><%=pno%></a>
<%end if%>
<%
if p>=5 then exit for
next%>
<%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>
<%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 width="19%" nowrap>到
<input name="page2" size="3">
页
<input name="Submit22" type="image" value="Submit" src="images/go.gif" border="0" align="absMiddle" width="26" height="19"></td>
</form>
</tr>
</table>
<%end if%></td>
</tr>
</table></td>
</tr>
</table>
<hr width="750" size="1" noshade color="#CCCCCC">
<div align="center"><span class="hj"><a href="info/about.html" target="_blank">关于我们</a> | <a href="info/ads.html" target="_blank">合作支持</a> | <a href="mailto:administer@126.com?subject=对2Flash.net的建议">建议留言</a> | <a href="info/links.html" target="_blank">友情链接</a> | <span style="CURSOR: hand; color: #000000;" title="Flash动画园 [2Flash.Net]" onClick="window.external.addFavorite('http://www.2Flash.Net','Flash动画园 - 2Flash.Net')">加入收藏 </span>| <span onClick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';
this.setHomePage('http://www.2Flash.Net');" style="CURSOR: hand; color: #000000;">设为首页</span><br>
Copyright (C) 2005 2Flash.Net All Right Reserved</span><br>
<script language="JavaScript" type="text/javascript" src="http://www.50bang.com/click.js?user_id=15579"></script>
</div></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -