📄 info.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="config.asp"-->
<%
dim rs,sql,b,bb,i,tj,class1,class2,cnmai,diqu
set rs=server.createobject("ADODB.recordset")
class1=trim(request("class1"))
class2=trim(request("class2"))
leixing=trim(request("leixing"))
diqu=request("diqu")
cnmai=request("cnmai")
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
%>
<%
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from [class1] where id="&class1&" order by paixu desc"
rs2.open sql2,conn,1,1
dim tit
tit=rs2("class1")
rs2.close
set rs2=nothing
%>
<HTML><HEAD><TITLE><%=title%>-<%=tit%>-<%=web%></TITLE></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> <%=tit%></span></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>
<img border="0" src="image/point05.gif" width="9" height="12">
<%
dim rs1,sql1
set rs1=server.createobject("adodb.recordset")
sql1 = "select * from class2 where class1="&class1&" order by paixu desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
response.write "<a href=""info.asp?class1="&class1&"&class2="&rs1("id")&"&cnmai=2"">"&rs1("class2")&"</a> "
rs1.movenext
loop
rs1.close
set rs1=nothing
%></td>
</tr>
<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 height="26" class=td2_muen align=center>
<span class=font1> 重点信息推荐</span></td>
</tr>
<tr>
<td align=center><!--#include file="tj.asp"--><hr size="1"></td>
</tr>
<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>
<%
dim ThisPage,Pagesize,Allrecord,Allpage,leixing
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 leixing="&leixing&" order by b desc,id desc"
Case "4"
sql = "select * from xinxi where yz=1 and diqu="&diqu&" 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"
' ,fbsj desc
End Select
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 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>"
tj=tj+1
rs.movenext
if tj>=Pagesize then exit do
loop
end if
rs.close
set rs=nothing
%>
</table>
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#F2F2F2" width="100%">
<tr>
<td height="25" width="151">
<p align="center">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
<td height="25" width="126">
<p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="118">
<p align="center">现在是第
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" width="183">
<p align="center">
<%
if ThisPage<2 then
response.write "<font color=""#808080"">首页</font> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?page=1&class1="&class1&"&class2="&class2&"&cnmai="&cnmai&">首页</a> "
response.write "<a href=?page="&ThisPage-1&"&class1="&class1&"&class2="&class2&"&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="&class1&"&class2="&class2&"&cnmai="&cnmai&">下一页</a> "
response.write "<a href=?page="&Allpage&"&class1="&class1&"&class2="&class2&"&cnmai="&cnmai&">尾页</a> "
end if
%></td>
</tr>
</table>
</center>
</td>
</tr>
</table>
</table>
<!--#include file="endcnmai.asp" -->
</div>
</BODY></HTML>
<%
Conn.Execute("Update xinxi Set b=0 where DateDiff('D',fbsj,now())>="&b_y&" and rz=1")
closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -