📄 search2.asp
字号:
<a href="listtype.asp?type=7">体育生活</a></div>
</td>
</tr>
<tr>
<td bgcolor="#EDB7D1">
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=8">程序设计</a></div>
</td>
</tr>
<tr>
<td bgcolor="#EDB7D1">
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=9">商贸金融</a></div>
</td>
</tr>
<tr>
<td bgcolor="#EDB7D1">
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=10">科技咨讯</a></div>
</td>
</tr>
<tr>
<td bgcolor="#EDB7D1"> <img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=11">社会公益</a></td>
</tr>
<tr>
<td bgcolor="#EDB7D1">
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=12">另类其它</a></div>
</td>
</tr>
<tr>
<td height="17" bgcolor="#EDB7D1">
<div align="center"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td height="42" width="5" valign="top"></td>
<td height="42" width="630" valign="top">
<table width="620" border="0" cellspacing="0" cellpadding="0" align="center" class="9p">
<tr>
<td colspan="4" valign="top">
<div align="center"><font color="#FFFFFF"><br>
<b>搜 索 结 果</b></font><font color="#cc3366">
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("hainanweb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%search=request("search")
if search="" or instr(search,"&")>0 or instr(search,"=")>0 then
response.write "没有填写搜索内容！"
response.end
end if
flag=request("flag")
if flag="" or flag=0 then
flag=0
sql="select * from zkpick where (picksite like '%"&search&"%' or pickname like '%"&search&"%')"
else
sql="select * from zkpick where (picksite like '%"&search&"%' or pickname like '%"&search&"%' or pickjink like '%"&search&"%')"
end if%>
</font></div>
<%
CurrentPage=Request.QueryString("pages")
if CurrentPage="" then
CurrentPage=1
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.PageSize=20
%>
<%if not rs.eof then
rs.AbsolutePage=CurrentPage
prevCurrentPage=CurrentPage-1
nextCurrentPage=CurrentPage+1 %>
<table width="630" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#CC3366" height="26">
<div align="right"><font color="#FFFFFF">共找到<b> <%=Rs.RecordCount%>
</b>个站点
<% if CurrentPage <=1 and RS.PageCount<>1 then %>
上一页 <a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
<a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=prevCurrentPage%>">[上一页]</a>
<a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>
<a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=prevCurrentPage%>">[上一页]</a> 下一页
<% end if%>
页次：<%=CurrentPage%>/<%=RS.PageCount%>页 <%=Rs.PageSize%>条记录/页</font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table width=620 align=center border=0 cellspacing=1 cellpadding=2 bgcolor=#EDB7D1 class="9p">
<tr bgcolor=#D7FFDD height=20 style='color:#ffffff' align=center>
<td align=left width="147" bgcolor="#EDB7D1">
<div align="center"><font color="#666666">站点名称</font></div>
</td>
<td width="115" bgcolor="#EDB7D1"><font color="#666666">网站所有</font></td>
<td width="224" bgcolor="#EDB7D1">
<div align="center"><font color="#666666">简介</font></div>
</td>
<td width="52" bgcolor="#EDB7D1">
<div align="center"><font color="#666666">得票</font></div>
</td>
<td width="56" bgcolor="#EDB7D1">
<div align="center"><font color="#666666">浏览数</font></div>
</td>
<%
NumRows=0
do while not rs.eof and NumRows < rs.PageSize
%>
<tr bgcolor=#FFFFFF >
<td width="147">
<div align="left"><a href="showinfo.asp?ID=<%=Cstr(rs("pickid"))%>" target="_blank"><%=rs("picksite")%></a></div>
</td>
<td width="115"><font color="#FFFFFF"><font color="#000000"><%=rs("pickname")%></font></font></td>
<td width="224">
<div align="left"></div>
<%=rs("pickmemo")%> </td>
<td width="52"><%=rs("pickvote")%></td>
<td width="56"><%=rs("pickvisitor")%></td>
</tr>
<%
rs.movenext
NumRows=NumRows+1
loop
%>
</table>
</td>
</tr>
<tr>
<td bgcolor="#EDB7D1" height="20">
<div align="right"> </div>
<div align="right"> <font color="#FFFFFF">共找到<b> <%=Rs.RecordCount%>
</b>个站点
<% if CurrentPage <=1 and RS.PageCount<>1 then %>
上一页 <a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
<a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=prevCurrentPage%>">[上一页]</a>
<a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>
<a href="search.asp?search=<%=search%>&flag=<%=flag%>&pages=<%=prevCurrentPage%>">[上一页]</a> 下一页
<% end if%>
页次：<%=CurrentPage%>/<%=RS.PageCount%>页 <%=Rs.PageSize%>条记录/页</font></div>
</td>
</tr>
</table>
<div align="right"></div>
<%else%>
<p align="center"><font color="#cc3366">Sorry,没有找到！</font><br>
</p>
<%end if%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"><!--#include file="bottom.htm" -->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -