📄 search.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim keyword
dim rs
dim founderr
dim errmsg
dim findword
founderr=false
keyword=request("keyword")
if keyword="" then
errmsg=errmsg+"<br>"+"请输入查询条件。"
founderr=true
else
if request("action")="title" then
findword="showname like '%"&keyword&"%' "
else
findword="note like '%"&keyword&"%' "
end if
end if
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
dim classid,Nclassid
dim classname,Nclassname
if request("classid")="" then
classid=""
classname="所有软件"
else
classid="classid="&cstr(request("classid"))&" and "
sql="select class from class where classid="&cstr(request("classid"))
rs.open sql,conn,1,1
classname="[<font color=#008000>"&rs("class")&"</font>]"
rs.close
end if
if request("Nclassid")="" then
Nclassid=""
Nclassname="所有软件"
else
Nclassid=" Nclassid="&cstr(request("Nclassid"))&" and "
sql="select Nclass from Nclass where Nclassid="&cstr(request("Nclassid"))
rs.open sql,conn,1,1
Nclassname="的[<font color=#008000>"&rs("Nclass")&"</font>]分类"
rs.close
end if
%>
<HTML><HEAD><TITLE>【YesE.net網絡原動力】：查找结果(<%=keyword%>)-[www.YesE.Net]</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="images/style.css">
<SCRIPT language=javascript>
function popwin2(id,path)
{ window.open("openarticle.asp?id="+id+"&ppath="+path,"");
}
</SCRIPT>
</HEAD>
<!--#include file="topMain.asp"-->
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table width="778" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" style="border-collapse: collapse" background="image/bot_1.gif" style="border-top: 1px solid #FFFFFF; border-bottom: 1px solid #FFFFFF">
<TR>
<TD height=25 width="400">
<form method="post" name="myform" action="search.asp"> <b>搜索：</b><input type="text" name="keyword" style="BORDER: 1 solid; FONT-SIZE: 9pt; WIDTH: 100px" size="20"> <input onClick=myform.submit type=image src="images/go1.gif" border=0 name=I1 align="absmiddle" loop="0"> </TD></form>
<TD height=25 width="52"></TD>
<TD align=center valign=middle height=25 width="300" class="BorderOn">
<SCRIPT language=JavaScript>
function initArray()
{
this.length = initArray.arguments.length
for (var i = 0; i < this.length; i++)
this[i+1] = initArray.arguments[i]
}
var WeekArray = new initArray("星期日","星期一","星期二","星期三","星期四","星期五","星期六");
var MonthArray = new initArray("1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月");
var LastModDate = new Date(document.lastModified);
document.write(LastModDate.getYear()+0000,"年");
document.write(MonthArray[(LastModDate.getMonth()+1)]);
document.write(LastModDate.getDate()+"日 ");
document.write(WeekArray[(LastModDate.getDay()+1)]);
</SCRIPT>
</FONT></TD></TR></TBODY></table>
</center>
</div>
<div align="center">
<center>
<table width="778" border="0" background="image/dhback.gif" style="border-collapse: collapse" cellpadding="0" cellspacing="0" bgcolor="#CC0E0E">
<tr>
<td height=25>您的位置：<a href="index.asp">首页 -></a>
<%
response.write "查询条件：<font color=yellow>"&keyword&"</font>"
response.write "在"&classname&""&Nclassname&"中"
%>
</td>
</tr>
</table>
</center>
</div>
<%if founderr=true then%>
<div align="center">
<center>
<table border="0" width="778" height="200" cellpadding="0" cellspacing="0" bgcolor="#AA0000" style="border-collapse: collapse" >
<tr>
<td>
<center>关键字不能为空!</center>
</td>
</tr>
</table>
</center>
</div>
<%else%>
<table border=0 cellpadding=0 cellspacing=0 width=778 align="center">
<tr>
<td valign="top" bgcolor="#AA0000">
<div align="center">
<center>
<TABLE border=1 cellpadding=0 cellspacing=0 width="100%" style="border-collapse: collapse" bordercolor="#FF0000">
<TR>
<TD bgcolor="#000000" height="20">
<div align="center"><FONT color=#ffffff>今日下载Top10</FONT></div>
</TD>
</TR>
<TR align=middle>
<TD bgcolor="#B00000" valign="top">
<TABLE border=0 cellpadding=0 cellspacing=0 width=100% height="100">
<TR><TD bgcolor="#FF9900" valign=top width="4%"></TD>
<TD bgcolor="#FF9900" valign=top width="96%"><FONT style=line-height:150%>
<%
dim tdate
tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now())
sql="select * from download where "
sql=sql&" lasthits=date() and stop=0 and dayhits>0 "
sql=sql&" order by dayhits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
本日没有下载
<%else%>
<%do while not rs.eof
response.write "<font color=#FF0000>≮</font><A href=list.asp?id="&rs("id")&"><font color=#000000>"&rs("showname")&" "&rs("bb")&"</font></A><br>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
i="0"
end if
rs.close
%></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</center>
</div>
</td>
<td width="556" height="160" bgcolor="#B00000" align="right" background="image/t3_b.gif">
<div align="right">
<table width="546" border="0" style="border-collapse: collapse" cellpadding="0" cellspacing="0" bgcolor="#B00000" background="image/dhback.gif">
<tr>
<td height=25 width="100%">
<%
response.write "<center>查询条件：<font color=yellow><b>"&keyword&"</b></font>"
response.write "在"&classname&""&Nclassname&"中</center>"
%>
</td>
</tr>
</table>
</div>
<TABLE border="1" cellspacing="0" cellpadding="0" bgcolor="#CC0E0E" width="546" style="border-collapse: collapse" bordercolor="#FF0000" >
<TR>
<TD valign="top" align="right">
<TABLE border="0" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" >
<TR>
<TD width="28%" height="18" nowrap bgcolor="#BD0000">
<FORM action="sort.asp" method=get>
<p align="right">总分类:
<SELECT name="classid" size="1" onChange='javascript:submit()' class="textfield" style="border: 1px solid #000000">
<%
sql="select class,classid from class"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
%>
<OPTION value="">Not Record!</OPTION>
<%else%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -