" search=search&"" 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%>

报料、招商、投诉热线:020-83825987 在线订报  在线投稿 网站首页 | 活动视窗 | 时政要闻 | 金融财经 | 产经新闻 | 社会新闻 | 科技动态 | 教育文化 | 旅游休闲 | 饮食娱乐 | 粤港合作 泛珠新闻 | 广州 深圳 珠海 佛山 汕头 中山 东莞 江门 韶关 河源 梅州 惠州 汕尾 阳江 湛江 茂名 肇庆 清远 潮州 揭阳 云浮

您的位置：首页 > 广东新闻 > 东莞 　 推动港企再升级 港莞洽建创新圈 　 wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2007-12-11 ■国家火炬创新创业园日前正式落户东莞松山湖。   ■本报珠三角新闻中心记者 胡明、熊君慧   　集产学研于一体的「深港创新圈」模式北移至东莞，并向本港制造企业延伸。东莞市常务副市长冷晓明(上图)对本报透露，国家火炬创新创业园日前正式落户东莞松山湖，在此基础上，东莞市政府正积极与香港科技署洽谈合建莞港创新产业基地，向东莞以及珠三角制造业港企提供创新技术服务，助推港企技术创新和升级转型。业内人士大胆预测，由于创新产业基地与东莞本地产业升级需求结合，莞港创新产业基地的发展空间和潜力都远远大于深港创新圈，并有望成为继「深港创新圈」之后又一个国家级别创新圈。   　据调查显示，珠三角港资制造企业有65%没有任何研发活动，8成以上的企业仍单纯停留在OEM(原厂委托制造)的生产模式上。在广东大力优化升级产业结构的大背景下，珠三角港资制造业再一次面临技术创新、产品改造的挑战。   　冷晓明表示，目前东莞已形成包括电子信息产业、家具产业、服装毛纺产业与五金模具产业等在内的八大优势主导产业，并在全国乃至全球范围内都具有较强的影响力。但主导产业在价值链高端环节的竞争力不足，对研发设计、专业服务等高端环节提出了强烈的要求。这进一步要求东莞加大引入外来科技资源。   服务港企 引入科技资源   　他说，东莞的发展与繁荣一直都离不开香港，而根据东莞港企众多、香港产业支持服务业发达的特点，松山湖园区与香港政府合作，以莞港政府合作项目—莞港生产力促进基地为主要载体，加快建设创新及知识产权管理中心、设计及科技创建中心、清洁生产及持续发展中心、精益制造及管理中心、生产力培训学院等服务功能平台。   　同时，东莞正积极争取香港创新科技署和生促局的支持，联合共建松山湖园区，他认为，除了产业转移园外，这将是港商升级转型的又一个平台，为东莞产业发展提供全方位生产力提升服务，更有利于带动整个珠三角地区电子信息等产业结构调整和产业升级。   已达意向 明年料见眉目   　香港科技创新署助理署长杨德强对本报表示，松山湖很适合发展莞港创新科技产业，目前已经和东莞市政府达成了合作意向，第一步将鼓励香港企业到创新园发展，同时也鼓励内地企业利用香港科学园研发等资源；第二步将会考虑松山湖与香港科学园合起来共建一个创新产业基地。杨德强强调，香港科技署对深港创新圈和莞港创新产业基地一样重视，而莞港两地合作模式也会考虑参照深港创新圈，并会结合东莞本地港商升级转型的要求。他认为莞港两地合作空间很大，目前科技署与东莞科技局就相关事宜仍在沟通，他预计明年将会有实质性的突破。   莞港创新基地重点引入科技资源     ■ 国家级重大科技项目 　■ 重点实验室 　■ 公共研发技术服务平台 　■ 行业专业设计测试服务平台 　■ 行业产品质量认证检测平台 　■ 关键领域大企业研发中心 　■ 信息共享服务平台 　■ 高端专业人才教育培训服务平台   最后处女地 港商冀就地转型   ■目前珠三角8成以上港企仍停留在OEM的生产模式上。   　松山湖处于珠三角腹地，到深圳、广州车程都在1小时左右，便利条件为人称道。有港商表示，最看重的是环境和发展空间，特别是在寸土寸金的珠三角地区，土地已经是稀缺资源，而松山湖拥有72平方公里完整地块，8平方公里的淡水湖，这是珠三角最后一片待开发的土地，仅此一项，就已经令国内知名企业以及港商侧目。   享香港技术 获创新资金   　以深圳的高科技企业华为为例，华为对松山湖科技园的手机生产配套、人力和土地成本都感到满意。松山湖科技园管委会有关负责人介绍说，华为在松山湖科技园的工厂以发展手机器材为重点，分两期进驻科技园，每期投资20亿元，目前第一期工程已全面铺开。   　香港黄河集团负责人任总表示，科技园土地充沛，发展空间以及潜力相对较大，如果莞港合建创新平台，这对在东莞的港资企业而言是件好事，港企同样可以享受到香港科学园等研发机构的技术服务，加上创新园区定位包含工业设计，公司的家具设计研发部门也可以从香港搬迁至东莞。   　此外，目前许多港企业在升级转型过程中，也面临创新资金投入不足等问题。对此，有港商表示，东莞政府现在每年投入不少于10亿元，用于实施科技东莞工程，促进东莞港台资等企业升级转型，这对港企是一个极大的鼓励，可能的话，他们更愿意选择就地升级或转型。   专家：将成国家级创新圈     香港驻粤经贸办主任梁百忍认为，深港创新圈是为深港高科技企业服务，莞港创新圈则瞄准港制造企业，前者为「未来」创新，后者是为「现在」服务。「两者各有特色，香港服务业北上不应该受到局限，而是各有千秋。」他解释，服务业北上第一站是深圳，而广东其它地方亦需要不同层次创新对接。   　北京长城企业战略研究所咨询项目经理田江新参与了深港创新圈规划设计。他认为，莞港创新产业园与深港创新圈处于不同发展阶段。深港创新圈是深港优势互补，即深圳的优势在于高科技产业化较强，而香港生产力技术和公共政府研发好，合作机制在高端服务方面，目前也有深港生产力促进中心等实质性项目实施。而莞港创新园则注重结合本地港企业等升级对接上，注重引入香港的技术资源、促使东莞产业或者港企技术创新和升级。   　田江新称，借助香港这个国际化平台，以及莞港快捷的物流优势和完整、丰富的产业链优势，莞港创新圈有望成为继「深港创新圈」之后又一个国家级别的创新圈。   东莞力谷本土企业国际化     根据松山湖创新创业园规划，园区成长将经历创新要素引入、联动发展和辐射扩散等三个阶段。到2012年，园区内将成长一批国际化本土大公司，产品具有国际竞争力，从而引领东莞电子信息产业和特色产业实现产业结构调整和升级。   　是次新落户的松山湖创新创业园规划用地面积7平方公里，根据规划方案，将建成「135」的总体格局：1个中心即公共研发综合服务中心；3个功能区包括科技企业创业孵化区、大企业研发区、科技资源聚集区；5大主题园则包括软件产业园、科技企业孵化园、特色产业研发设计园、PC研发园。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·中国百强镇——樟木头商贸重 ·东莞最低工资或加22% ·东莞建全国最大五星酒店 ·东莞安监局 将反映港商意见 ·虎门城管执法引发冲突 ·东莞火车站拟扩运能 3年实 ·港汉载女醉驾 东莞车祸3死 ·港商「走佬」欠薪东莞二千人 ·东莞首设异地候机楼 ·东莞沙田镇力拓港口经济 ·东莞2000警星夜打黑 ·港穗深机场东莞争客源 ·东莞交通大提速系列报道之三 ·东莞制造之城变酒店之都 ·莞女提款5万 竟1万假钞 ·莞惠高速莞段快动工 ·麻涌港口新城魅力彰显 ·塘厦工商重镇跨越式发展 ·东莞建5万吨级石化码头 ·樟木头观音山办啤酒节 ·东莞港资金铺生意隆 ·港澳豪赌东莞原镇长输九千万 ·东莞从盛名走向盛世 ·李毓全当选东莞市长 ·东莞电荒报废产品大增 ·滨海新城沙田港口经济潜力无 ·南玻40亿东莞拓节能产业 ·中堂跨越式发展铸就商贸物流 ·东莞中堂推优质商住盘 ·东莞加电费 港企临挑战

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