www.gusucode.com > 盐城分类信息网asp源码程序 > topdh.asp
<%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183
'***********************************
%><!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<html>
<HEAD>
<title><%=key%>-<%=title%></title>
<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=left>
<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 nx()%>
</TBODY></TABLE></SPAN></DIV></DIV> <!--leftborder end-->
<!--左边第一个广告开始-->
<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>
<!--left-->
<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">
位置导航：<a href="../">首页</a>→<%=key%>信息</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">
<td valign="top"><table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" background="images/secondhand_list1.gif"><table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19"> </td>
<td width="99" class="font_size2"><%=key%>信息</td>
<td width="510"></td>
<td height="22" valign="bottom"><a href="gbook.asp" target="_blank"><img src="images/secondhand_jb.gif" width="100" height="21" border="0" /></a></td>
</tr>
</table></td>
<table width="99%" border="0" cellpadding="0" cellspacing="0" id="table1" style="border-collapse: collapse">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="6"></td>
</tr>
</table>
<%
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
rs.Pagesize=18
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 30
if not rs.eof then
bgc="ffffff"
if k mod 2 =1 then
bgc="F5F8F8"
else
bgc="ffffff"
end If
response.write "<div id=""bianminboxs"">"
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"">"&left(rs("biaoti"),16)&"</font>"
else
response.write "<font color=#"&rs("a")&">"&left(rs("biaoti"),16)&"</font>"
end if
response.write "</a>"
response.write " <FONT color=#999999>"&datevalue(rs("fbsj"))&"</font>"
if rs("tuijian")="1" then
response.write "<img src=""image/jian.gif"" alt=""本站推荐"">"
end if
if rs("tupian")<>"0" then
response.write "<img src=""image/pic.gif"" alt=""有图片"">"
end if
response.write "</div>"
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
%>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
</form>
</center>
</div>
</DIV>
</DIV>
<!--详细信息结束-->
<!--底部-->
</td>
</tr>
</table>
</div>
<!--#include file="foot.asp"-->
</body>
</html><%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183
'***********************************
%>