📄 search.asp
字号:
<%
MDBpath="admin/"
set rs_type=server.CreateObject("ADODB.RecordSet")
set rs=server.CreateObject("ADODB.RecordSet")
if request("cd")="" and request("k")="" then
MaxPerPage=30 '###每页显示条数
sePAGE="no"
else
MaxPerPage=10 '###每页显示条数
end if
if request("pl")<>"" then
pl=request("pl")
else
pl="date"
end if
skN=request("k")
skP="更新日期"
if request("pl")="hits" then
skP="下载次数"
elseif request("pl")="hot" then
skP="软件评价"
end if
if request("cd")<>"" then
skN=request("cd")
skCD=" and cd='"&request("cd")&"'"
end if
%><!--#include file="admin/mdb_path_down.asp"-->
<html>
<head>
<title>金梅源码下载中心--搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name=keywords content="游戏下载">
<LINK href="style.css" rel=stylesheet>
</head>
<body><center>
<script language=javascript src="head2.js"></script>
<table border="0" cellpadding="0" cellspacing="0" width="770" bgcolor="#FFFFFF">
<tr>
<td width="770" height="4"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="770">
<tr>
<td width="100%" bgcolor="#eeeeee" height="1" colspan="2"></td>
</tr>
<tr>
<td bgcolor="#f7f7f7" height="24"> 您的位置：<a href="./">首页</a> >> 查找结果 >> 关键字:<font color="#FF0000"><%=skN%></font> [<font color="#008000">尽量不要带版本号</font>]</td>
<td bgcolor="#f7f7f7" height="24" align="right"><a href="http://www.baidu.com/baidu?tn=im63com&word=<%=skN%>">更多关于"<font color="#FF0000"><%=skN%></font>"的搜索</a> </td>
</tr>
<tr>
<td width="100%" bgcolor="#eeeeee" height="1" colspan="2"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="4" colspan="2"></td>
</tr>
</table>
</center>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="770" bgcolor="#FFFFFF">
<tr>
<td width="2"><img border="0" src="images/c.gif" width="2" height="1"></td>
<td width="188" valign="top" bgcolor="#F7F7F7"><table border="0" cellpadding="0" cellspacing="0" width="188" bgcolor="#F7F7F7">
<tr>
<td height="30" background="images/left_bg.gif"> <font color="#FFFFFF"><b><span style="letter-spacing: 1pt">本周下载爬行</span></b></font></td>
</tr>
<tr>
<td height="6"></td>
</tr>
<%
i=0
sql="select top 10 cxn,cxv,id,tid from down where date>Now()-7 order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"<tr><td height=""30"">·还没有软件</td></tr>"
else
do while not rs.eof
response.write"<tr><td height=""17"">·<a target=_blank href=""soft/"&rs("id")&".htm"">"&left(rs("cxn")&""&rs("cxv"),17)&"</a></td></tr>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
%><tr>
<td height="2"></td>
</tr>
<tr>
<td height="1" bgcolor="#FFFFFF"></td>
</tr>
</table><table border="0" cellpadding="0" cellspacing="0" width="188" bgcolor="#F7F7F7">
<tr>
<td height="30" background="images/left_bg.gif"> <font color="#FFFFFF"><b><span style="letter-spacing: 1pt">总下载爬行榜</span></b></font></td>
</tr>
<tr>
<td height="6"></td>
</tr>
<%
i=0
sql="select top 10 cxn,cxv,id,tid from down order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"<tr><td height=""30"">·还没有软件</td></tr>"
else
do while not rs.eof
response.write"<tr><td height=""17"">·<a target=_blank href=""soft/"&rs("id")&".htm"">"&left(rs("cxn")&""&rs("cxv"),17)&"</a></td></tr>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
%><tr>
<td height="2"></td>
</tr>
</table></td>
<td width="4"><img border="0" src="images/c.gif" width="4" height="1"></td>
<td width="572" valign="top">
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#FFFFFF">
<tr>
<td width="52%" bgcolor="#3FAEE4" height="24" align="center"><font color="#FFFFFF"><b>软件名称</b></font></td>
<td width="12%" bgcolor="#3FAEE4" height="24" align="center"><a href="search.asp?cd=<%=request("cd")%>&pl=date&k=<%=request("k")%>" title="按更新时间重新排列软件"><font color="#FFFFFF"><b>更新时间</b></font></a></td>
<td width="12%" bgcolor="#3FAEE4" height="24" align="center"><a href="search.asp?cd=<%=request("cd")%>&pl=hot&k=<%=request("k")%>" title="按软件等级重新排列软件"><font color="#FFFFFF"><b>软件等级</b></font></a></td>
<td width="12%" bgcolor="#3FAEE4" height="24" align="center"><a href="search.asp?cd=<%=request("cd")%>&pl=hits&k=<%=request("k")%>" title="按下载次数值重新排列软件"><font color="#FFFFFF"><b>下载次数</b></font></a></td>
<td width="12%" bgcolor="#3FAEE4" height="24" align="center"><font color="#FFFFFF"><b>文件大小</b></font></td>
</tr>
<%if request("k")="" and request("pl")="" and request("cd")="" then%>
<tr>
<td width="100%" colspan="5" height="138" align="center" bgcolor="#FFFFFF">关键词不能为空!</td>
</tr>
<%else
set rs_list=server.CreateObject("ADODB.RecordSet")
set rs_type=server.CreateObject("ADODB.RecordSet")
set rs=server.CreateObject("ADODB.RecordSet")
KN=split(request("k")," ")
for i = 0 to ubound(KN)
KNN=KNN&" or cxn like '%"&KN(i)&"%' or cxv like '%"&KN(i)&"%' "
next
%><%
sql="select * from down where (cxn like '%"&request("k")&"%'"&KNN&")"&skCD&" order by "&pl&" desc"
rs.open sql,conn,1,1
if rs.eof then
%>
<tr>
<td width="100%" colspan="5" bgcolor="#FFFFFF" align="center" height="160"><img src="images/d_sorryNoSearch.gif" border="0" width="186" height="150"></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%>
<%'''软件
softname=rs("cxn")&""&rs("cxv")
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="60">
<td width="52%" bgcolor="#FFFFFF" height="24">·<a target=_blank href="soft/<%=rs("id")%>.htm"><b><%=softname%></b></a> <%if rs("show")="1" then response.write"<img src=""images/hot.gif"" border=""0"">"%></td>
<td width="12%" align="center" bgcolor="#FFFFFF" height="24"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
<td width="12%" align="center" bgcolor="#FFFFFF" height="24"><%for i=1 to rs("hot")%><img src="images/d_star.gif" border="0"><%next%></td>
<td width="12%" align="center" bgcolor="#FFFFFF" height="24"><%=rs("hits")%></td>
<td width="12%" align="center" bgcolor="#FFFFFF" height="24"><%=rs("size")%></td>
</tr>
<tr height="60">
<td width="100%" bgcolor="#FFFFFF" colspan="5" height="1"> <%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,100)
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%></td>
</tr>
<tr height="60">
<td width="100%" bgcolor="#FFFFFF" colspan="5" height="20"><FONT color=#777777>软件类别：<%
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
response.write "<a href=sort/"&rs("tid")&"_1.htm><FONT color=#777777>"&rs_type("Tname")&"</FONT></a>"
else
response.write "类别错误"
end if
rs_type.close
%><%if rs("system")<>"" then%> 运行环境：<%=rs("system")%><%end if%><%if rs("sq")<>"" then%>
授权方式：<%=rs("sq")%>版</FONT><%end if%></td>
</tr>
<tr>
<td width="100%" colspan="5" height="1" background="images/bg_dot.gif" bgcolor="#FFFFFF"></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>
<%if allshu>0 and skPAGE<>"no" then%>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td nowrap bgcolor="#F7F7F7"> 共找到<b><%=allshu%></b>条 当前第<b><%=currentPage%></b>/<b><%=mpage%></b>页 每页<b><%=MaxPerPage%></b>条</td>
<td bgcolor="#F7F7F7"><%
pageno=currentPage
%><%if cint(pageno)>1 then%><a href="search.asp?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?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?cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>&page=<%=pno%>">[<%=pno%>]</a><%end if%><%
if p>=7 then exit for
next%> <%if cint(pageno)< mpage then%><a href="search.asp?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?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?cd=<%=request("cd")%>&pl=<%=request("pl")%>&k=<%=request("k")%>">
<td align="right" bgcolor="#F7F7F7">转到第<input class=textbox name="page" size="3">页 <input align="absmiddle" height="21" name="Submit2" src="images/d_goto.gif" type="image" value="Submit" width="27"> </td>
</form>
</tr>
<tr>
<td width="100%" colspan="5" height="1" background="images/bg_dot.gif" bgcolor="#FFFFFF"></td>
</tr>
</table><%end if%>
</center>
<td width="4" valign="top"><img border="0" src="images/c.gif" width="4" height="1">
</table>
<script language="javascript" src="foot2.js"></script>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -