⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 search.asp

📁 二手书籍系统
💻 ASP
字号:
🔍 
<!--#include file="inc/conn.asp"-->
<!--#include file="config.asp"-->
<%
dim rs,sql,b,bb,i,tj,cnmai,diqu,key
set rs=server.createobject("ADODB.recordset")
key=request("keyword")
%>
<HTML><HEAD><TITLE>搜索结果-<%=title%>-<%=web%></TITLE><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="供求信息,二手网,二手商品,电子商务,供求网站,免费发布供求信息,商业信息,贸易网,求购,求购信息,出售，供应,供求信息网，招商投资 生活服务 家电家居  旅游出行 招聘求职  房产信息 
建材装饰 烟酒副食 电脑网络  餐饮酒店  医药保健  农林牧渔  安全防护  包装纸张 办公文教  电子通讯  
纺织皮革  服装服饰  工业机械 仪器仪表 交通运输 车及配件 工艺礼品 文化艺术 冶金矿产 出版印刷 能源动力 环境保护 
化工行业 玩具体育 园林绿化 广告服务 商务服务 分类广告 搜索引擎 企业行业黄页 分类信息网 集市">
</HEAD>
<BODY topMargin=0>
<!--#include file="topcnmai2.asp"-->
<div align="center">
<table width="760" bgcolor="#FFFFFF" style="border-left:1px solid #C0C0C0; border-right:1px solid #C0C0C0; padding:1px; " cellspacing="0" cellpadding="0">
<tr><td colspan="3"></td>
	<tr><td colspan="3"><tr>
<td height=30 class=td5_muen colspan="3">&nbsp; <font color="#008080">位置导航：</font><a href="index.asp">首页</a><font color="#008080">→</font>&nbsp;<span class=font2> 搜索关键词：</span><%=key%></td> 
</tr>
<tr><td valign="top" bgcolor="#FCFDF7" width="258">

	<table border="0" width="100%" cellspacing="0" id="table2" cellpadding="0">
		<tr>
			<td class=td_muen height="26" align=center> <span class=font1>信息搜索</span></td>
		</tr>
		<tr>
			<td><!--#include file="barso.asp"--></td>
		</tr>
		<tr>
			<td class=td_muen height="26" align=center><span class=font1>赞助广告</span></td>
		</tr>
		<tr>
			<td>　</td>
		</tr>
	</table>

<td width="3" class=td1_muen><td valign="top">
<table id="table1" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td valign="top">

<table border="1" width="100%" id="table1" cellspacing="0" bordercolor="#F2F2F2" style="border-collapse: collapse" cellpadding="0">
<tr>
<td class=td4_muen height="26" colspan="5" align=center><span class=font1><font color=black>搜索结果列表</font></span><font color="#008080">(<img border="0" src="image/num/pic.gif" width="13" height="13">-图片 <img border="0" src="image/num/jsq.gif" width="12" height="12">-置顶 <img border="0" src="image/num/jian.gif" width="15" height="15">-推荐)</font></td> 
</tr>
<%
sql = "select * from xinxi where yz=1 and biaoti like '%"&key&"%' or memo like '%"&key&"%' or diqu like '%"&key&"%' or com like '%"&key&"%' or username like '%"&key&"%' or name like '%"&key&"%' order by b desc,id desc"
rs.open sql,conn,1,1
page=request.querystring("page")
rs.PageSize = 20
if Not IsEmpty(trim(Request("Page"))) then 
Page = CInt(Request("Page"))
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
End if
Page = rs.AbsolutePage
for k = 1 to rs.pagesize
On Error Resume Next
b=trim(rs("b"))
bb=len(b)
response.write "<tr>"
response.write "<td style=""BACKGROUND-COLOR: #F3F3F3"" align=""middle"" height=25 width=45>"
                Select Case rs("leixing")
                Case "1"
                response.write "<font color=""#800000"">"&leixing1&"</font>"
                Case "2"
                response.write "<font color=""#FF00FF"">"&leixing2&"</font>"
                Case "3"
                response.write "<font color=""#008000"">"&leixing3&"</font>"
                Case "4"
                response.write "<font color=""#FF6600"">"&leixing4&"</font>"
                Case "5"
                response.write "<font color=""#ff0000"">"&leixing5&"</font>"
                Case "6"
                response.write "<font color=""#000080"">"&leixing6&"</font>"
                Case "7"
                response.write "<font color=""#0000FF"">"&leixing7&"</font>"
                Case "8"
                response.write "<font color=""#008080"">"&leixing8&"</font>"
                Case Else
                response.write "<font color=""#000000"">"&leixing9&"</font>"
                End Select
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #FCFDF7"" align=""left"">"
if rs("tupian")<>"0" then
response.write "<img src=""image/num/pic.gif"" alt=""有图片"">"
end if
response.write "<a target=""_blank"" title="""&rs("name")&"-发布于"&datevalue(rs("fbsj"))&"""  href=xinximemo.asp?cnmai="&rs("id")&">"
if rs("a")="0" then
response.write "<font color=""#000080"">"&rs("biaoti")&"</font>"
else
response.write "<font color=#"&rs("a")&"><b>"&rs("biaoti")&"</b></font>"
end if
response.write "</a>"
if b<>0 then
response.write "<img src=""image/num/jsq.gif"">"
for i=1 to bb
response.write "<img src=""image/num/"&Mid(b,i,1)&".gif"">"
next
end if
if rs("tuijian")="1" then
response.write "<img src=""image/num/jian.gif"" alt=""热门推荐"">"
end if
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #F4F4FF"" align=""middle"">"&datevalue(rs("fbsj"))&"</td></tr>"
response.write "<tr><td></td><td colspan=5><a target=""_blank"" title="""&rs("name")&"-发布于"&datevalue(rs("fbsj"))&"""  href=xinximemo.asp?cnmai="&rs("id")&">"&mid(rs("memo"),1,90)&"</a><br>"
response.write "发布者：<b>"&rs("name")&"("&rs("diqu")&")</b>   联系电话：<b>"&rs("dianhua")&"</b></td></tr>"
response.write "<tr><td background=""image/bar6.gif"" height=4 colspan=6></td></tr>"
rs.movenext
if Page > rs.PageCount then exit for
next
%>
</table>
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#F2F2F2" width="100%">
<tr> 
<td height="25" width="103">
<p align="center">
共有&nbsp;<font color="#CC5200"><%=rs.recordcount%></font>&nbsp;条记录</td>
<td height="25" width="64">
<p align="center">共 <font color="#CC5200"><%=rs.pagecount%></font> 页</td>
<td height="25" width="82">
<p align="center">现在是第 
<font color="#CC5200"><%=Page%></font> 页</td>
<td height="25" width="236">
<p align="center">
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<%if page<rs.pagecount then%>
<%if page=1 then %>
[上一页]  [首页]
<%else%>
[<a Href="<%=filepath%>?keyword=<%=key%>&Page=<% = 1%>">首页</a>]
[<a Href="<%=filepath%>?keyword=<%=key%>&Page=<% =page -1 %>">上一页</a>]
<% end if %>
[<a Href="<%=filepath%>?keyword=<%=key%>&Page=<% = page + 1%>">下一页</a>] 
[<a Href="<%=filepath%>?keyword=<%=key%>&Page=<% = rs.PageCount%>">尾页</a>]
<%else%>
[<a Href="<%=filepath%>?keyword=<%=key%>&Page=<% = 1%>">首页</a>]
[<a Href="<%=filepath%>?keyword=<%=key%>&Page=<% =page -1 %>">上一页</a>]
[下一页] [尾页]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%></td>
</tr>
</table>
</center>
</td>
</tr>
</table>
</table>
<!--#include file="endcnmai.asp" -->
</div>
</BODY></HTML>  
<%
rs.close
set rs=nothing
closedb
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -