📄 search.asp
字号:
<%
Maxlist=30
searchData=trim(request("T1"))
searchSelect=request("select")
if searchData="" or isNumeric(searchSelect)=0 then response.end
oldsearchData=searchData
searchData=replace(searchData,"'","''")
sql="select id,sitename,jiji,fenleiid,url from linking where sitename like'%"&searchData&"%' or jiji like'%"&searchData&"%' order by fen DESC"
'sql="select linking.id,linking.sitename,linking.jiji,linking.fenleiid fenlei.* from linking,fenlei where linking.fenleiid=fenlei.id and linking.sitename like'%"&searchData&"%' or linking.jiji like'%"&searchData&"%' order by linking.fen DESC"
'sql="select linking.id,linking.sitename,linking.jiji,fenlei.* from linking , fenlei where linking.fenleiid=fenlei.id and (linking.sitename like'%"&searchData&"%' or linking.jiji like'%"&searchData&"%') order by linking.fen DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<!-- #include file=database.asp -->
<!-- Design and Edit By QianFengyun 2000-7-20 -->
<!-- #include file=change.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style TYPE="text/css">
UL UL {margin-left: 1pt}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=titlename%></title>
<link rel="stylesheet" type="text/css" href="html/style.css">
</head>
<BODY vlink=0000ff leftmargin="10" topmargin="3" marginwidth="10" marginheight="3">
<!-- #include file=inc/head.inc -->
<%
currentpage=request("page")
if isNumeric(currentpage)=0 then currentpage=1
currentpage=Cint(currentpage)
if currentpage<1 or currentpage>9999999 then currentpage=1
rs.open sql,conn,1,1
if rs.eof then
response.write "<center>没有找到记录:o("
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
CountRecord=rs.recordcount
rs.pagesize=Maxlist
searchpageCount=rs.pagecount
if currentpage>searchpageCount then currentpage=searchpageCount
rs.absolutepage=currentpage
getdata=rs.getrows(Maxlist)
rs.close
%>
<TABLE align=center bgColor=<%=tablebgcolor1%> border=0 cellPadding=0 cellSpacing=0
width="700">
<form method="POST" action="search.asp?T1=<%=server.urlencode(oldsearchData)%>" name=selPagesList>
<TBODY>
<TR>
<TD noWrap vAlign=center><p>
搜索结果: 分页 <%if currentpage=1 then
%><font color=darkgray><<首页 前页</font><%else
%><a href="search.asp?page=1&T1=<%=server.urlencode(oldsearchData)%>"><<首页</a> <a href="search.asp?page=<%=currentpage-1%>&T1=<%=server.urlencode(oldsearchData)%>">前页</a><%end if%> <%
if currentpage=searchpageCount then
%><font color=darkgray>后页 尾页>></font><%else
%><a href="search.asp?page=<%=currentpage+1%>&T1=<%=server.urlencode(oldsearchData)%>">后页</a> <a href="search.asp?page=<%=searchpageCount%>&T1=<%=server.urlencode(oldsearchData)%>">尾页>></a>
<%end if
%> 页次：<strong><%=currentPage%></strong>/<strong><%=searchpageCount%></strong>页 共<%=CountRecord%>条记录 搜索词:<font color=ff0000><%=server.htmlencode(oldsearchData)%>
</P></TD>
<TD noWrap vAlign=center>
<div align="right"><p>转到:<input type=hidden name=BoardID value=<%=BoardID%>> <input type="text" name="page" size=5 maxlength=10 value=<%=currentpage%>><input
type="submit" value="Go" name="B1" style="height:22px"></span></p>
</TD></TR></FORM></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=700 align=center>
<TBODY>
<TR>
<TD><br>
<FORM action=search.asp method=post name=""><INPUT name=T1 size=10><INPUT name=B1 type=submit value=" 搜索 " style="height:22px"> </FORM></TD>
</TR>
</TBODY>
</TABLE>
<%
rem id,sitename,jiji,id,fenlei1,fenlei2,fenlei3,fenlei4,fenlei5,fenlei6,fenlei7,fenlei8,fenlei9,fenlei10
rem 0 1 2 3 4 5 6 7 8 9 10 11 12 13
rem fenleiid1,fenleiid2,fenleiid3,fenleiid4,fenleiid5,fenleiid6,fenleiid7,fenleiid8,fenleiid9,fenleiid10
rem 14 15 16 17 18 19 20 21 22 23 24 25
rem num expediency father fenleidirect
rem 26 27 28 29
response.write ""
for tempLoop=0 to Ubound(getdata,2)
tempStr="<TABLE border=0 cellPadding=0 cellSpacing=0 width=700 align=center><TR><TD valign=middle><ul><li>"
tempStr=tempStr&"<a href='"&server.htmlencode(getdata(4,tempLoop))&"' target=_blank>"&server.htmlencode(trim(getdata(1,tempLoop)))&"</a> <a href=goassort.asp?id="&getdata(3,tempLoop)&" title=所在分类>--</a> "
if getdata(2,tempLoop)<>"" then tempStr=tempSTr&server.htmlencode(trim(getdata(2,tempLoop)))
tempStr=tempStr&"</li></td></tr></tbody></table>"&chr(10)&chr(13)
response.write tempStr
next
liststart=1
listend =1
if currentpage>5 then
liststart=currentpage-5
else
liststart=1
end if
listend=liststart+10
tempLoop=listend-liststart
if tempLoop<11 then liststart=liststart-(11-tempLoop)
if liststart<1 then liststart=1
if listend>searchpageCount then listend=searchpageCount
if liststart>1 then
response.write "<table width=700 align=center><tr><td>进入第..."
else
response.write "<table width=700 align=center><tr><td>进入第 "
end if
for tempLoop=liststart to listend-1
response.write "<a href=search.asp?page="&tempLoop&"&T1="&server.urlencode(oldsearchData)&">"&tempLoop&"<a> "
next
response.write "<a href=search.asp?page="&tempLoop&"&T1="&server.urlencode(oldsearchData)&">"&tempLoop&"<a>"
if listend<searchpageCount then
response.write "...页</td></tr></table>"
else
response.write " 页</td></tr></table>"
end if
%>
<hr width=700 SIZE=1 align=center>
<!-- #include file=inc/end.inc -->
</BODY>
</HTML>
<%set rs=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -