" 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-10 ■海关展示检获的走私货品，包括i-Phone手机。海关情报科监督冼伟新(左)及海关落马洲组指挥官常锦标讲述破案经过。   　【本报记者及珠三角新闻中心记者郑海龙，通讯员彭海红、杜海庆报道】针对私枭利用粤港两地牌车过关便捷之利，进行「蚂蚁搬家」式的走私活动，粤港海关过去12日展开一项代号「猎狼」的联合反走私行动，分别在4个陆路口岸执行25次突击截查，共拘捕27名男子，检获走私货物包括最新i-phone手机，总值逾1,600万元。一个专门使用豪华7人车暗格走私的集团在行动中瓦解，包括主脑在内的16名成员被捕。这是本年至今海关破获的第3宗同类豪华车集团走私案。   　为期12日的「猎狼行动」中，共有17辆车涉案被扣查，检获的走私货物包罗万有，包括最新的i-phone手机、手机配件、计算机硬盘、记忆卡、盗版光盘、大麻、轮胎、汽油、食品、水果及香烟等，总值超过1,600万元，涉税270余万元。   　被捕的27名男子(17至70岁)，包括有持粤港车牌的跨境司机及跟车工，还有6名双程证男子及3名非法入境男子。   交流情报 行动持续12日   　海关情报科监督冼伟新表示，在4个深港陆路口岸包括落马洲(皇岗)、文锦渡、深圳湾及沙头角管制站，单是落马洲管制站的车辆每日流量已超过3.2万架次，每小时流量2,200架次，但关卡出入境仅得一部检查车辆的X光机，每小时最多处理20架次，因而无法检查所有车辆，从而令一些走私分子伺机利用粤港两地牌车辆，包括过境巴士、货车、货柜车及私家车，甚至在豪华房车内设置暗格进行「蚂蚁搬家」式的跨境走私活动。   　粤港海关经情报交流后，认为两地税制存在差异，内地经济起飞对贵价货品需求殷切，令利用陆路两地牌车辆走私的情况日益严重，遂透过精密部署及风险管理，于上月28日开始分别于4个港深陆路口岸同步展开联合打击行动，行动及至昨日结束，成效显著。   　海关落马洲组指挥官(行动)常锦标称，在连续12日的行动中，本港海关共有7次突击截查，共拘捕25名男子，当中包括破获一个专门利用豪华7人车暗格走私的集团，拘捕包括主脑在内的16名集团成员，检获走私货物总值逾1,091万。   X光揭车内暗格藏手机   　常锦标讲述如何捣破该集团时表示，根据出关记录等情报分析，关员发现有3辆同属一间公司登记及品牌的豪华7人车，每日早、午、晚时段来回粤港两地6至9次之多，认为有可疑，乃将之列作联合行动首日截查的目标之一，结果在上月28日早上，关员先后截停3辆豪华7人车，经X光机检查，分别在车头风隔附近及车头乘客位下发现暗格，当场检获692部手机，包括最新i-phone手机及100张记忆卡。随后关员再根据线索，搜查两个分别位于沙头角禾径山路及观塘一工业大厦内的货仓，再检获另外2,432部手机、4,202件电话配件、295块手表、71,200件电子零件及142万元现金等，合部总值1,091万。   　至于检获的其余值500多万元物品，则属其它走私集团的走私货。根据记录，海关今年对上两次破获利用豪华宝马房车暗格走私的案件，分别发生在今年1月及9月，合共检获数百部手提电话。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·深圳置业 港人三变化 ·港珠澳大桥 上马有期 ·深港5年内 将增5口岸 ·港六大研发中心寻求合作 ·港珠澳大桥好事多磨终会建 ·港珠澳大桥战略大解构 ·深穗外拓货运港机场陷危机 ·普华永道增聘千人港专业界北 ·深医护人员成染爱滋高危族群 ·粤港合建世界级城镇群 ·张德江冀粤港澳合作「裂变」 ·深港合作获两大突破 ·省市一把手亮相星光熠熠 ·广深港高铁将接轨京杭 ·梅州强行炸矿两港商质疑 ·粤港启动反倾销合作机制 ·穗机场：无惧港深合作 ·承接服务外 包港企占先机 ·中央拟新政策再促深港合作 ·港珠澳大桥 明年难上马 ·中山港人：两地应常沟通 ·粤30养老机构来港拓服务 ·许宗衡提深港同城化 ·粤人勒紧裤头 东江水解港困 ·粤港千人宴 切磋谋发展 ·穗港青少年服务中心揭幕 ·深港连手发展河套 ·食品安全通报 粤港设联络员 ·粤港联席会确定20重点合作 ·梅州已炸逾200矿井

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