<%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 时间:2006-12-12


本报珠三角新闻中心记者 何涛、刘扬

 

 CEPA促进香港与内地之间经贸往来的双向效应,正在不断显现,由广东贸促会组织的70多家广东民企老板,今明两天将在本港考察,重点了解在香港融资机制,以及希望能在港开设贸易公司,开拓国际市场的机会,包括汇丰银行在内的多家香港银行还主动要求安排接待。

 

 「我向内地的银行贷款100万元,但银行认为我的公司没有资产抵押,借钱困难重重。后来我向一家港资银行求助,他们了解我公司的运作情况后,很快就批出1,000多万元贷款。」身为广州科琳电气集团董事长的郭锡泉,多年来都是透过港资银行的信贷进行发展,深切了解港资银行对企业信贷方面的积极态度。

 

粤省冀民企「走出去」

 

 「这次考察团的行程安排得非常紧凑。」广东省贸促会副会长陈耀桓(见上图)告诉记者,在两天的行程中,他们除会见香港投资推广署、香港入境处等政府机构外,还安排了与香港四大商会接洽以及和专业人士交流(见行程表)。「无论是政府机构、商会还是企业都对粤民企此行非常热情,会见和交流行程排得很满,有银行还主动提出接待。」

 

 作为粤港交流的重要民间机构,粤方大珠三角投资贸易推广小组由广东省贸促会、广东外商投资企业协会和广东私营企业协会等机构组成。「这几年,我们一直在协助民企走出去,特别是赴港投资。」陈耀桓说,除了省政府希望民企「走出去」外,更重要的是,大多数民营企业都希望借助香港开拓国际市场。据说,广东省贸促会联合驻粤办等单位先后组织过数场赴港投资讲座,几乎场场爆满

 

港金融系统融资灵活

 

 据粤方大珠三角投资贸易推广小组一位成员介绍,民企对奔港投资兴趣颇大主要有两个原因,其一是利用香港国际贸易港的功能,「接单」和「入货」;其次,则是利用港灵活的金融系统进行融资。

 

 郭锡泉就是成功在港融资,使企业发展驶进快车道的一个典型。初时,郭锡泉只是通过他在香港的公司做进出口贸易;不久,他希望能利用自己学电力的本行做实业。但因企业正在成长期,没有实物可做抵押,而原材料、设备又很贵。正在他犯愁的时候,机会之门却向他打开。因为在港开了一间分公司,可以利用香港中小企业的信贷资金向银行贷款。第一次,他成功向星展银行借得一千万元,实现资金周转。郭锡泉的公司所用的原材料70%以上都是通过香港进口,产品则有30%经香港出口;由于主营大型变电器,设备、原材料昂贵,资金流动量大,他每年最少向香港银行贷款三到四次,每次不下千万元。「这些都是内地的银行难以做到的。」

 

港银行品种多利息低

 

 由于企业规模发展越来越大,不少内地银行也主动向郭锡泉表示愿意提供信贷,但是他还是觉得香港的银行更能帮助到他。「内地银行要抵押土地证,一要办很多手续,关卡多,耗时长;二对重要抵押物不放心」。另外,香港银行提供的品种多,利息低也是受郭锡泉青睐的一大原因。

 

广东民企到港考察行程表

 

 1212(星期二):上午

 香港的投资环境及优势

 讲者:香港投资推广署代表

如何「立足香港」在港开业

 讲者:会计业代表

香港入境签证介绍

 讲者:香港入境处代表

您的合作伙伴─法律

 讲者:香港律师会代表

 1212(星期二):下午

利用香港市场推广服务进军国际

 讲者:香港贸易发展局代表

利用香港作「走出去、引进来」的桥梁

 讲者:香港中华总商会代表

与香港企业携手开拓国际市场

 讲者:香港工业总会代表

中小企业资助计划

 讲者:工业贸易处代表

 1213(星期三):上午

企业交流与对接

 讲者:香港中华厂商联合会

 1213(星期三):下午

香港金融市场

 讲者:香港总商会代表(金融机构代表)

香港的资本市场和上市情况

 讲者:香港交易所

 

香港作跳板 粤企「走出去」

 

 作为今年广东省的重要战略,民企如何「走出去」一直备受关注。据知情人士透露,今年9月,广东省政策研究室曾邀请多名专家进行专题研讨,就如何帮助企业成功「走出去」出谋划策。其中,就有不少区域经济专家提出,可利用香港专业化服务和国际化运作经验,作为企业迈向国际的「桥头堡」。

 

 对此,广东民企老板郭锡泉也深有体会。去年,他希望在非洲尼日利亚开厂。「除了想法什么都没有,对国际惯例也不了解。」正当郭锡泉处于迷茫之际,他香港分公司的合作伙伴,包括银行方面和会计师事务所在得知他的需求后,迅速行动起来。组织一个专业人士团,在当地进行考察和谈判。结果是当地政府非常支持他们的公司,主动出钱支持,郭锡泉只需要提供技术,不仅风险降低,而且直接取得收益。

 

 「这都因为香港专业服务系统的完善。」生意赚了钱,郭锡泉很高兴,在加拿大进口的钢板出了问题,23万的变压器返销加拿大的过程中,都是他香港的专业界拍档在穿针引线。「我的企业终于能成功走出去,市场扩大了一倍。」

 

 对于粤企如去香港投资,郭锡泉认为有三点是值得注意。一是要很了解香港的投资政策;二是充分利用政府和民间组织的支持;三是多听取已在港成功投资的企业经验。

 

到港发展 两地商会帮忙

 

  今年年初,经营东莞某低压电器工厂的民企老板女士就参加过一次粤企赴港的考察团,由于感觉良好,她这次叫同在公司担任管理工作的儿子也参加。「本来叫两个儿子都来,但是要留一个在公司打理生意」。提起年初去香港,她非常开心地说,结识了一大堆香港朋友,和一家港企签定了合作协议,如果将来真的赴港发展,这笔资源是基础。

 

 不仅如此,她还同香港一家电器科技公司签定了合作协议,女士帮助该港企了解内地市场;该港企则给予女士的公司以技术方面的支持。「和港企的合作,在技术方面可以学到不少东西」。

 

 自从香港回来后,女士还时常与一帮香港朋友联络,今年夏天她还亲自招待了香港中华厂商联合会的十余个会董品尝东莞荔枝。

 

 很多港商都热情邀请女士到香港投资,特别是一些香港银行,不需抵押就能支持。对此,女士并没有心动,20年前从国企下海做低压电器生意,她一直不愁销路,可是最近铜价飞涨,生意有些不如前,新的市场诱惑固然很大。但是,对于香港市场不了解,加之「生意不是马上有得做。」所以此次,她又叫儿子随团考察。

 

 「能够深入接触香港工商界的高层,参观交易所都不是平时自己去香港能够做到的」,女士认为民企要去香港应充分利用商会、协会等民间组织,在香港工商界中打开局面。她也要求广东省贸促会从中协调,安排她和儿子和已成功在港发展的民企多交流,多学习。

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

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

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

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

>> 本类热点新闻

·佛教文化之旅 广州光孝寺启动
·川剧在广东精彩“变脸”——访川剧
·崛起的历史名城——广西百色市右江
·不一般的情人,也有权握着——同一
·「十一五」粤拟570亿投水利
·第五届泛珠论坛或游横琴岛
·第三届泛珠论坛专辑.泛珠下一步
· 陈镜开:惊人一举延续50年
·全球化呼唤 中华文化复兴
·粤媒体大幅报道魔警案

 

合作媒体

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


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