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


■身为香港特区政府在广东的代表,梁百忍认为,驻粤办就像一座搭建粤港经贸合作的桥梁。

 

 ■本报珠三角新闻中心记者 唐苗苗

 

 在广东投资的9万多港商,人人都有不同的身家背景和投资经历,但谈起近几年的经营路,许多港商都会竖起大拇指,由衷叹一句:「这几年,多得梁主任!」他们感激的对象,正是香港特区政府驻粤经济贸易办事处(简称「驻粤办」)主任梁百忍。5年来,无论是面对人民币升值还是劳动法新规,或是出口退税改革等一系列难题,驻粤办始终是在粤港商们最稳固的「港湾」。

 

 20027月,驻粤办刚刚成立,时任地政署官员的梁百忍被派往广州,成为回归后首个香港驻内地经贸办事处的首任主任。

 

 「5年前,我对广东很陌生,对马上要开展的工作也只能用『茫无头绪』4个字形容,而我的上司给我的指引就是:去摸索一下。」忆述起上任初期的艰辛,梁百忍颇多感慨。

 

 由于驻粤办是香港驻内地的首个经贸办事处,没有前例可循,毫无经贸工作经验的梁百忍在几经思考后,为自己定下了两个工作原则:争取在粤投资的7万多家港企的支持;不仅要面向港澳办和外经贸部门开展工作,还要走向整个广东省。

 

四处攀亲 半年访21

 

 在这两个原则的指导下,梁百忍首先用半年时间,走遍了广东21个地级市,每到一处,他都会拜访当地的市政府、港澳办、外经贸局、工商联和贸促会这「5套班子」,并参观访问当地部分港资企业和当地企业,向他们介绍驻粤办的业务并建立联系。

 

 02年底,跑完广东21个地级市回来的梁百忍开始四处联络港商,邀请他们到广州考察投资。然而不久后沙士疫情的爆发,令当时已安排好的四五个考察团,都纷纷告知他要取消行程。梁百忍怒称,「我在广州工作都不怕,你们怕什么!」无奈的是,考察团最终还是没有成行。

 

 那段时间,驻粤办刚有起色的工作都停滞下来,「那大半年什么都做不了,很苦恼。」这样的状况一直持续到广东解除疫区名称,驻粤办也迎来了考察广东的第一团香港总商会。

 

温总讲话 成工作明灯

 

 驻粤办的工作在沙士过后渐上轨道,主要是组织一些有意投资内地的港企到广东参观。但梁百忍真正明确自己的工作目标,却是因为总理温家宝的一句话。

 

 「2003629,我清楚地记得那一天」,他说,内地与香港更紧密经贸关系安排(CEPA)当天在香港签署,温总在发表讲话时提到「一国两制的意义,是在一个国家的共同利益下,发挥两制不同的好处,来为国家服务。」

 

 「听到这句话,我当时有很大的顿悟!」梁百忍体会到,香港与内地要实现合作,首先是要加强沟通了解,只有互相了解两种制度所带来的各种差异,才能发挥其产生的好处,实现为国家服务这个目标。

 

 其次,要发挥商会的作用。因为在内地很多事是政府指导的,而香港却是「小政府大市场」。商会的角色可以使这两种性质很好融合。他更体会到,粤港合作必须经历「接触、了解、互信、合作」4个阶段。

 

粤港10年:从民间私会到高层互访

 

■回归10年来,粤港合作越来越开放和多样。

 

 回首回归10年来的粤港合作,梁百忍形容是「由谨慎迈向开放」、「由民间合作为主到政府合作逐步加强」、「由商贸合作为主迈向全面合作」的过程。

 

 「回归前5年,粤港在政府层面的接触比较少」,梁百忍透露,回归时国务院曾有通告,告知内地政府部门,不可以直接与香港政府接触,所有接触一定要通过国务院港澳办的批准,目的是避免过多内地官员前往香港建立关系,对香港的发展造成压力。

 

 尽管通告的出发点很好,但也使两地政府在交往时采取过于谨慎的态度。梁百忍说,直到他到任时,广东依然有些部门不敢直接同驻粤办打交道。

 

 2002年开始,原先只由香港财政司司长、政务司司长与广东省副省长出席的粤港联席会议的规格提升了,开始由特区行政长官和广东省省长主持。回归后5年,特别是沙士过后,随着粤港经济快速发展,交往的需求增大,粤港合作开始走向开放化、多样化。

 

演讲出丑恶补普通话

 

■广东推行产业转移政策,鼓励港商向粤东粤西两翼转移。图为20073月驻粤办组织商会到粤东考察。

 

 就在上任那年秋交会期间,梁百忍获邀在一个宴会上发言。「会议前,我问过主办方要用什么语言来演讲,他们说随便,因此我没有准备演讲稿。可到了当天,在我前面发言的7位官员都用普通话演讲。看这情况,我总不能独自用粤语表达,只好硬着头皮上去,用很差的普通话水平讲了三句『我普通话讲得不好,不懂得怎么讲,非常感谢大家』,没有介绍我们的办事处,也没有介绍我们的角色,现在想起来都很惭愧。」

 

「现在只有儿子会取笑」

 

 那次以后,梁百忍明白,要更好地向广东及其它省份推销香港这个概念和平台,就必须要流利地使用内地普遍使用的语言。于是他每天坚持练习普通话,甚至要求司机和秘书只能同他讲普通话。现在梁百忍的普通话虽然还不十分标准,但已经非常的流利,他笑称「现在只有我的儿子会取笑我讲普通话。」

 

融入广州谢太太支持

 

 200641日起,驻粤办的服务范围扩展到福建、江西、广东、广西及海南五省区,梁百忍的工作量和工作压力也随之增大,每个星期至少飞两三个省份。忙碌之余,一到周末梁百忍仍尽量将时间留给家人,经常一起坐巴士、地铁或租车去短途旅行,有一次还不小心坐了一趟野鸡车。

 

 说起那次坐野鸡车的经历,梁百忍就忍俊不禁,可谓「有惊无险」。当时是周末,他们一家人打算去顺德玩,又不知怎么去,打听到的消息是,只要在广州大道上见到有写着去顺德的车,伸手一拦就可以上车了。

 

车费相差15

 

 于是一家人就这样坐上了一辆野鸡车,车费仅8元一人。上车后,发现车上的乘客越来越多,最后甚至严重超载。由于担心被交警看到查车,售票员把车窗的窗帘拉得密密实实。梁百忍的小儿子想拉开窗帘看外面的景色,还遭到喝止,一家人提心吊胆,误以为上了贼车。到达顺德后,也没看清所在位置,所有的乘客就被赶下车了。回程时他们终于找到客运站坐上正规车,车费每人23元。

 

 5年过去了,梁百忍已经完全融入了广州的生活,除了还不适应交通。「如果广州市民都遵守交通规则,这里就不会经常塞车了。」梁百忍很感谢他的太太,当初不是太太的鼓励,并且辞职随他举家北迁,他也无法在广州定下心全情投入地开展工作,「家庭真的很重要,我很感谢我的家人!」

 

「暗访」广州有惊喜

 

■驻粤办成立了投资香港服务中心,专门为有意投资香港的内地企业服务。

 

 上任5年来,梁百忍始终对自己的工作「感到很充实,很有意义。」但在5年前刚刚收到派往广州的通知时,他的第一反应却是「不去」,梁百忍笑着坦白。回到家里,太太却劝他不如先到广州去看看再做决定。于是接下来那个周末,他带领一家大小特地去了趟广州「暗访」。怎料「街道比想象的干净,市民也颇为文明,城市的发展呈现一种生机。」随后在太太的鼓励下,梁百忍决定北上任职。

 

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

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

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

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

>> 本类热点新闻

·深圳置业 港人三变化
·港珠澳大桥 上马有期
·深港5年内 将增5口岸
·港六大研发中心寻求合作
·港珠澳大桥战略大解构
·港珠澳大桥好事多磨终会建
·深穗外拓货运港机场陷危机
·普华永道增聘千人港专业界北
·深医护人员成染爱滋高危族群
·张德江冀粤港澳合作「裂变」
·粤港合建世界级城镇群
·粤港启动反倾销合作机制
·深港合作获两大突破
·穗机场:无惧港深合作
·承接服务外 包港企占先机
·梅州强行炸矿两港商质疑
·中央拟新政策再促深港合作
·广深港高铁将接轨京杭
·粤30养老机构来港拓服务
·省市一把手亮相星光熠熠
·中山港人:两地应常沟通
·港珠澳大桥 明年难上马
·食品安全通报 粤港设联络员
·粤港联席会确定20重点合作
·许宗衡提深港同城化
·深港连手发展河套
·粤千五人商团 今在港招商
·粤港首次联办经贸交流会
·粤港千人宴 切磋谋发展
·东莞制造香港设计将创新模式

 

合作媒体

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


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