default.asp

一套现成的分类信息网站发布系统

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"" width=""58"" height=""22"">"
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: #F3F3F3"" align=""left"" width=""340"" height=""22"">"
if rs("tupian")<>"0" then
response.write "<img src=""images/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=""images/num/jsq.gif"">"
for i=1 to bb
response.write "<img src=""images/num/"&Mid(b,i,1)&".gif"">"
next
end if
if rs("tuijian")="1" then
response.write "<img src=""images/num/jian.gif"" alt=""本站推荐"">"
end if
response.write "</td>"
response.write "<td style=""BACKGROUND-COLOR: #F3F3F3"" 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: #F3F3F3"" 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: #F3F3F3"" align=""middle"" 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"><a href="addfree.asp">
<font color="#FF0000">【发布信息】</font></a>共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</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>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1>首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&">尾页</a>&nbsp;"     
end if
%></td></tr></table></center></div></td></tr></table>
<a href="<%=ad1web%>" target="_blank">
<img border="0" src="<%=ad1%>" width="555" height="62"></a><tr>
  <td width="750" valign="top" height="8" colspan="2">  
</tr>
</table>
<!--#include file="end.htm" --> </BODY></HTML><%
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=""images/new.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
%>