📄 search.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/fun.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=WebTitle%>-搜索书籍</title>
<!--#include file="head.asp"-->
<table width="760" border="1" bgcolor=#7BD676 align="center" cellpadding="0" cellspacing="3">
<tr><td width=130 bgcolor=#FFF8F0 valign=top>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr bgcolor=#FFF8F0><td>
小提示：建议使用模糊查询以获得更多结果，比如，您想搜索“寻梦书库”，可以只输入“寻梦”；搜索外国作者的书籍时，由于翻译不同，如《汉姆雷特》也译做《哈姆雷特》，可能会造成搜索不到的情况，建议多搜索几次以获得你所需要的结果。
</td></tr></table>
</td><td align="center" valign=top background="image/bg.jpg" bgcolor=#FFF8F0>
<table border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all"><br>
<tr><td align="center"><font size=6><b>搜 索 书 籍</b></font>
</td></tr></table>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<form name="search" method="post" action="search.asp">
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td align="center">
搜索关键词 <input type="text" style="border-bottom:1px dotted #009966;border-left:1px dotted #009966;border-right:2px dotted #009966;border-top:1px dotted #009966;" name="key" size="24" value="<%=UTF2GB(request("key"))%>">
<input type="submit" style="BACKGROUND:#F0F7FF;COLOR:#111111;BORDER-TOP:1 Hidden #FFFFFF;BORDER-LEFT:1 Hidden #FFFFFF;BORDER-RIGHT:1 Hidden #36AB68;BORDER-BOTTOM:1 Hidden #36AB68;" value=" 搜 索 ">
</td></tr></form></table>
</td></tr></table>
<br>
<%
on error resume next
key=request("key")
if len(key)>0 then
sql="select * from book where bookname like '%"&key&"%' or zuozhe like '%"&key&"%' or adv like '%"&key&"%' "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=6
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>
<%
if rs.eof then
%>
<table width=80% border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr>
<td colspan="2" style="word-break:break-all">
<br>
<%
response.write"<p align=center>非常抱歉，没有找到你需要的书籍！<br><br>"
response.write"<font size=4><a href=about.asp#6>欢迎点击这里向我们推荐好书！</a></p></font><br>"
%>
</td>
</tr>
</table>
<%
else
%>
<table width=98% border=0 align="center" cellPadding=5 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<%
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
zuozhe=Rs("zuozhe")
zuozhe=replace(zuozhe, ""&key&"", "<font color=#FF00CC>"&key&"</font>")
bookname=Rs("bookname")
bookname=replace(bookname, ""&key&"", "<font color=#FF00CC>"&key&"</font>")
adv=Rs("adv")
adv=replace(adv, ""&key&"", "<font color=#FF00CC>"&key&"</font>")
%>
<tr><td style="word-break:break-all">
<%=zuozhe%>
<a href="bookread.asp?bookid=<%=Rs("bookid")%>" target="_blank"> <b>[<%=bookname%>]</a></b><br>
推荐度：<%=encode1(rs("tuijian"))%> 总被阅读<b><%=Rs("hit")%></b>次<br>
<%=adv%>
</td></tr>
<%
Rs.movenext
loop
%>
</table>
<br>
<table border=0 cellpadding=0 cellspacing=1>
<tr><td align="center" style="line-height: 150%">
<p>共搜索到相关书籍<%=Rs.recordcount%>种 <%=page%>/<%=Rs.pagecount%>页
<% if page=1 then %>
<%else%>
<a href=search.asp?key=<%=key%>&page=<%=page-1%>>上一页</a>
<%end if%>
<% if Rs.pagecount-page > 0 then %>
<a href=search.asp?key=<%=key%>&page=<%=page+1%>>下一页</a>
<%else%>
<%end if%>
</td></tr></table>
<%end if
end if
%>
</td>
</tr></table>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -