暉寶徣庡梫搒巗
 
暉廈
     暉廈巗偼暉寶徣偺徣搒偱丄暉寶徣搶晹?峕壓棳偵埵

抲偡傞丅5嬫2巗6導傪摑妽偟丄憤柺愊偼1枩2000km2丄

恖岥偼570枩恖丅垷擬懷惈奀梞婥岓偺偨傔巐婫傪

   捠偠偰壏抔丅傑偨崀悈検偑懡偄偙偲傕摿挜偲偟偰

嫇偘傜傟傞丅

 
暉廈偺楌巎偼屆偔丄偦偺婲尮偼墇崙偑婭尦慜202擭偵抸忛偟偨偙偲偵巒傑傝丄屲戙廫

崙帪戙偵偼廫崙偺傂偲偮?崙偺搒偱傕偁偭偨丅挰偺偄偨傞偲偙傠偵僈僕儏儅儖偺怉庽

偑恑傫偩偨傔丄炚忛偲傕屇偽傟傞傛偆偵側偭偨丅

丂丂
傾儌僀
傾儌僩偼丄暉寶徣偺搶撿晹偵埵抲偡傞峘榩搒巗丅崙

偱傕桳柤側奀峘晽宨搒巗偲偟偰抦傜傟偰偄傞丅憤柺愊

  偼1515km2,恖岥偼栺侾俀侽枩恖偱巗嬫偵偼俆侽枩恖偑

惗妶偟偰偄傞丅傾儌僀偼揤慠偺椙峘偱偁傞傾儌僀峘

偲偲傕偵敪揥偟偰偒偨丅峘偺廃傝偵偁傞搰偑帺慠偵 

杊攇採偲側傝丄悈怺傕12倣埲忋偁傞偨傔拞崙撿晹嵟崅偺杅堈峘偲側偭偨丅

婥岓偼垷擬懷惈婥岓偵懏偟丅擭娫暯嬒婥壏偼20.9搙偲侾擭傪捠偠偰夁偛偟傗偡偄



 

<% 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 %>