<% '///////////////////////////////////////////////////////////////////// lb_0=52 '定义房产咨讯文章类别节点ID值 lb_1=52 '定义房产楼盘展示文章类别节点ID值,默认与咨讯共用，只显示咨讯图文头条 '///////////////////////////////////////////////////////////////////// '房产咨讯 sub fc_news(lb_0) Response.Write "" set rs = conn.execute("select top 12 bt,bt_b,bt_color,html from news where lbid="&lb_0&" and lx<>1 and zt=1 order by id desc") i=1 do while not rs.eof bt=left(rs("bt"),15) If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write("") if i mod 2 = 0 then Response.Write "" rs.movenext i=i+1 loop rs.close:set rs=nothing Response.Write "
·"&bt&"
" end sub '楼盘展示 sub fc_lp(lb_1) Response.Write "" set rs = conn.execute("select top 4 bt,tp,html from news where lbid="&lb_1&" and lx=1 and zt=1 order by id desc") do while not rs.eof bt=left(rs("bt"),10) Response.Write("") rs.movenext loop rs.close:set rs=nothing Response.Write "
"&bt&"
" end sub '系统自动定时更新内容 If Application("fangchandel_sj") <> "" Then If DateDiff("h", CDate(Application("fangchandel_sj")), Now()) > 12 Then '删除过期的房产信息 Set rs = conn.Execute("select id from fangchan where datediff(d,sj,getdate())>sj2 or zt=3 or zt=4 order by id") If Not rs.EOF Then Do While Not rs.EOF del_wj_myfso "/html/fangchan/"&rs(0)&".htm" rs.MoveNext Loop End If rs.Close: Set rs = Nothing conn.execute("Delete fangchan where datediff(d,sj,getdate())>sj2 or zt=3 or zt=4") Application("fangchandel_sj") = Now() End If Else Application("fangchandel_sj") = DateAdd("h", -13, Now()) End If%>
 最新加盟中介
<%set zj = conn.execute("select top 5 id,mc from fangchan_zj where zt=0 order by id desc") do while not zj.eof%><%zj.movenext loop zj.close set zj=nothing%>
 · " target='_blank'><%=left(zj("mc"),12)%>
房产资讯 >>更多
<% fc_news(lb_0)%> 		<%set gg = conn.execute("select top 3 id,tp,url from tp where lbid=3 and wz=1 and zt=0 order by id desc") do while not gg.eof Response.Write("") gg.movenext loop gg.close set gg=nothing%>
 最新出售
编号 户型 信息来源 房产位置 发布时间
<%set rs = conn.execute("select top 15 id,fx,userid,wz,sj from fangchan where lx=0 and zt=1 order by sj desc") if not rs.eof then i=1 do while not rs.eof if i mod 2 then bj="#FCF7F4" else bj="#FCEEE5" end if%> <%i=i+1 rs.movenext loop end if rs.close set rs=nothing%>
.htm" target='_blank'><%=rs("id")%> .htm" target='_blank'><%=rs("fx")%> .htm" target='_blank'> <%if rs("userid")=0 then Response.Write("非中介") else Response.Write("中介")%> .htm" target='_blank'><%=left(rs("wz"),18)%> <%=formatdatetime(rs("sj"),2)%>
 最新出租
编号 户型 信息来源 房产位置 发布时间
<%set rs = conn.execute("select top 10 id,fx,userid,wz,sj from fangchan where lx=1 and zt=1 order by sj desc") if not rs.eof then i=1 do while not rs.eof if i mod 2 then bj="#FCF7F4" else bj="#FCEEE5" end if%> <%i=i+1 rs.movenext loop end if rs.close set rs=nothing%>
.htm" target='_blank'><%=rs("id")%> .htm" target='_blank'><%=rs("fx")%> .htm" target='_blank'> <%if rs("userid")=0 then Response.Write("非中介") else Response.Write("中介")%> .htm" target='_blank'><%=left(rs("wz"),18)%> <%=formatdatetime(rs("sj"),2)%>
楼盘展示
<% fc_lp(lb_1) %>
 最新求购
 编号 户型 房产位置
<%set rs = conn.execute("select top 10 id,fx,wz from fangchan where lx=2 and zt=1 order by sj desc") if not rs.eof then i=1 do while not rs.eof if i mod 2 then bj="#FCF7F4" else bj="#FCEEE5" end if%> <%i=i+1 rs.movenext loop end if rs.close set rs=nothing%>
.htm" target='_blank'><%=rs("id")%> .htm" target='_blank'><%=rs("fx")%> .htm" target='_blank'><%=left(rs("wz"),11)%>
 最新求租
 编号 户型 房产位置
<%set rs = conn.execute("select top 10 id,fx,wz from fangchan where lx=3 and zt=1 order by sj desc") if not rs.eof then i=1 do while not rs.eof if i mod 2 then bj="#FCF7F4" else bj="#FCEEE5" end if%> <%i=i+1 rs.movenext loop end if rs.close set rs=nothing%>
.htm" target='_blank'><%=rs("id")%> .htm" target='_blank'><%=rs("fx")%> .htm" target='_blank'><%=left(rs("wz"),11)%>