📄 new.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="top.asp"-->
<%
dim rs,sql,b,bb,i,tj,class1,class2,cnmai,biaoti
set rs=server.createobject("ADODB.recordset")
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
%>
<head>
<title>全部最新信息-<%=title%></title>
<meta name="keywords" content="供求信息,二手网,二手商品,电子商务,供求网站,免费发布供求信息,商业信息,贸易网,求购,求购信息,出售，供应,供求信息网，招商投资 生活服务 家电家居 旅游出行 招聘求职 房产信息
建材装饰 烟酒副食 电脑网络 餐饮酒店 医药保健 农林牧渔 安全防护 包装纸张 办公文教 电子通讯
纺织皮革 服装服饰 工业机械 仪器仪表 交通运输 车及配件 工艺礼品 文化艺术 冶金矿产 出版印刷 能源动力 环境保护
化工行业 玩具体育 园林绿化 广告服务 商务服务 分类广告 搜索引擎 企业行业黄页 分类信息网 集市">
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0">
<!--#include file="topcnmai2.asp"-->
<div align="center">
<center>
<TABLE cellPadding=0 width=760>
<TBODY>
<TR>
<TD height="24" width="560">
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table1">
<tr>
<td class=td2_muen height="26"> <span class="font1"><font face="Wingdings 2" size="4">R</font></span> <span class="font1">最新信息</span></td>
</tr>
<tr>
<td><img border="0" src="image/a_2.gif" width="565" height="10"></td>
</tr>
<tr>
<td background="image/b_2.gif" align="center"> 类型
信息标题
价格 浏/回 发布日期
状态 </td>
</tr>
<tr>
<td background="image/b_2.gif"><table width="100%" id="table1" height="58"><tr>
<td height="71" valign="top" width="597"><div align="center">
<table border="1" width="99%" id="table1" cellspacing="1" bordercolor="#F2F2F2" style="border-collapse: collapse"><tr></tr><%
dim ThisPage,Pagesize,Allrecord,Allpage,leixing
tj=0
sql = "select * from xinxi where yz=1 order by fbsj desc"
rs.open sql,conn,1,1
rs.Pagesize=30
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: #fbfbfb"" align=""middle"" width=""58"" height=""22"">"
Select Case rs("leixing")
Case "1"
response.write "<font color=""#800000""><u>"&leixing1&"</u></font>"
Case "2"
response.write "<font color=""#FF00FF""><u>"&leixing2&"</u></font>"
Case "3"
response.write "<font color=""#008000""><u>"&leixing3&"</u></font>"
Case "4"
response.write "<font color=""#FF6600""><u>"&leixing4&"</u></font>"
Case "5"
response.write "<font color=""#ff0000""><u>"&leixing5&"</u></font>"
Case "6"
response.write "<font color=""#000080""><u>"&leixing6&"</u></font>"
Case "7"
response.write "<font color=""#0000FF""><u>"&leixing7&"</u></font>"
Case "8"
response.write "<font color=""#008080""><u>"&leixing8&"</u></font>"
Case Else
response.write "<font color=""#000000""><u>"&leixing9&"</u></font>"
End Select
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #fbfbfb"" align=""left"" width=""340"" height=""22"">"
if rs("tupian")<>"0" then
response.write "<img src=""image/num/pic.gif"" alt=""有图片"">"
end if
response.write "<a target=""_blank"" title="""&rs("diqu")&"-"&rs("name")&"-发布于"&datevalue(rs("fbsj"))&""" href=xinximemo.asp?cnmai="&rs("id")&">"
if rs("a")="0" then
response.write ""&mid(rs("biaoti"),1,20)&""
else
response.write "<font color=#"&rs("a")&">"&mid(rs("biaoti"),1,20)&"</font>"
end if
response.write "</a>"
if b<>0 then
response.write "<img src=""image/num/jsq.gif"" alt=""置顶"">"
for i=1 to bb
response.write "<img src=""image/num/"&Mid(b,i,1)&".gif"" alt=""置顶"">"
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: #fbfbfb"" align=""middle"" width=""40"" height=""22"">"
if rs("jiage")=0 then
response.write "面 议"
else
response.write rs("jiage")
end if
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #fbfbfb"" align=""middle"" width=""50"" height=""22"">"&rs("llcs")&"/"&rs("hfcs")&"</td>"
response.write "<td style=""BACKGROUND-COLOR: #fbfbfb"" align=""middle"" width=""86"" height=""22"">"
response.write ""&cnmaisj(rs("fbsj"))&"</td>"
response.write "<td style=""BACKGROUND-COLOR: #fbfbfb"" align=""right"" width=""82"" height=""22"">"
dim sj
sj=DateDiff("d",now(),""&rs("dqsj")&"")
if sj>0 then
response.write "<font color=""#414141"">剩余"&sj&"</b>天</font>"
else
response.write "已经过期"
end if
response.write "</td></tr>"
tj=tj+1
rs.movenext
if tj>=Pagesize then exit do
loop
end if
rs.close
set rs=nothing
%> </table></div><div align="center"><center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" bgcolor="#F0E9C8"><tr><td height="25" width="181"><p align="center">共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</td><td height="25" width="96"><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="157"><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>首页</a> "
response.write "<a href=?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=?page="&(ThisPage+1)&">下一页</a> "
response.write "<a href=?page="&Allpage&">尾页</a> "
end if
%></td></tr></table></center></div></td></tr></table></td>
</tr>
<tr>
<td><img border="0" src="image/c_2.gif" width="565" height="9"></td>
</tr>
</table>
</div>
</TD>
<td valign="top">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 style="border-left: 1px solid #FF6600; border-right: 1px solid #FF6600; border-top-width: 1px; border-bottom: 1px solid #FF6600;">
<tr>
<td width="25" height="26" background="image/menbertop.gif"><a target="_blank" href="allcom.asp" style="CURSOR: hand"></a><img src="image/menbera.gif" width="25" height="30"></td>
<td width="180" background="image/menbertop.gif"><a target="_blank" href="allcom.asp" style="CURSOR: hand"><span class=font1>特约商家</span></a></td>
</tr>
<tr>
<td colspan="3"><%
dim viprs,vipsql,btnum
btnum=zinum
set viprs=server.createobject("adodb.recordset")
vipsql= "select top 10 * from com where vip=1 order by lastdl desc"
call vipcom()%>
<center><a href="allcom.asp"><font color="#FF6600">全部商家信息</font></a></center></td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" >
<tr>
<td align="center" height="6"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 style="border-left: 1px solid #FF6600; border-right: 1px solid #FF6600; border-top-width: 1px; border-bottom: 1px solid #FF6600;">
<tr>
<td width="25" height="26" background="image/menbertop.gif"><a target="_blank" href="allcom.asp" style="CURSOR: hand"></a><img src="image/logina.gif" width="25" height="30"></td>
<td width="180" background="image/menbertop.gif"><a target="_blank" href="allcom.asp" style="CURSOR: hand"><span class=font1>最新商家</span></a></td>
</tr>
<tr>
<td colspan="3"><%
sql = "select top 10 * from com order by zcdata desc"
call newcom
%>
<center><a href="regchk.asp"><font color="#FF6600">我是商家，我要加入!</font></a></center></td>
</tr>
</table>
</td></tr>
</TBODY></TABLE>
</center>
</div>
<!--#include file="endcnmai.asp"--><%
Conn.Execute("Update xinxi Set b=0 where DateDiff('D',fbsj,now())>="&b_y&" and yz=1")
Conn.Execute("Update xinxi Set tuijian=0 where DateDiff('D',fbsj,now())>="&tui_y&" and yz=1")
closedb
function cnmaisj(sj_1)
dim sj
sj=DateDiff("D",sj_1,now())
if sj<=1 then
response.write "<font color=""#FF0000"">今天</font><img src=""image/news.gif"">"
elseif sj<=2 and sj>1 then
response.write "<font color=""#0000FF"">昨天"&timevalue(sj_1)&"</font>"
elseif sj>2 and sj<=3 then
response.write "<font color=""#008080"">前天"&timevalue(sj_1)&"</font>"
elseif sj>3 then
response.write "<font color=#353535>"&datevalue(sj_1)&"</font>"
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -