?? search.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"> <font color="#008080">位置導航：</font><a href="index.asp">首頁</a><font color="#008080">→</font> <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">
共有 <font color="#CC5200"><%=rs.recordcount%></font> 條記錄</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 + -