<%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 时间:2008-7-22


■深圳市市长许宗衡(左五)与香港新闻界高层广东访问团成员合影。

 

文:本报珠三角新闻中心记者 君慧、罗爱文 图:本报记者 潘达文

 

    深圳市市长许宗衡昨日会见香港新闻界高层广东访问团时表示,深圳方已对78万平米河套地区完成环境评估,预计开发河套对环境不会造成影响,正等待港方完成深层次环境评估。而河套发展什么产业,目前意见不一,许宗衡强调,香港政府只要有主导性意见,深圳市政府将全力支持。

 

 许宗衡介绍,围绕河套开发,深圳市政府已经先期作出环境评估,预计进行海底挖泥工程,对环境影响不大。而如何开发落马洲河套区,则曾经一度引起香港包括房地产界在内的社会各界的关注,曾经提出建设房地产、跨境工业区、金融发展区、会展中心区、大学城区等建议。

 

凡对港有利 深全力支持

 

 对此,许宗衡昨日响应称,只要有利于香港繁荣稳定的事情,有利于香港发展的事情,深圳市政府都全力支持。为此,他曾经向香港特首曾荫权提出,港府只要对河套提出主导性意见,深圳市政府一定全力支持。许宗衡还指出,「河套开发涉及的不仅是78万平米的土地开发,而且可以由河套向深港周围片区延伸,促进两地可持续发展,推动两地更紧密合作、两地要素更加便捷流动。」

 

 尽管如此,许宗衡仍表示,深方希望将河套发展成为高端科技、高附加值、低污染产业的地区,而不应该发展房地产。

 

冀拓高科技 不搞房地产

 

 在深圳湾整治过程中,形成两个河套,一个是完全没有整治的地方,就在富临大酒店后面,土地面积9万多平米,对面还有一个是11万平米。至于富临大酒店后面的9万多平米,许宗衡说:「我准备跟港区政府说,我们不做商业开发使用,建议做成一个生态化公园。我想这个设想应该能够得到理解。」

 

 记者从权威人士了解到,将河套建设成为「深港金融合作试点」的设想,得到很多深港高层人士的认同。

 

 许宗衡也透露,为促进深港金融合作,广东省、深圳市政府就两地金融合作已经在多个层面向中央有关部门做过专项汇报,争取多项深港金融合作试点,使深圳成为香港金融业辐射内地的平台。

 

建金融合作试点呼声高

 

 他还介绍,目前深港金融合作进展很好。据最新统计,港资银行在深开设营业性机构共42家,其中总行4家、分行12家、支行26家(其中3家筹建),位居内地城市榜首。许宗衡还表示,为增强海外投资者对深圳资本市场的信心,深圳市政府过去数年,已加强对金融市场的立法规管,提高上市公司质素。截止今年718日,中小企业板共有上市公司259家,市值7,745亿元,平均市盈率32.44倍。今年上半年,中小企业板新增上市公司54家,比去年同期增长46%,IPO融资额达到241亿元,比去年同期增长127%。

 

 在河套地区发展高端服务业亦是各界热议的话题,目前港资投资深圳高端服务业日趋活跃。据介绍,2007年新设港资企业占深圳全市新设外商投资企业总数的80.93%,投资服务业领域的新设港资企业占全市外商投资服务业领域的82.48%。

 

 据统计,2007年港商共投资了2,750家服务业企业,占同期新设港资企业总数的80.91%,主要集中于商业领域,如批发零售企业达到1,372家,接近同期新设港资企业的一半。此外,港商设立的科研技术服务企业883家、商务服务企业226家。

 

深港创新合作 可媲美硅谷

 

■访问团成员参观深圳地图模型。

 

 中央近期将推出CEPA(内地与港澳更紧密经贸合作关系安排)5,广东亦将对香港开放服务业,对此,深圳作何准备?许宗衡表示,深港金融合作、深港创新圈、高端服务业以及重大跨境基础设施合作,将成为未来合作四大关注点。

 

金融合作存巨大空间

 

 他表示,深港两地的金融合作,存在巨大空间。在深港创新圈方面,香港拥有教育、人才、科研机构等方面的优势,而深圳的高新技术产业可与港方产生互补。据介绍,深圳高新技术产业占工业总产值的比重达到54%,去年高新技术产业的产值7,600亿,其中拥有自主知识产权的高新技术产业产值占54%。高新技术产业产值增加值占GDP比重达32%,这三个数字在全国内地城市中名列前茅。深圳已经成为国家IT产业的基地,深港在产业、教育、科研、试验机构结合,可形成媲美硅谷、波士顿、班加罗尔等地的世界级创新地区。

 

 许宗衡透露,国家发改委近期批覆深圳成为中国内地城市中唯一一个创新型试点城市,将深港创新圈的内容正式纳入其中,表明深港创新圈再一次得到国家层面的认可。

 

 在除金融业之外的高端服务业合作方面,深圳冀望在现代物流、专门网络、管理咨询、品牌会展、高端旅游等八方面与港方展开全方位合作。重大跨境基础设施合作方面,深圳正在加快包括深港机场快线、京广深港客运专线、莲塘-香园围东部口岸在内的规划建设。此外,深圳还希望在教育、文化、环保、城市管理、公务员队伍交流学习方面,与港方展开更紧密合作。

 

港媒高层访粤汪洋今会见

 

■讲解员向访问团介绍深圳最新情况。

 

 香港媒体高层广东访问团昨日抵达深圳,由此展开三天的广东之行。本报社长张国良任访问团团长,包括无线电视、星岛日报、香港文汇报、大公报、香港商报、信报、新报、香港电台、新城电台、一国两制研究中心、有线电视、香港经济日报、亚洲电视、商业电台、明报、南华早报在内的十多家本港媒体高层参加了此次访问。

 

 昨日上午1030分,访问团抵达深圳博物馆,参观了「记忆深圳」深圳改革开放史实物资料展览。中午,深圳市市长许宗衡、副市长陈应春等在五洲宾馆会见代表团成员。此外,访问团还参观了深圳特区报业集团、华为技术有限公司。消息指, 访问团22日上午到达广州后,将会获广东省委书记汪洋等主要官员会见,下午参观广州科学城等地,23日抵达东莞参观。

 

循温总指示 助港稳物价

 

  深圳市市长许宗衡在回答本报社长张国良提问时表示,深圳与香港在经济实力、社会事业发展和法制环境、城市管理和环境保护三方面存在差距。在城市管理方面,深圳将从规划、管理、市民综合素质等三方面向香港学习,突破城市管理「短板」。

 

 他表示,在深圳28年发展中,已经借鉴很多香港的城市管理经验。深圳目前已经成为中国特大型城市。在规划、管理、市民综合素质这三方面,是未来深圳加强城市管理的重要内容,已经与香港成功进行了规划的交流。

 

 许宗衡又提到,深圳会按照总理温家宝早前视察深圳时下达的指示,协助本港稳定物价。

 

做足功课 许宗衡如数家珍

 

  许宗衡上任后曾在多个场合力推深港合作,昨日回答本港媒体高层提问时,许多深港合作的数据脱口而出,可见对于两地合作各种进展已经了然于胸。

 

 他介绍,港资企业在深圳有1.8万家,累计实际利用港资323亿美元,占外资比重70%以上。当介绍到深圳城市发展时,许宗衡说,1980年建市的时候建成区面积3平方公里,人口规模3万,经济总量1亿9千万。现在建成区规模764平方公里,常住人口861万,加上流动人口,管理规模达到1,200万,已经成为中国特大型城市,经济总量达到07年的6,765亿元,是中国第一个人均GDP突破1万美元的城市,达到10,628美元。

 

 许宗衡表示,深港关系越来越紧密,两地高层沟通越来越频繁,两地对共同关注的重大问题认识越来越一致,两地民间的友谊越来越深厚,现在进入深港两地合作史上最好时期之一。

 

近在眼前 讲解员不识「名记」

 

  访问团抵达深圳首站便是深圳博物馆。在讲解员的介绍下,大家参观了「记忆深圳」——深圳改革开放史实物资料展览。其中,当参观到邓小平两次南巡深圳图片展的时候,有关于第二次南巡著名长篇通讯《东方风来满眼春》手稿的展示,讲解员说:「《东方风来满眼春》刊载在深圳特区报上的长篇通讯,洋洋洒洒一万多言,生动地记录了邓小平199211923日在深圳的所行,所思,所想,所讲。这是由著名记者陈锡添所写。」

 

 此言一出,一行老总们不由得「哈哈」笑起来。本报社长张国良对讲解员笑着说:「陈锡添在此!」讲解员对自己不认识这位著名记者而脸上泛红。

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

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

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

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

>> 本类热点新闻

·深圳凯宾斯基酒店求售
·深圳海关缴仿真枪增7倍
·盐田港再罢工 逾万货柜滞留
·深截116辆香港走私车
·深圳大铲湾码头一期动工
·谷旺西部通道 深圳湾建商圈
·深圳「新服务」赴港产子一条
·深圳中山建通道 拟公路铁路
·深湘高速直通盐田港
·梁定邦与深圳女友照曝光
·港禁区开放 莲塘先受益
·蛇口香港客轮班次增 下周二
·环球资源深圳中心区设总部
·深圳电池厂五千人罢工
·深圳水贝全国之最 亩产六万
·华侨城进军上海撼迪斯尼
·鹏城25年规划 深港同城化
·深港都市圈 五年见雏形
·中英街图变身 历史文化地标
·深蔡屋围20亿改建金融中心
·深圳港人侄 离奇堕楼亡
·深圳中信地铁商场港推售
·深南坪快速西段通车 免收费
·租不如买 深圳楼价升不止
·珠三角主题公园恶性重迭
·天利中央广场明年中发售
·深圳巴士乱撞 2死16伤
·两地数字电视划一标准
·和黄深圳三地产项目动工
·祥利工业园招港商建基地

 

合作媒体

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


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