<% '生成缓存 if Application("flea_0")="" or Application("flea_1")="" then set s = Server.CreateObject("shuziren_com.huiyuan") s.a_2s() set s=nothing end if '系统自动定时更新内容 If Application("gqdel_sj") <> "" Then If DateDiff("h", CDate(Application("gqdel_sj")), Now()) > 12 Then '更新24小时的二手顶置信息 conn.execute("Update gq set ding=0 where ding<>0 and ding<100 and datediff(d,sj3,getdate())>1") '更新48小时的二手标红信息 conn.execute("Update gq set css=0 where css<>0 and datediff(d,sj3,getdate())>2") '删除180天以前的二手信息 Set rs = conn.Execute("select id from gq where datediff(d,sj2,getdate())>180 order by id") If Not rs.EOF Then Do While Not rs.EOF del_wj_myfso "/html/2shou/"&rs(0)&".htm" rs.MoveNext Loop End If rs.Close: Set rs = Nothing conn.Execute ("Delete gq where datediff(d,sj2,getdate())>180") Application("gqdel_sj") = Now() End If Else Application("gqdel_sj") = DateAdd("h", -13, Now()) End If %> <%set gg = conn.execute("select top 5 tp,url,lx from tp where lbid=1 and zt=0 order by id desc") do while not gg.eof if gg("lx")<>0 then Response.Write("") else Response.Write("") end if gg.movenext loop gg.close set gg=nothing%>

二手市场首页最新信息热门信息供应信息求购信息免费发布二手信息

信息检索： <%=Application("flea_0")%>

<%=Application("flea_1")%>

二手信息分类导航

客户必读须知

免责声明：
本站所有信息及内容，均为企业或个人会员发布，请注意识别验证信息的虚假。据此交易风险自负！<%=my_name%>不提供任何保证，并不承担任何法律责任。

二手功能道具介绍：
　　二手市场设置了三个道具，即信息更新道具（更新已发信息的发布时间），标题标红道具（将信息主题颜色标成红色48小时），信息置顶道具（能使发布信息置顶，有效时间为24小时；使用个数越多，位置越高。

关于虚拟<%=my_je%>说明：
　用户虚拟<%=my_je%>是用户注册奖励、登录网站的次数奖励、发信息奖励、回答问题等的虚拟<%=my_je%>的总金额构成。 >>查看更多介绍


方式	信息标题	人气/回复	日期

<%set s = Server.CreateObject("shuziren_com.yz") Set rs=Server.CreateObject("ADODB.Recordset") if request("lbid")<>"" and isnumeric(request("lbid")) and request("key")<>"" then sql="select top 10000 id,lx,bt,sj2,css,ding,js,js2,tp from gq where zt=1 and lbid="&s.shuzi("lbid")&" and bt like '%"&s.txt("key")&"%' order by id desc" elseif request("key")<>"" then sql="select top 10000 id,lx,bt,sj2,css,ding,js,js2,tp from gq where zt=1 and bt like '%"&s.txt("key")&"%' order by id desc" elseif request("lbid")<>"" and isnumeric(request("lbid")) then sql="select top 10000 id,lx,bt,sj2,css,ding,js,js2,tp from gq where zt=1 and lbid="&s.shuzi("lbid")&" order by ding desc,sj2 desc" elseif request("abc")<>"" and isnumeric(request("abc")) then Select case request("abc") case "1" sql="select top 10000 id,lx,bt,sj2,css,ding,js,js2,tp from gq where zt=1 order by ding desc,js desc,sj2 desc" case "2" sql="select top 10000 id,lx,bt,sj2,css,ding,js,js2,tp from gq where zt=1 and lx=0 order by ding desc,sj2 desc" case "3" sql="select top 10000 id,lx,bt,sj2,css,ding,js,js2,tp from gq where zt=1 and lx<>0 order by ding desc,sj2 desc" case else sql="select top 10000 id,lx,bt,sj2,css,ding,js,js2,tp from gq where zt=1 order by ding desc,sj2 desc" End Select else sql="select id,lx,bt,sj2,css,ding,js,js2,tp from gq where zt=1 order by ding desc,sj2 desc" end if rs.open sql,conn,1,1 If rs.eof Then Response.Write("") Else page1("30") i=1 do while not rs.eof and i<=rs.pagesize%> <%i=i+1 rs.MoveNext loop End If if i<30 then for h=0 to 30-i response.write"" next end if%>

对不起,目前暂无符合的信息!
<%response.write "" If rs("lx")=0 Then response.write"卖" Else response.write"买" End If%>	<%if rs("tp")<>"" then tp=" " else tp="" if rs("css")<>0 then response.write tp&""&left((rs("bt")),25)&"" else response.write tp&""&left((rs("bt")),25)&"" end if if rs("ding")<>0 then Response.Write(" "&rs("ding")&"")%>	<%=rs("js")%>/<%=rs("js2")%>	<%=formatdatetime(rs("sj2"),2)%>


<% page2("abc="&request("abc")&"&lbid="&request("lbid")&"&key="&request("key")&"&") rs.close set rs=nothing conn.close set conn=nothing set s=nothing%>