📄 search.asp
字号:
<%
MDBpath="admin/"
if request("cd")="" and request("k")="" then
MaxPerPage=50 '###每页显示条数
sePAGE="no"
else
MaxPerPage=20 '###每页显示条数
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("type")="info" then
skT="资讯"
else
skT="软件"
if request("cd")<>"" then
skN=request("cd")
skCD=" and cd='"&request("cd")&"'"
end if
end if
%>
<html>
<head>
<title>香巴拉 软件下载 - 查找结果 - [czy888.126.com]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta copy="程序制作 [惊云,网址www.65658.com] ; 盗版必究!">
<style>
td{font-size:9pt;line-height:140%}
body{font-size:9pt;line-height:140%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF" text="#000000">
<!--#include file="in_top.asp"-->
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="750">
<tr>
<td width="100%">您的位置：<a href="index.htm">首页</a>-> 查找结果-> 查找类别:<%=skT%>, 排列方式:<%=skP%>, 关键字:<font color="#FF0000"><%=skN%></font> [<font color="#008000">尽量不要带版本号</font>]</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="750">
<%if request("type")="info" then%>
<tr>
<td width="60%" bgcolor="#DFEBF4" height="18"> 文章标题</td>
<td width="10%" bgcolor="#DFEBF4" height="18" align="center"> </td>
<td width="10%" bgcolor="#DFEBF4" height="18" align="center"> </td>
<td width="10%" bgcolor="#DFEBF4" height="18" align="center"><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=hits&k=<%=request("k")%>" title="按人气值重新排列软件"><font color="#000000"><u>加入日期</u></font></a></td>
<td width="10%" bgcolor="#DFEBF4" height="18" align="center"><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=hits&k=<%=request("k")%>" title="按人气值重新排列软件"><font color="#000000"><u>人气</u></font></a></td>
</tr>
<%else%>
<tr>
<td width="60%" bgcolor="#DFEBF4" height="18"> <font color="#000000">软件名称</font></td>
<td width="10%" bgcolor="#DFEBF4" height="18" align="center"><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=date&k=<%=request("k")%>" title="按更新时间重新排列软件"><font color="#000000"><u>更新时间</u></font></a></td>
<td width="10%" bgcolor="#DFEBF4" height="18" align="center"><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=hot&k=<%=request("k")%>" title="按软件评价重新排列软件"><font color="#000000"><u>软件评价</u></font></a></td>
<td width="10%" bgcolor="#DFEBF4" height="18" align="center"><a href="search.asp?type=<%=request("type")%>&cd=<%=request("cd")%>&pl=hits&k=<%=request("k")%>" title="按人气值重新排列软件"><u><font color="#000000">人气</font></u></a></td>
<td width="10%" bgcolor="#DFEBF4" height="18" align="center">文件大小</td>
</tr>
<%end if%>
<tr>
<td width="100%" bgcolor="#183EAD" colspan="5" height="1"></td>
</tr>
<%if request("k")="" and request("pl")="" and request("cd")="" then%>
<tr>
<td width="100%" colspan="5" height="138" 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"><p align="center"><a href="javascript:" onclick="window.open("http://www1.baidu.com/baidu?tn=site65658&cl=3&rn=10&ct=0&lm=0&submit4=搜索&word=<%=request("k")%>")"><img src="images/d_sorryNoSearch.gif" width="186" height="150" border="0"><br><b><font color="#FF0000">点击这里进行高级搜索.</font></a></b></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="22">
<td width="60%"><a href="info/<%=rs("id")%>.htm"><img border="0" src="images/d_2.gif" width="11" height="11" align="absmiddle"> <%=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")&" "&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="60%"><a href="soft/<%=rs("id")%>.htm"><img border="0" src="images/d_2.gif" width="11" height="11" align="absmiddle"> <%=softname%></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,33)
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=sort/"&rs("tid")&"_1.htm><FONT color=#666666>"&TN(ubound(TN)-1)&"</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>
<td width="10%" align="center"><%=year(rs("date"))&"-"&month(rs("date"))&"-"&day(rs("date"))%></td>
<td width="10%" align="center"><%for i=1 to rs("hot")%>★<%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="#ffcc00" 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%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<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> <%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>=11 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 nowrap>到<input 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>
</table>
</center>
</div>
<%end if%>
<script language=javascript src="ads/js_p_index.js"></script>
<!--#include file="in_copy.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -