装饰首页 - 行业动态 - 展会信息 - 装饰指南 - 名设计师 - 设计样本 - 饰家DIY - 装饰黄页 - 装修招标工程 - [关于我站]
　鹅城动态 - 广东楼市 - 异域传真 - 绝对焦点 - 楼盘软文 - 惠州名盘欣赏 - 城市建设规划焦点 - 维权焦点 - [地产人博客]
■ 惠州房地产网黄金会员服务
 　每月提供最新惠州市房地产市场调查报告＋本站网上房展展位 　　　　　　　　　　　　　　　　　　　　　　　 　　　　　[服务详情请点击]
■ 惠州房地产网白金会员服务
 　每月提供针对贵公司项目所在区域详细市场调查报告＋本站网上房展展位 　　　　　　　　　　　　　　　　　　　　　 　　[服务详情请点击]
■ 惠州房地产网钻石会员服务
 　每月提供针对贵公司项目所在区域详细市场调查报告及提供贵公司项目前期定位可行性报告＋本站网上房展展位 　　　　　 　[服务详情请点击]
　■ 惠城区2008十佳楼盘
　■ 惠阳大亚湾2008十佳楼盘
山水芳邻
　■ 惠东2008十佳楼盘
　■ 博罗2008十佳楼盘
　■ 惠州2008十佳地产企业
　■ 惠州2008年最佳策划代理公司
城市策略
中原地产顾问
建华地产顾问
世联地产顾问
华彦地产顾问
0752-2195440
0755-82211880
13556204222
0755-22162800
0755-88316550
黑马地产
众厦地产
同致行
置业国际
中孚蓝德
0755-83521863
0755-82300328
0755-83280000
0755-82350111
0752-2516747
　■ 惠州2008年最佳装饰公司上榜
星艺装饰
满堂红装饰
名匠装饰
华逸装饰
三星装饰
0752-2510249
0752-2510249
0752-2160592
0752-2115350
0752-2162001
金空间装饰
原创品味装饰
好日子装饰
华浔装饰
雅庭装饰
0752-2621818
0752-2112341
0752-2373389
0752-2153489
0752-2531601
　■ 惠州2008地产商首选广告公司
深圳蒲公英
深圳太一广告
0755-82028277
 0755-82380803
0755-82342641
0755-81940620
0755-83529126
0755-23991381
0755-83777255
0755-83185890
0755-83363005
0755-83866605

　　深圳客户中以投资为主的占了六成，不管是长线投资还是短线投资，都将会给拉动惠阳楼盘空置率上升。短线投资的商品房也要等到3年后才能卖，因为不愿装修，可能会因租不出去而空置；长线投资的商品房主要是物业租赁，但由于房东住在深圳，对出租率没有保证，而且对租赁管理也带来不便。
· 大亚湾2008年3月房地产市场调查报告 [下载]
· 大亚湾2008年2月房地产市场调查报告 [下载]
· 大亚湾2008年1月房地产市场调查报告 [下载]
· 惠阳区2008年3月房地产市场调查报告 [下载]
· 惠阳区2008年2月房地产市场调查报告 [下载]
· 惠阳区2008年1月房地产市场调查报告 [下载]

富康国际[大亚湾西区]

销售热线：5188888

响水明苑[大亚湾西区]

销售热线：5108889

海湾假日[大亚湾澳头]

销售热线： 5551166

半岛一号[淡水]

销售热线： 3771111

东方新城[淡水]

销售热线： 3777666

山水芳邻 [淡水]

销售热线： 3599888

左岸春天[惠阳区]

销售热线：3828222

润福苑[惠阳区]

销售热线：3830111

2076私享家[惠阳区]

销售热线： 3392076

　　《国务院关于解决城市低收入家庭住房困难的若干意见》（简称“24号文”）出台后，惠州房价已渐呈平抑上涨的走势，异地投资客前来惠州炒房的势头有所收敛，由此可见，“24号文”的落地对惠州楼市走势产生了政策威力。

· 惠州市2008年03月房地产市场调查报告 [下载]
· 惠州市2008年02月房地产市场调查报告 [下载]
· 惠州市2008年01月房地产市场调查报告 [下载]
· 惠州市2007年12月房地产市场调查报告 [下载]
· 惠州市2007年11月房地产市场调查报告 [下载]
· 惠州市2007年10月房地产市场调查报告 [下载]

森邻美域[惠城区]

销售热线：2581688

万林湖[惠城区]

销售热线： 2688111

格林童话[惠城区]

销售热线： 3169999

翡翠欧庭 [惠城区]

销售热线： 2321888

城市广场 [惠城区]

销售热线： 2088666

金汇.湖景花园 [惠城区]

销售热线： 2233333

颐景花园三期 [惠城区]

销售热线： 2152333

翠微园 [惠城区]

销售热线： 2799666

金山龙庭 [惠城区]

销售热线： 2530811

丽景华庭[惠东县]

销售热线： 8896688

怡景湾[惠东县]

销售热线： 8162222

丽晶花园[惠东县]

销售热线： 8769999

金河湾花园[惠东县]

销售热线： 8806999

桃花源别墅[博罗县]

销售热线： 6209666

东森华庭[博罗县]

销售热线： 6267333

榕城华庭[博罗县]

销售热线： 6630111

城市山麓[博罗县]

销售热线： 6223288
友情链接
 ·焦点房地产网 ·新浪房产家居 ·人民网房产
·TOM房产 ·搜狐房地产频道 ·中华网房产
·千龙网房产 ·21CN房产 ·大连精品楼盘网 ·易居网
·新华网房产 ·齐鲁热线房产 ·搜楼 ·杭州商铺网
·珠海地产 ·口碑网-租房 ·住宅房产信息网 ·中国房产培训网
·厦门房产联合网 ·南方网房产频道 ·中国住宅网 ·北京房产交易网
·天津房产信息网 ·雅虎房地产 ·中国房市网 ·深圳搜房网
·八闽房网 ·城市房网 ·中国房产交易网 ·265
·西子湖畔 ·我爱惠州 ·雅虎中国 ·GOOGLE
·吴江房产信息网 ·广州家居搜房网 ·惠州团购网 ·惠州生活网
·焦点装修 ·装修家居 ·家居装修 ·CCTV-交换空间
·深圳室内网 ·中国装饰网 ·我饰我家网 ·家居装修
·天涯家居装饰 ·中国室内设计 ·中国室内装饰 ·老火装饰网
·装修图满多 ·我爱我家装饰 ·装修点评网 ·装修论坛
·大装家 ·筑意中国设计 ·好易得家居网 ·东方家园
·家装预算中心 ·装修工具箱 ·珠三角地产网 ·家居团购

 

　

信息部备案信息：

粤ICP备05011488号

 惠州房地产网·版权所有
地址：大亚湾西区惠丰城12栋111
联系电话：0752-2195440
邮箱：house0752@126.com
   
<% ’’’’--------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr ’’’’自定义需要过滤的字串,用 "防" 分隔 Fy_In = "’’’’防;防and防exec防insert防select防delete防update防count防*防%防chr防mid防master防truncate防char防declare防<防>防=防|防-防_" Fy_Inf = split(Fy_In,"防") If Request.Form<>"" Then For Each Fy_Post In Request.Form For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then Response.Write "" Response.Write "非法操作！本站已经给大侠您做了如下记录↓
" Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作时间："&Now&"
" Response.Write "操作页面："&Request.ServerVariables("URL")&"
" Response.Write "提交方式：ＰＯＳＴ
" Response.Write "提交参数："&Fy_Post&"
" Response.Write "提交数据："&Request.Form(Fy_Post) Response.End End If Next Next End If If Request.QueryString<>"" Then For Each Fy_Get In Request.QueryString For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then Response.Write "" Response.Write "非法操作！本站已经给大侠您做了如下记录↓
" Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作时间："&Now&"
" Response.Write "操作页面："&Request.ServerVariables("URL")&"
" Response.Write "提交方式：ＧＥＴ
" Response.Write "提交参数："&Fy_Get&"
" Response.Write "提交数据："&Request.QueryString(Fy_Get) Response.End End If Next Next End If %> <% 'get方法提交 If Request.QueryString<>"" Then checkSql=CheckSqlStr(Request.QueryString) End If 'form提交 If Request.Form<>"" Then checkSql=CheckSqlStr(Checkstr(Request.Form)) Response.Write(Checkstr(Request.Form("Title"))&"--------++++++++=
") Response.End() End If Function CheckSqlStr(ISTR) Dim ISTR_FORM,SQL_KILL,SQL_KILL_1,SQL_KILL_2,ISTR_KILL,NO_KILL NO_KILL=0 '被过滤的个数 If ISTR="" Then Exit Function ISTR=LCase(ISTR) ISTR_FORM=ISTR SQL_KILL="'|and|exec|insert|select|delete|update|count|*|chr|mid|master|truncate|char|declare|set|;|from" 'SQL_KILL="'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare|set|;|from|=" '原版 'SQL_KILL =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" SQL_KILL_1=Split(SQL_KILL,"|") For I=0 To Ubound(SQL_KILL_1) If Instr(ISTR,SQL_KILL_1(I)) > 0 Then NO_KILL=NO_KILL+1 ISTR=Replace(ISTR,SQL_KILL_2,"") End If Next CheckSqlStr=ISTR If NO_KILL>1 Then '同时存在两个以上非法字符的时候 Response.Write "" Response.End End If End Function Function Checkstr(Str) If Isnull(Str) Then CheckStr = "" Exit Function End If Str = Replace(Str,Chr(0),"", 1, -1, 1) Str = Replace(Str, """", """, 1, -1, 1) Str = Replace(Str,"<","<", 1, -1, 1) Str = Replace(Str,">",">", 1, -1, 1) Str = Replace(Str, "script", "script", 1, -1, 0) Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0) Str = Replace(Str, "Script", "Script", 1, -1, 0) Str = Replace(Str, "script", "Script", 1, -1, 1) Str = Replace(Str, "object", "object", 1, -1, 0) Str = Replace(Str, "OBJECT", "OBJECT", 1, -1, 0) Str = Replace(Str, "Object", "Object", 1, -1, 0) Str = Replace(Str, "object", "Object", 1, -1, 1) Str = Replace(Str, "applet", "applet", 1, -1, 0) Str = Replace(Str, "APPLET", "APPLET", 1, -1, 0) Str = Replace(Str, "Applet", "Applet", 1, -1, 0) Str = Replace(Str, "applet", "Applet", 1, -1, 1) Str = Replace(Str, "[", "[") Str = Replace(Str, "]", "]") Str = Replace(Str, """", "", 1, -1, 1) Str = Replace(Str, "=", "=", 1, -1, 1) Str = Replace(Str, "'", "''", 1, -1, 1) Str = Replace(Str, "select", "select", 1, -1, 1) Str = Replace(Str, "execute", "execute", 1, -1, 1) Str = Replace(Str, "exec", "exec", 1, -1, 1) Str = Replace(Str, "join", "join", 1, -1, 1) Str = Replace(Str, "union", "union", 1, -1, 1) Str = Replace(Str, "where", "where", 1, -1, 1) Str = Replace(Str, "insert", "insert", 1, -1, 1) Str = Replace(Str, "delete", "delete", 1, -1, 1) Str = Replace(Str, "update", "update", 1, -1, 1) Str = Replace(Str, "like", "like", 1, -1, 1) Str = Replace(Str, "drop", "drop", 1, -1, 1) Str = Replace(Str, "create", "create", 1, -1, 1) Str = Replace(Str, "rename", "rename", 1, -1, 1) Str = Replace(Str, "count", "count", 1, -1, 1) Str = Replace(Str, "chr", "chr", 1, -1, 1) Str = Replace(Str, "mid", "mid", 1, -1, 1) Str = Replace(Str, "truncate", "truncate", 1, -1, 1) Str = Replace(Str, "nchar", "nchar", 1, -1, 1) Str = Replace(Str, "char", "char", 1, -1, 1) Str = Replace(Str, "alter", "alter", 1, -1, 1) Str = Replace(Str, "cast", "cast", 1, -1, 1) Str = Replace(Str, "exists", "exists", 1, -1, 1) Str = Replace(Str,Chr(13),"
", 1, -1, 1) CheckStr = Replace(Str,"'","''", 1, -1, 1) End Function '过滤掉script ‘把函数过滤掉了 Function FilterScript(byval strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp strOutput=strHTML objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "" strOutput = objRegExp.Replace(strOutput, "") 'objRegExp.Pattern = "" 'strOutput = objRegExp.Replace(strOutput, "") FilterScript = strOutput Set objRegExp = Nothing End Function FUNCTION CHECKSTR(ISTR) DIM ISTR_FORM,SQL_KILL,SQL_KILL_1,SQL_KILL_2,ISTR_KILL IF ISTR="" THEN EXIT FUNCTION ISTR=LCase(ISTR) ISTR_FORM=ISTR SQL_KILL="'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare|set|;|from|=" SQL_KILL_1=SPLIT(SQL_KILL,"|") FOR EACH SQL_KILL_2 IN SQL_KILL_1 ISTR=REPLACE(ISTR,SQL_KILL_2,"") NEXT CHECKSTR=ISTR ISTR_KILL=REPLACE(ISTR_FORM,ISTR,"") IF ISTR<>ISTR_FORM THEN RESPONSE.WRITE "" RESPONSE.END END IF END FUNCTION public static String wipeScript(String html) { String regex1 = ""; String regex2 = " href *= *[\\s\\S]*script *:"; String regex3 = " on[\\s\\S]*="; String regex4 = ""; String regex5 = ""; Pattern pat = Pattern.compile(regex1 + "|" + regex2 + "|" + regex3 + "|" + regex4 + "|" + regex5, Pattern.CASE_INSENSITIVE); Matcher m = pat.matcher(html); html = m.replaceAll(""); html = html.replaceAll(regex2, ""); // 过滤href=javascript: () 属性 html = html.replaceAll(regex3, "_disibledevent=");// 过滤其它控件的on...事件 html = html.replaceAll(regex4, ""); // 过滤iframe html = html.replaceAll(regex5, ""); // 过滤frameset return html; } %>