www.gusucode.com > 盐城分类信息网asp源码程序 > info.asp
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<html><head>
<title><%=city%><%=tit%>-<%=title%>-<%=web%></title>
<link href="inc/style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body topmargin="0" leftmargin="0">
<%call t()%><DIV class=h></DIV>
<div align="center">
<table width="956" height="75" border="0" cellpadding="0" cellspacing="0">
<tr><td align="center" valign="top" rowspan="2" class="td" width="706"><table width="100%" border="0" align="center" cellpadding="0" id="table1" style="border-collapse: collapse">
<tr><td height="26" colspan="7" background="Images/menu_r.gif" > 位置导航：<a href="../">[<%=city%>]首页</a>→<a href="info.asp?/=<%=class1%>&cnmai=1"><%=tit%></a><a href="info.asp?/=<%=class1%>&//=<%=class2%>&/1=<%=escape(class2c)%>&cnmai=2"><%=class2c%></a>
<span style="background-color: #00FF00"> <%=diqu%></span></td>
</tr>
<tr><td height="26" colspan="7" bgcolor="#FCF6F6" ><span class=font1> <font face="Wingdings 2" size="4">R</font>
全部信息</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>
<%
dim ThisPage,Pagesize,Allrecord,Allpage
set rs=server.createobject("ADODB.recordset")
tj=0
Select Case cnmai
Case "1"
sql = "select * from xinxi where yz=1 and class1="&class1&" order by b desc,id desc"
Case "2"
sql = "select * from xinxi where yz=1 and class1="&class1&" and class2="&class2&" order by b desc,id desc"
Case "3"
sql = "select * from xinxi where yz=1 and diqu like '%"&diqu&"%' and class1 like '%"&class1&"%' and class2 like '%"&class2&"%' order by b desc,id desc"
Case "4"
sql = "select * from xinxi where yz=1 and leixing like '%"&leixing&"%' order by b desc,id desc"
Case "5"
sql = "select * from xinxi where yz=1 and tuijian=1 order by b desc,id desc"
Case Else
sql = "select * from xinxi where yz=1 order by b desc,id desc"
End Select
rs.open sql,conn,1,1
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"" width=500>"%><div class="sortbiaoti"> [<%=rs("leixing")%>] <a title="<%=rs("name")%>-发布于<%=datevalue(rs("fbsj"))%>" href=x.asp?cnmai=<%=rs("id")%>>
<%
if rs("a")<>"0" or rs("tuijian")<>"0" then%>
<font color=#<%=rs("a")%>><b><%=rs("biaoti")%></b></font>
<%else%>
<%=rs("biaoti")%></a>
<%end if%>
<%if rs("tuijian")="1" then
%>
<img src="image/jian.gif" alt="本站推荐" border=0>
<%end if%>
</div><%
response.write "<td align=""middle"" width=90>"&datevalue(rs("fbsj"))&"</td></tr>"
response.write "<tr bgcolor=#"&bgc&"><td colspan=5>"%><div style="margin-top:8px; margin-left:4px;margin-right:4px;
margin-bottom:8px;font-size:12px;color:#333333;line-height:130%;"> <%=left(rs("memo"),80)%>
<%if len(rs("memo"))>80 then
response.write"…"
end if
%> <a href=x.asp?cnmai=<%=rs("id")%>><font color=#00007F>[详细信息]</font>
</a>
</div><%
response.write "</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" bgcolor="#F2F2F2" width="100%"><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="120">
<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&/="&class1&"&//="&class2&"&/1="&class2c&"&/4="&diqu&"&cnmai="&cnmai&">首页</a> "
response.write "<a href=?page="&ThisPage-1&"&/="&class1&"&//="&class2&"&/1="&class2c&"&/4="&diqu&"&cnmai="&cnmai&">上一页</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)&"&/="&class1&"&//="&class2&"&/1="&class2c&"&/4="&diqu&"&cnmai="&cnmai&">下一页</a> "
response.write "<a href=?page="&Allpage&"&/="&class1&"&//="&class2&"&/1="&class2c&"&/4="&diqu&"&cnmai="&cnmai&">尾页</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%>&cnmai=<%=cnmai%>' <%if h=ThisPage then%> selected <%end if%>><%=h%></option>
<%next%>
</select></td></tr></table></td>
<td width="25" align="center" valign="top"><img border="0" src="image/info.gif" width="25" height="225"></td>
<td width="214" rowspan="2" align="center" valign="top" background="img/rightbg.jpg" class="td"><%
if class1<>"" and class2="" then
call di()
call nxvip1()
%>
<div align="center"><%=ad5%></div>
<%
response.write "<br>"
end if
%></td>
</tr>
<tr><td align="center" valign="bottom"><img border="0" src="image/a.gif" width="25" height="211"></td></tr></table><DIV class=h></DIV>
<!--#include file="foot.asp"--></div>
</body></html><%call closedb()%>