" 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-11-16 ■因限制提取现金，深圳部分交易量较大的24小时提款机变得「名不副实」。   　【本报珠三角新闻中心记者郑海龙、李昌鸿深圳15日电】日前，深圳多家商业银行对储户提现设限，个人提取现金每天不超过3万元，企业不超过10万元。据银行界人士透露，此项措施的主要目的，在于打击地下热钱过境非法炒港股。据了解，深圳情况十分特殊，今年前9个月，深圳的现金净投放竟占全国近一半。其中不少钱，通过地下渠道套汇，到港炒股。本报记者采访多名知情人士，了解到炒港股的地下热钱过港至少有三个途径。但除了地下钱庄等需要现金交易的途径可能受到银行提现限制的影响外，其它似乎不受影响。     据人民银行深圳中心支行日前公布的数据显示，以今年前9个月为例，深圳的现金净投放已占全国近一半。有银行人士告诉记者，深圳出现如此大的现金投放，除了正常的消费之外，也混杂了相当多的利用大额提现来进行走私、洗钱及赴港炒股的炒家。而正是港股直通车的消息，引诱众多深圳以外甚至北京、上海等地的炒家从异地存款，然后在深圳提现并取道香港进行炒股。   资金透过地下钱庄输港   　由于内地外汇有一定的管理制度，故内地炒家不能将资金直接汇进香港证券公司的账户。而香港的证券公司为能够拉拢到内地的客户。纷纷在内地开办了内地分公司。   　有知情者透露，这些公司鲜有不涉违规将内地热钱走地下渠道赴港炒股的。然而有渠道找到地下钱庄者毕竟只是少数，更多的人则是通过自己携带或找朋友自由兑换的方式，将大量的内地热钱变相带往香港。其热门程度甚至使一些内地旅行社在深圳媒体上更以「利用市场的愚蠢，进行有规律的投资」等语，招徕内地还在观望的炒家赴港，向证券公司进行相关咨询。种种一切表明，似乎地下热钱一直都在源源不断的涌进香港，但究竟有多少还是个未知数。   　据透露，此前炒家如想通过地下钱庄经营港股的话，首先要将现金交付给地下钱庄（经济人），取得汇款的授权密码；然后钱庄经纪会通过电话、传真或者电子邮件将信息通知香港的同伙；接着炒家赴香港后，可以找到接受钱庄汇款的联络点，并通过汇款授权密码取得现金。   直接携带大量外币过境   　同时，另外一种更「直接」的做法是携巨款赴港炒股。无论那里的股民，将钱存进银行，再按照规定限量在深圳银行或者一些地下兑换点兑换成外币，然后携带大量的外币直接大摇大摆地进入香港。由于外币面额或者价值较大，故携带体积小，风险也同样减少。而海关在进行监管时，按照世界通行标准抽检比例并不是很高，故携带大量现金进港的成功率相当高。   　据深圳海关有关工作人员也证实，今年以来该关查获的违规携带现金过境香港的情况出现了增长。   将资金交在港可靠人选   　还有一种比较常见的携热钱进港的方式，是炒家通过朋友关系找到香港的可靠人选，先打一笔现金或转帐给该人选的内地账户，然后只身赴港后由该人选支付同等价值的外币。该类做法与地下钱庄比较相似，只是把钱庄在链条中的位置更换成具体的人，使得过程更加方便和快捷。   大量地下热钱入境 港股风险骤增   ■不到晚上10点，已经被取空的提款机上的屏幕已经无法出现「取现」的选择键。   　【本报珠三角新闻中心记者郑海龙、李昌鸿深圳15日电】深圳银行业人士表示，银行限制提现或能达到打击境内资金通过地下金融非法输港的效果。而该措施的实施也已取得了一定的成效。但有经济专家表示，该限制的效果并不明显，影响只是现金供应的时间。而大量地下热钱涌进香港股市，势必会引发香港股市的震荡和加剧风险。   　内地股市在持续了近两年高涨后，近期出现强烈波动震荡，炒股风险加大。一些境内的专业炒家于是开始重新寻找新的目标，相对稳定的香港股市成为他们的试点战场。8月份内地传出以天津作试点，允许境内居民投资港股的消息引发海外和内地投机资金迅猛地涌进香港，令港股持续大幅上扬。港股在两个多月的时间，最高涨幅达50%。这就加速推动大量机构和个人在深圳大肆提现，导致大量的热钱再涌进香港，刺激了大量热钱涌港的频率。   专家料限提效果不明显   　目前，在深圳银行实施柜台和ATM同一账户的提款限制。不过，一些金融专家表示，该措施对打击地下热钱涌港有一定作用，但效果并不一定十分明显，他们可以通过分批提现和网上转账同样可以达到目的，只是在现金供应的时间上受到了限制而已。   炒家增开银行户口应对   　【本报珠三角新闻中心记者郑海龙、李昌鸿深圳15日电】内地银行提现限制刚一出台，已经引得众多媒体关注。就在大家都在关注此举的利弊时，已有部分炒家「研究」出相应的策略。有部分股民表示，应对银行取款限制只需在银行内多开几个户口，然后把钱分批转进相应的户口，这样即可以在短时间内凑集大量的现金。「如果一天内想筹集30万就开10个。想筹集300万就开100个，自己的名字不够就用亲戚的。反正方法有的是。」   　一名李姓股民在接受记者采访时表示，他早在几个月前就已经在香港开了炒股户口。虽然现在还没有正式运作。「但是只要有好的机会，我一定要投资的。可以直接通过银行转帐就可以了。只是正规的途径要多点费用而已。」   内地客易开设港股账户   　在香港证券公司开户需要几个过程。首先是居民地址证明，香港证监会要求港股投资者必须提供现居住地址证明(三个月有效)，以此保证投资者能够收到证券公司的邮寄资料；其次是提供身份证复印件；第三是签署开户文件，用户在证券公司职员见证下填写个人基本数据并签字；最后是公司将数据送达用户。不过内地居民开户似乎更简单，开户者在香港只需备齐护照证件，或是通行证加身份证，附带一张能够证明户主常住地的水电缴费单，就可以在香港任何一家银行或证券行开设港股账户。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·港式商场管理 进军深圳 ·全球八分一手机产自深圳 ·深地铁延长 龙华将成华南枢 ·美容瘦身 港企北伐 ·李嘉诚：人生要有毅力心力 ·招商17旅社注中旅国际 ·碧水银湾新城，以智慧建筑梦 ·茂业掀东门减价战 ·刘鸿儒忧股市被边缘化 ·家乐福入驻香缤广场 ·华强北主打电子 港人有优势 ·合和30亿 攻花都住宅 ·神州亮点．安利中国：无法复 ·广交会「举牌」 海归派抢饭 ·「三高」港企临逼迁 ·港企突围 转独资厂 ·港商攻粤猫经济 年赚数亿只 ·港资星际娱场澳门争霸 ·功能性饮品料年收百亿 ·穗KTV业忧「灭顶之灾」 ·珠三角港银腹背受敌 ·台企顺德发展农业最快 ·珠三角港台企影响难估算 ·永亨银行广州分行获批 ·龙岗天安数码新城奠基 ·第98届广交会10月15日 ·深圳重点推介化工园区 ·南丰北上掠地7.5亿夺穗地 ·600纺企织交会谋出路 ·千名港商界翘楚汇聚广州

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