📄 search.asp
字号:
<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<%
dim rs,sql,b,bb,i,tj,class1,class2,cnmai,diqu,key
set rs=server.createobject("ADODB.recordset")
key=request("keyword")
dim route
route="—>搜索结果"
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
%>
<HTML><HEAD><TITLE><%=title%>-关于<%=key%>的信息</TITLE><link href="inc_style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY topMargin=0>
<!--#include file="top.asp" -->
<!--#include file=bar.asp-->
<div align="center">
<table width="760" bgcolor="#FFFFFF" style="padding:0; ">
<tr><td width="200" valign="top" bgcolor="#F1FAE6">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="table2">
<tr>
<td height="39" style="font-size: 12pt" bgcolor="#CBDCB6">
<p align="center"><span lang="zh-cn">热贴排行</span></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><%
dim re_rs,re_sql
set re_rs=server.createobject("adodb.recordset")
re_sql="select top 9 * from xinxi where yz=1 order by llcs desc"
dim rslx2,sqllx
set rslx2=server.createobject("adodb.recordset")
re_rs.open re_sql,conn,1,1
if re_rs.eof and re_rs.bof then
response.write "<p align=""center"">没有此类信息</p>"
else
do while not re_rs.eof
sqllx="select * from [class1] where id="&re_rs("class1")&""
rslx2.open sqllx,conn,1,1
response.write "·"
response.write "<a href="&rslx2("memopage")&"?cnmai="& re_rs("id")&" title="""&re_rs("name")&"-发布于"&datevalue(re_rs("fbsj"))&" 浏览:"&re_rs("llcs")&"次"">"& mid(re_rs("biaoti"),1,30) & "</a><font color=""#008080"">["&re_rs("llcs")&"]</font><br>"
rslx2.close
re_rs.movenext
loop
end if
re_rs.close
set re_rs=nothing
%></td>
</tr>
</table><td valign="top" width="560">
<table width="100%" id="table1" height="97">
<tr>
<td height="24" class=td2_muen bgcolor="#CBDCB6" >
搜索关键字：<font color="#00FF00"><%=key%></font></td>
</tr>
<tr>
<td height="75" valign="top" width="597" colspan="2">
<div align="center">
<table border="1" width="100%" id="table1" cellspacing="0" bordercolor="#3D9854" style="border-collapse: collapse" cellpadding="0">
<tr>
<td style="width: 51; background-color:#CBDCB6" align="middle" height="25">
<span lang="zh-cn">类型</span></td>
<td style="width: 51; background-color:#CBDCB6" align="middle" height="25">方式</td>
<td style="width: 249px; background-color:#CBDCB6" align="middle" height="25">
标题/简介 </td>
<td style="width: 50px; background-color:#CBDCB6" align="middle" height="25">
价格</td>
<td style="width: 80px; background-color:#CBDCB6" align="middle" height="25">
击/回</td>
<td style="width: 65px; background-color:#CBDCB6" align="middle" height="25">日期</td>
</tr>
<%
dim ThisPage,Pagesize,Allrecord,Allpage,leixing
tj=0
sql = "select * from xinxi where yz=1 and biaoti like '%"&key&"%' or memo like '%"&key&"%' or addr1 like '%"&key&"%' order by zd desc,id desc"
rs.open sql,conn,1,1
rs.Pagesize=15
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
if rs.eof then
response.write "还没有添加信息！"
else
do while not rs.eof
b=trim(rs("b"))
bb=len(b)
response.write "<tr>"
response.write "<td bgcolor=""#CBDCB6"" align=""middle"" width=""60"" height=""22"">"
sqllx="select * from [class1] where id="&rs("class1")&""
rslx2.open sqllx,conn,1,1
response.write rslx2("class1")
response.write "</td>"
response.write "<td bgcolor=""#CBDCB6"" align=""middle"" width=""60"" height=""22"">"
dim rslx
set rslx=server.createobject("adodb.recordset")
sqllx="select * from [leixing] where id="&rs("leixing")&""
rslx.open sqllx,conn,1,1
response.write "[<font color="&rslx("lxcolor")&">"&rslx("leixing")&"</font>]"
rslx.close
set rslx=nothing
response.write "</td>"
response.write "<td bgcolor=""#CBDCB6"" align=""left"" width=""342"" height=""22"">"
response.write "<a target=""_blank"" title="""&rs("name")&"-发布于"&datevalue(rs("fbsj"))&""" href="&rslx2("memopage")&"?cnmai="&rs("id")&">"
rslx2.close
response.write ""&rs("biaoti")&""
response.write "</a>"
if rs("zd")=1 then
response.write "<img src=""images/jsq.gif"">"
end if
if rs("vip")=1 then
response.write "[vip]"
end if
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #CBDCB6"" align=""middle"" width=""40"" height=""22"">"
if rs("price")=0 then
response.write "面 议"
else
response.write rs("price")
end if
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #CBDCB6"" align=""middle"" width=""50"" height=""22"">"&rs("llcs")&"/"&rs("hfcs")&"</td>"
response.write "<td style=""BACKGROUND-COLOR: #CBDCB6"" align=""middle"" width=""80"" height=""22"">"&datevalue(rs("fbsj"))&"</td></tr>"
tj=tj+1
rs.movenext
if tj>=Pagesize then exit do
loop
end if
rs.close
set rslx2=nothing
set rs=nothing
%>
</table>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="552" bgcolor="#F1FAE6">
<tr>
<td height="25" width="151"bgcolor="#F1FAE6">
<p align="center">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
<td height="25" width="126" bgcolor="#F1FAE6">
<p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="118" bgcolor="#F1FAE6">
<p align="center">现在是第
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" width="157"bgcolor="#F1FAE6">
<p align="center">
<%dim myurl,pageposition
myurl=Request.ServerVariables("QUERY_STRING")
if myurl<>"" then
pageposition=instr(myurl,"page")
if pageposition>0 then
myurl=left(myurl,pageposition-1)
else
myurl=myurl+"&"
end if
end if
if ThisPage<2 then
response.write "<font color=""#808080"">首页</font> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?"&myurl&"page=1>首页</a> "
response.write "<a href=?"&myurl&"page="&ThisPage-1&">上一页</a> "
end if
if Allpage-ThisPage<1 then
response.write "<font color=""#808080"">下一页</font> "
response.write "<font color=""#808080"">尾页</font> "
else
response.write "<a href=?"&myurl&"page="&(ThisPage+1)&">下一页</a> "
response.write "<a href=?"&myurl&"page="&Allpage&">尾页</a> "
end if
%></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</table>
</div><!--#include file="end.htm" -->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -