www.gusucode.com > 盐城分类信息网asp源码程序 > so.asp
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<html>
<HEAD>
<title>搜索关键字[<%=key%>]-<%=title%></title>
<script language="JavaScript">
function closewindow()
{
window.close();
}
</script>
<LINK href="images/at_news.css" type=text/css rel=stylesheet>
</HEAD>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%call t()%>
<DIV id=content>
<DIV id=right>
<DIV class=navigation>
<table border="0" width="100%" id="table1" style="border-collapse: collapse">
<tr>
<td width="70%" colspan="0" class="td1" background="Images/menu_r.gif">
<img src="img/dot1.gif" width="12" height="12"> 位置导航：首页→信息搜索：<span style="background-color: #00FF00"><%=key%></span></td><td width="30%" colspan="0" class="td1" background="Images/menu_r.gif"> 全部信息</span><font color="#008080">(<img border="0" src="image/pic.gif" width="13" height="13">-图片 <img border="0" src="image/tj.gif" width="12" height="12">-置顶 <img border="0" src="image/jian.gif" width="15" height="15">-推荐)</font></td>
</tr></table></DIV>
<DIV class=rightbody>
<DIV class=tags_calss>
<!--内容开始-->
<div align="center">
<table width="99%" border="0" cellpadding="0" cellspacing="0" id="table1" style="border-collapse: collapse">
<%
dim ThisPage,Pagesize,Allrecord,Allpage,cla1
set rs=server.createobject("ADODB.recordset")
tj=0
if diqu<>"" then
sql = "select * from xinxi where yz=1 and diqu like '%"&diqu&"%' and (leixing like '%"&key&"%' or biaoti like '%"&key&"%' or memo like '%"&key&"%' or com like '%"&key&"%' or username like '%"&key&"%' or name like '%"&key&"%') order by b desc,id desc"
elseif cla1<>0 then
sql = "select * from xinxi where yz=1 and class1="&cla1&" and (leixing like '%"&key&"%' or 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"
elseif cla1=0 then
sql = "select * from xinxi where yz=1 and (leixing like '%"&key&"%' or 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"
else
sql = "select * from xinxi where yz=1 and (leixing like '%"&key&"%' or 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"
end if
rs.open sql,conn,3,2
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
b=trim(rs("b"))
bb=len(b)
dim k,bgc
Counter=0
for k = 1 to 10
if not rs.eof then
bgc="ffffff"
if k mod 2 =1 then
bgc="F5F8F8"
else
bgc="ffffff"
end If
response.write "<tr bgcolor=#"&bgc&">"
'response.write "<td align=""middle"" width=120 height=80 rowspan=2>"
'if rs("tupian")<>"0" then
'response.write "<img width=110 height=70 src="&rs("tupian")&" alt=""有图片"">"
'else
'response.write "<img width=110 height=70 src=""image/quan.jpg"" alt=""无图片"">"
'end if
'response.write "</td>"
response.write "<td align=""left"">"
if rs("tupian")<>"0" then
response.write "<img src=""image/pic.gif"" alt=""有图片"">"
end if
response.write "["&rs("leixing")&"]<a target=""_blank"" title="""&rs("name")&"-发布于"&datevalue(rs("fbsj"))&""" href=x.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 rs("tuijian")="1" then
response.write "<img src=""image/jian.gif"" alt=""本站推荐"">"
end if
response.write "</td>"
response.write "<td align=""middle"" width=120>时间:"&datevalue(rs("fbsj"))&"</td></tr>"
response.write "<tr bgcolor=#"&bgc&"><td colspan=5><font color=#666666> "&mid(rs("memo"),1,90)&"</font><br>"
response.write "<p align=right >发布者:"&rs("name")&"("&rs("diqu")&") 联系电话:"&rs("dianhua")&"</p></td></tr>"
response.write "<tr><td background=""image/bar6.gif"" height=2 colspan=6></td></tr>"
else
exit for
end if
rs.movenext
next
end if
rs.close
set rs=nothing
%>
</table><table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#F2F2F2" width="99%">
<tr>
<td height="25" width="119">
<p align="center">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
<td height="25" width="97">
<p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="123">
<p align="center">现在是第
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" align="right">
<%
if ThisPage<2 then
response.write "<font color=""#808080"">首页</font> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?page=1&/2="&key&">首页</a> "
response.write "<a href=?page="&ThisPage-1&"&/2="&key&">上一页</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=?page="&(ThisPage+1)&"&/2="&key&">下一页</a> "
response.write "<a href=?page="&Allpage&"&/2="&key&">尾页</a> "
end if
%><select name="select" size="1" onChange="location=this.options[this.selectedIndex].value" >
<%dim h
for h= 1 to Allpage %>
<option value='?page=<%=h%>&/=<%=class1%>&//=<%=class2%>&/1=<%=class2c%>&/4=<%=diqu%>&lgwzjs=<%=cnmai%>' <%if h=ThisPage then%> selected <%end if%>><%=h%></option>
<%next%>
</select>
</td>
</tr>
</table>
</center>
</div>
</DIV>
</DIV>
</td>
</tr>
</table>
</div>
<!--左边-->
<DIV id=rights>
<DIV class=leftborder>
<a href="axx.asp?cnmai=free" target="_blank"><img src="images/button_post1.jpg" border="0"></a>
</DIV>
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font> >> 地区信息</SPAN></DIV>
<DIV class=lcontent> <SPAN class=tableleft>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<%
call di()
%>
</TBODY></TABLE></SPAN></DIV></DIV>
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font> >> 最新回复/浏览信息</SPAN></DIV>
<DIV class=lcontent> <SPAN class=tableleft>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<%call nx()%>
</TBODY></TABLE></SPAN></DIV></DIV>
<!--左边第一个广告开始-->
<DIV class=leftborder>
<DIV class=lcontent>
<center><%=ad2%></center>
</div></div>
<!--左边第一个广告结束-->
<!--推荐信息开始-->
<DIV class=leftborder>
<DIV class=ltitle><SPAN class=font> >> vip推荐信息</SPAN></DIV>
<DIV class=lcontent>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<%call nxvip()%>
</TBODY></TABLE>
</DIV>
</DIV></DIV>
<center>
<!--#include file="foot.asp"-->
</center>
<!--左边结束-->
</body>
</html>