<% if rscz.bof and rscz.eof then response.write "管历鸨暂时没有铁赜房源!" else while not rscz.eof%> <% rscz.movenext wend end if rscz.close set rscz=nothing %>
     

<% if rscs.bof and rscs.eof then response.write "管历鸨暂时没有铁赜房源!" else while not rscs.eof%> <% rscs.movenext wend end if rscs.close set rscs=nothing %>
     

塤撿徣庡梫搒巗
 
崺柧巗
崺柧偼塤婱崅尨偺拞晹偵埵抲偟丄嶰曽傪嶳偵埻傑傟

 晽岝柧沍側塤撿徣偺徣搒丅巗偺憤柺愊偼侾枩

5561倠倣2丄恖岥偼栺俁俈侽枩恖丅昗崅1891倣偺杶抧偵

偁傞崺柧偼丄  侾擭傪捠偟偰婥岓偑壐傗偐丅侾擭拞椢偺

 偊傞偙偲偺  側偄偙偺挰偼弔忛偲屇偽傟恊偟傑傟偰 

偄傞丅塤撿徣慡懱偱偼25偺彮悢柉懓偑廧傫偱偍傝丄崺柧偵傕僀懓丄儁乕懓丄僫僔
丂丂
懓丄  僴僯懓側偳12偺柉懓偑廧傫偱偄傞丅彮悢柉懓偺曮屔偲偟偰柤崅偄塤撿徣

奺抧  偺婲揰偲傕側偭偰偄傞丅
戝棟巗  

戝棟巗偼丄塤撿徣偺惣晹偵埵抲偡傞戝棟儁乕

帺帯廈偺廈搒丅憤柺愊偼1458倠倣2偱丄偦偺偆偪奀


偺柺愊偑17亾傪愯傔傞丅嶳妜抧懷側偺偱丄暯抧

偼15亾偵 夁偓側偄丅巗拞怱偺昗崅偼1976倣丅

恖岥偼栺係俆枩恖偱丄儁乕懓偑65亾丅 傎偐偵偼

娍懓丄夞懓丄僀懓丄儕僗懓丄僠儁僢僩懓丄儈儍僆懓側偳偺柉懓偑曢傜偟偰偄傞丅

戝棟偼丄 擭娫暯嬒婥壏偑15.1亷偲壐傗偐側婥岓偱丄擭娫傪捠偟偰娤岝偵朘

傟傞偙偲偑偱偒傞丅 戝棟偼儁乕懓偺嫃廧僄儕傾偱丄斵傜偺揱摑暥壔偑怓擹

偔巆偭偰偄傞丅儁乕懓偼 僔僫丒僠儀僢僩岅宯偺儁乕岅傪榖偡丅敀怓傪嵟傕婱偄怓

偲偟偰偄傞偨傔堖憰傕敀怓傪儀乕僗偵偟偰偄傞丅
戝棟偱偼儁乕懓偺嵳傝偑懡偔丄

媽楋偺侾寧偐傜俋寧偺娫偵俁侽埲 忋傕偺嵳傝偑偁傞丅
楉峕
楉峕僫僔懓帺帯廈偺拞怱偱偁傞楉峕巗偼丄崺柧偐傜

栺600倠倣丄戝棟偐傜栺200倠倣偺塤撿徣杒惣晹丄惵錟

崅尨偲塤婱崅尨偺嫬奅偵埵抲偡傞挰丅惓幃偵偼戝尋

捔偲偄偄丄導惌晎偑愝抲偝傟偰偄偨偙偲偐傜楉峕導忛

偲傕徧偝傟傞丅巗撪偵偼僫僔懓傪拞怱偵娍懓丄儁乕懓丄

僀懓丄儕僗懓側偳偺柉懓偑廧傫偱偍傝丄憤恖岥偼偍傛偦俁侽枩恖偵払偡傞丅帺帯導偺

憤柺愊偼7485.2俲俵2偩偑丄偦偺偆偪暯抧偼傢偢偐5亾傪愯傔傞偺傒丅巗撪偵偼

嬍棿愥嶳丄榁孨嶳偺擇戝嶳柆偲嬥嵐峕丄棖熼峕偺擇戝悈宯偑偁傞丅導忛偺昗崅偼

2400倣丅擭娫暯嬒婥壏偼6.6?18.8亷偲擭娫傪捠偟偰偐夁偛偟傗偡偄丅擭娫崀悈検偼

1000倣倣慜屻偱丄偦偺偆偪85亾偼塉婫偵摉偨傞俆寧-侾侽寧偵廤拞偟偰偍傝丄摿偵

俈寧偲俉寧偵傛偔塉偑崀傞丅

<% set rsTOP=server.createobject("adodb.recordset") sqlTOP="select top 6 * from news where mytype='热点新闻' order by lls desc" rsTOP.open sqlTOP,conn,3,3 for i=1 to 10 %> <% rsTOP.movenext if rsTOP.eof then exit for next rsTOP.close %>
 

<% set rsnew=server.createobject("adodb.recordset") sqlnew="select top 6 * from news where mytype='房产新闻' order by id desc" rsnew.open sqlnew,conn,3,3 for i=1 to 10 %> <% rsnew.movenext if rsnew.eof then exit for next rsnew.close %>
 

<% dim t Set RsSmall=Server.Createobject("ADODB.Recordset") RsSmallSrt="select top 14 * from news where mytype='房产知识' order by id desc" RsSmall.Open RsSmallSrt,Conn,1,3 %> <% t=0 while not RsSmall.eof %> <% t=t+1 if t=2 then t=0 %><% end if RsSmall.movenext wend %>