<%MDBname="news"%> <% 'on error resume next set conn=server.createobject("ADODB.CONNECTION") 'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(""&MDBpath&"../databases/data/"&MDBname&".asp") '如果你的服务器采用较老版本Access驱动,请用下面连接方法 connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&MDBpath&"../databases/data/"&MDBname&".asp") conn.open connstr %> <% newshu=2 '每个分类显示最新文章数 toplen=10 toplen_wz=13 chalen=2 search=search&"
" search=search&"

" search=search&"" search=search&"" search=search&"" set rs=server.CreateObject("ADODB.RecordSet") set rs_info=server.CreateObject("ADODB.RecordSet") set rs_yl=server.CreateObject("ADODB.RecordSet") set rs_t=server.CreateObject("ADODB.RecordSet") function Title(content) if content<>"" then Title=content Title=replace(Title,"[加粗]","") Title=replace(Title,"[倾斜]","") Title=replace(Title,"[下划线]","") Title=replace(Title,"[删除线]","") if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" Title=replace(Title,"[红色]","") Title=replace(Title,"[蓝色]","") Title=replace(Title,"[绿色]","") Title=replace(Title,"[紫色]","") Title=replace(Title,"[酱色]","") Title=replace(Title,"[橙色]","") if instr(1,Title,"0 then Title=Title+"" Title=replace(Title,"[建议]","[建议]") Title=replace(Title,"[注意]","[注意]") Title=replace(Title,"[下载]","[下载]") Title=replace(Title,"[公告]","[公告]") Title=replace(Title,"[转载]","[转载]") Title=replace(Title,"[焦点]","[焦点]") Title=replace(Title,"[社会]","[社会]") Title=replace(Title,"[推荐]","[推荐]") Title=replace(Title,"[原创]","[原创]") end if End function function Site_Link(showType,showNum) dim link_i,link_ii link_i=0 link=0 if showType=1 then sql="select top "&showNum&" * from SiteLink where isLogo=1 order by DateTime" Rs.open sql,conn,1,1 if not(Rs.eof and Rs.bof) then do while not Rs.eof Site_Link = Site_Link & ""&vbcrlf link = link + 2 if link mod 6 =1 then Site_Link=Site_Link&"
" end if Rs.movenext loop end if rs.close else sql="select top "&showNum&" * from SiteLink where isLogo=0 order by DateTime" Rs.open sql,conn,1,1 if not(Rs.eof and Rs.bof) then do while not Rs.eof Site_Link = Site_Link & ""&rs("mySiteName")&""& vbcrlf link_i = link_i + 1 if link_i mod 8 =0 then Site_Link=Site_Link&"
" end if Rs.movenext loop end if rs.close end if end function strSite_Link_Text=Site_Link(0,8) strSite_Link_Logo=Site_Link(1,24) i=0 sql="select top 30 title,id,dj,date from info where date>Now()-7 order by hits desc" rs.open sql,conn,1,1 if rs.eof then top="还没有文章" else do while not rs.eof filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"
" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen_wz)&"" else titley=rs("Title") end if end if if rs("dj")=6 then Txtop=Txtop&"·"&Title(titley)&"
" else Txtop=Txtop&"·"&Title(titley)&"
" end if i=i+1 if i>=30 then exit do rs.movenext loop end if rs.close '今日导读开始 i=0 sql="select top 12 id,title,tid,date from info order by date desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有文章" else for i=1 to 12 if rs.eof then exit for rs_t.open "select * from infotype where id="&rs("tid"),conn,1,1 if not rs_t.EOF then TN=split(rs_t("tname"),"|") end if rs_t.close filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) datetime=year(rs("date"))&"_"&month(rs("date"))&"_"&day(rs("date"))'时间格式:年/月/日 datetime1=month(rs("date"))&"/"&day(rs("date"))'时间格式:月/日 '今日导读标题断行开始 if len(rs("Title"))>17 then titley=left(rs("Title"),17)&"..." else titley=rs("Title") end if '今日导读标题断行结束 infolist=infolist&""&lm&"·"&Title(titley)&"
" rs.movenext next end if rs.close '今日导读结束 rs2=conn.execute("select count(*) from info where year(date)&month(date)&day(date)=year(date())&month(date())&day(date())") shuinfo=rs2(0) Dim list_4(20) Dim list_5(20) Dim list_6(20) sql="select * from specialx where tj=1 and spics<>''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof kk=kk+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_4(kk)=""&SSY_name&"
"&rs("introduce")&"" list_5(kk)="" rs.MoveNext loop end if rs.close sql="select * from specialx where tj=1 and spics=''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof tt=tt+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_6(tt)=""&SSY_name&"" rs.MoveNext loop end if rs.close rs.open "select * from infotype ",conn,1,1 if not rs.eof then ts=rs("ts") TN=split(rs("tname"),"|") TI=split(rs("ts"), ",") for i = 0 to ubound(TN)-1 if i=ubound(TN)-2 and ubound(TN)>1 then TTY_id=TI(i) TTY_name=TN(i) end if all_type_top_id=TI(i) all_type_name=TN(i) thistype=thistype & "-> "&TN(i)&"" thistitle=thistitle & " - "&TN(i)&"" next end if rs.close i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then image="还没有图片文章" else do while not rs.eof if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"
" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen)&"" else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then image=image&"" else image=image&"" end if pic=rs("pic") pic=Replace(pic, "../../", "") image=image& "
"&titley&"
" if i=6 then exit do rs.movenext loop end if rs.close '公告开始 sql="select top 1 id,newsname,addtime,newsnote from Announce order by addtime desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有公告" else do while not rs.eof Announce=Announce&""&rs("newsnote")&"["&rs("addtime")&"]
" rs.movenext loop end if rs.close '图文混排开始 i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then DefaultPic="还没有图片文章" else do while not rs.eof infoy=left(rs("info"),108)&"..." if instr(rs("Title"),"0 then if len(rs("Title"))>10 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"" end if else if len(rs("Title"))>1 then titley=left(rs("Title"),16)&"..." else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then DefaultPic=DefaultPic&"" else DefaultPic=DefaultPic&"" end if pic=rs("pic") pic=Replace(pic, "../", "") DefaultPic=DefaultPic&"
"&Titley&"

  "&infoy&"[详细报道]" if i>=1 then exit do rs.movenext loop end if rs.close '图文混排结束 list=list&"" rs.open "select * from infotype where tj=1 order by id",conn,1,1 if NOT rs.EOF then allshu=rs.recordcount Dim list_1(20) Dim list_2(20) Dim list_3(20) do while NOT rs.EOF ii=ii+1 list=list&""&split(rs("tname"),"|")(rs("tj")-1)&"|" list_1(ii)=""&split(rs("tname"),"|")(rs("tj")-1)&"" list_2(ii)="

更多内容 ...
" i=0 sqqq_yl="" sql_yl="select * from infotype where ts like '"&rs("ts")&"%'" rs_yl.open sql_yl,conn,1,1 if not rs_yl.eof then do while not rs_yl.eof sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&"" rs_yl.MoveNext loop end if rs_yl.close rs_info.open "select id,title,dj,date from info where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1 if NOT rs_info.EOF then do while not rs_info.eof fileming=year(rs_info("date"))&month(rs_info("date"))&day(rs_info("date"))&hour(rs_info("date"))&minute(rs_info("date"))&second(rs_info("date")) if instr(rs_info("Title"),"0 then chalen1=chalen+20 if len(rs_info("Title"))>chalen1 then titlex=left(rs_info("Title"),chalen1)&""&"..." else titlex=rs_info("Title")&"" end if else if len(rs_info("Title"))>chalen then titlex=left(rs_info("Title"),chalen)&"..." else titlex=rs_info("Title") end if end if if rs_info("dj")=6 then list_3(ii)=list_3(ii)&"["&split(rs("tname"),"|")(rs("tj")-1)&"]"&Title(titlex)&""&datetime1&"
" else list_3(ii)=list_3(ii)&"["&split(rs("tname"),"|")(rs("tj")-1)&"]"&Title(titlex)&""&datetime1&"
" end if i=i+1 if i>=newshu then exit do rs_info.movenext loop end if rs_info.close rs.MoveNext loop end if rs.close set rs=nothing set rs_yl=nothing set rs_info=nothing conn.close set conn=nothing%> 香港文汇报珠三角新闻网_社科院蓝皮书: 穗深楼价难言降

您的位置:首页 > 综合新闻 > 产经新闻

 

社科院蓝皮书: 穗深楼价难言降

 

wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2007-4-28


■虽然今年全国整体楼市升势有望放缓,但穗深两地楼价预料仍稳中有升。图为深圳香蜜湖一楼盘开售吸引众多市民参观。数据图片

 

 中国社科院昨日发布2007年房地产蓝皮书,多位专家认为,近年以来内地较快的城市房价涨幅有可能持续下降,整体房价涨幅有望回落到5%以下。但广东两大城市广州和深圳的房价将依然高企,稳中有升仍然是主旋律。中原、美联两大港资地产中介均看好楼价,美联更认为到今年底,深圳房价涨20%「将不会有很大问题」。 ■本报记者 海岩、君慧、陈悦、实习记者 罗冬凯北京、深圳、广州联机报道

 

「因为深圳房价在第一季度的涨幅就达到了10%左右,而未来几个季度很难看到房价下跌的迹象,因此5%的涨幅是不太可能的。」美联物业(深圳)总经理王书权(1)对本报记者表示。港台及外籍人士在深圳置业,也是深圳不少豪宅受到追捧的原因。

 

涨幅惊人 东海每平万七

 

 如台湾、韩国人在深圳相对喜欢购买豪宅,一般多选择华侨城、香蜜湖等地区。以东海花园为例,其均价在17,000/平方米,坐落于福田区,涨幅惊人。而香港人则一般选择小户型房屋,地点主要在罗湖关口、皇岗口岸附近。以坐落于福田区的皇御苑为例,其均价在12,000/平方米。

 

 过去4年,深圳市每年计划供应的住房用地都在1平方公里左右,今年为压抑楼价,计划供应2.1平方公里,大幅增加了房地产用地的供应量。但深圳中原地产总经理李耀智(2)预测,此举对今年楼价不会产生明显影响。而受去年宏观调控影响,许多发展商推迟推新盘,今年下半年将有较多楼盘推出,预计面积比去年增加45成,普通住宅楼价上涨幅度为8%10%,豪宅则高达15%20%

 

供应增加 楼市影响甚微

 

 李耀智表示,住宅用地从拍卖到规划、建设,起码需要23年的时间推向市场,因此增加住房用地面积在今年内难以对楼市产生明显影响。

 对于二手房租金相比于房价较为平稳这个问题,李耀智认为,二手房租金的变化于房价相比会显得滞后,因为一般出租都会有一个时间段,在此时间段内租金不会发生太大变化,并且租金受供求关系影响较大。

 

深圳楼价高企原因:

 

深圳经济快速发展,为商品住宅价格上涨提供前提条件。

政府近年对土地供给采取紧缩措施,新增供应减少也导致销售面积下降,导致供求矛盾加剧,促使房价快速上涨。

豪宅的大量推出,很大程度上拉高全市商品住宅价格。

房价节节攀升,炒房行为越来越多,房价因此被拉高。

 

与官唱反调 穗地产界看涨

 

■深圳豪宅观澜湖受到港人热捧,每间售价逾千万元。

 

 【本报珠三角新闻中心记者陈悦广州27日电】近月来广州楼价成为内地媒体关注焦点,事关市长张广宁公开誓言要压抑楼价涨幅,其次当局公布3月份楼价下跌却与国家统计局数据不符,如此楼市迷局,让一般老百姓很难判断广州楼价的涨跌前景。

 

 本报记者了解到,羊城三大地产中介行对五一黄金周楼市皆持「看涨」预测。

 

 合富辉煌首席市场分析师黎文江表示,根据公司最新的消费者调查数据显示,近期被调查的潜在客户中,超过八成表示有计划在「五.一」期间购房,反映消费者置业信心仍然强劲。调查还显示,改善居住环境仍为目前购房者置业的主要动机,约60%的潜在消费者属二次或以上购房。至于房价攀升对潜在消费者的置业影响,黎文江指出,有30%的主流置业客户选择「减少面积,降低房间数」来控制总价。有28%的主流置业客户认为「影响不大」,而接近20%的主流置业客户表示会「转向购买其它区域或城郊房子」。

 

六成潜在买家看好楼市

 

 黎文江表示,对未来楼价走势的预期方面,接近六成潜在消费者认为未来楼价仍会上升。他称,「五一」黄金周中心组团的产品供应价格将主要集中在7,000-9,000/平方米,2,500/平方米以下的楼盘在中心组团基本绝迹,同时,10,000/平方米以上产品供应明显增多,显示整体市场价格仍在走高。

 

深圳购楼客 三成短炒

 

 【本报珠三角新闻中心记者熊君慧、实习记者罗冬凯27日电】深圳去年置业者中有超过30%在取得产权证后半年内转手,被市场视为短期炒房客。而深圳中原地产总经理李耀智则表示,预计今年炒房客比例将比去年大幅增加,预计增幅达20%30%

 

 深圳社会科学院公布《深圳蓝皮书:中国深圳发展报告(2007) 》称,深圳登记在册的产权人总量为109.5万人次,其中只拥有一套住房的产权人占87.39%,住房以拥有自住为主。但从住房转手时间看,取得产权证后半年内就转手的住房占住房总套数的30.31%,而取得产权证后3年及3年以上转手的住房占住房总套数的28.11%。专家分析,在半年内转手的住房的短期投机行为比重超过30%,值得警惕和重视。

 

三个月转手 获利逾一成

 

 「去年炒房者比例不超过10%,但今年开年,就感觉到投资炒房的客户明显增多。加之今年股市利好,经济环境畅旺,很多人从股票基金获利的资金投入房地产中,希望转移风险。」李耀智说,「很多客人明确告诉我们,买入之后两三月就挂牌出手,价格升幅都在10%以上。」

责任编辑:cnred 文章页数第[1]页 

页面功能 【我来说两句】【字体: 】【打印】 【关闭

相 关 连 接
·还没有相关文章
网 友 评 论
·还没有相关的评论!
发 表 评 论
您的大名: (点击这里注册)
友情提醒:评论请限制在100字以内,有长篇大论欢迎到论坛发表:)
 

综合新闻|广东新闻|专题新闻

>> 本类热点新闻

·港美容业趁乱抢先机
·南方电网总经理升任电监会副
·「好工」人力足 玩具厂闹人
·中化伙格力珠海建石化物流
·揭阳玉器节树「玉都」形象
·神州创富.港裁缝店深圳穿针
·比亚迪F3车销大马逾三千辆
·东门人财两旺 一铺难求
·联邦快递抢滩华南 珠三角新
·黄埔海关延企业补税期限
·神州创富.西餐厅北上 须严
·银河星际酒店澳门将开幕
·河北白沟办箱包服装节
·港珠澳桥沿线地产热
·徐福记传2次赴港上市遭拒
·雅居乐最快年底上市聆讯
·楼市百日宏调之二广州篇.广
·和黄东莞闲置地被罚7915
·凉茶申遗争议有望平息
·内地豪客 炒高濠江楼价
·东莞厂家面临开三停四
·120港人看楼团赴中山
·白云机场拟投177亿扩建
·华尔街大亨横琴寻商机
·炎夏临 电荒难解 粤港企
·横琴:生逢其时未逢其盛
·粤房价上半年涨9%统计局析
·深圳住博会迁新馆举行
·和黄西城都荟引入乐宾百货
·广州催谷国际名牌中心

 

合作媒体

合作及广告联系电话: 020-83825987


文汇报简介 | 广告服务 | 读者联谊 | 在线订报 | 在线投稿 | 站内公告 | 设为首页 | 收藏本站
新闻中心地址:广州市沿江中路323号临江国际大厦15楼 电话:020-83825987  传真:020-83817466
网管信箱:webmaster@wwpprd.com  编辑信箱:editor@wwpprd.com
香港文汇报珠三角新闻网 版权所有©Copyright 2004 www.wwpprd.com
来访统计:  技术支持:中国红电子商务频道