?? 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 + -