<%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-12-13


■东莞市区9成河涌受到污染。

 

 东莞在「禁摩」之后,开始「禁猪」了。就在本月初,东莞市政府的一道「禁猪令」将自己推上了社会舆论的风口浪尖。这道在当地政府部门看来只是2005年「四清理」延续的政策,受到了社会的质疑。有人甚至指责东莞市政府部门是「在乱作为、实施懒政」。对此,东莞政府有关部门在接受记者采访时,强调这项政策是结合本地经济发展水平、土地和水资源承载能力、环境保护和污染治理等现状,非一时性的「一刀切」政策,并称「禁养令」不但不会改变,还将扩大到家禽。

 

■本报珠三角新闻中心记者 陈光宗、胡明

 

 谈及这道「禁养令」就不得不提到2005年「四清理」。当时,「差、乱、脏」一度成为东莞城市环境建设的代名词。为此,20054月以及20066月,政府相继实行「四清理」(即清理违法搭建、违法用地、畜禽养殖业污染以及无证照经营)、「五整治」(即整治生态环境、整治环境卫生、整治旧村、整治农贸市场、整治「六乱」)等措施。

政策饱受社会质疑

 时至今日,特别是由于今年肉价大幅上涨,东莞很多人没经过审批就开始养猪。在此情况之下,政府计划分四步停止养猪业发展,现在再给一年的缓冲期,到200911,全市范围内均停止所有生猪养殖活动。一旦发现仍进行生猪养殖活动的场所,便会实时清理、查处,以便巩固整治成果。

 

 但该政策甫一公布,立即遭到社会质疑。有人认为这是典型的懒人施政,不符合科学发展观的要求,甚至有违行政许可法,与国务院关于稳定生猪供应等相关政策抵触。对舆论的质疑,东莞市政府回应称,「禁猪令」的首要原因是东莞环境容量日趋窘迫,不堪承受养猪业的污染。

 

不堪承受猪业污染

 

 东莞市委副书记、市长李毓全表示,从生产发展的角度来看,东莞养猪是不划算的。一头猪排放的污染负荷相当于7个至10个人排放的污染负荷。东莞现有75万头生猪,要新建一座每日处理132万吨的污水处理厂,才能有效净化处理。按照现在每吨0.8元的污水处理费计算,一年需要4亿多元污水处理费。「这对于东莞的生产发展来说,的确不是一件划算的事情。」

 

 东莞市副市长梁国英说,「禁猪令」的深层次原因是城市化进程的必然趋势和产业转移升级的需要。他表示,东莞仅2465平方公里的土地,聚集了1000多万城市人口,城市化接近80%,保留大量的养殖基地会占用宝贵的土地资源。与此同时,东莞市是以制造业为主的城市,其最大特点是工厂多、外来人口多,不养猪既可以节约土地,又可以减轻当地环境污染的治理难度。

 

 他还表示,「禁猪令」是东莞市经过深思熟虑做出的决策,暂时不会做出改变,并且还会由禁养生猪扩大到禁养家禽等,但政府会进一步做好相关配套工作,确保猪肉供应,并对猪农进行妥善安置。

 

禁养猪旨在保护东江水质

 

■东莞污水许多都流入东江。

 

 东莞市环保局局长袁绍东在接受记者采访时称,禁止养猪其中一个重要的原因,是养猪场对内河涌污染很严重。「在平时,养猪场排泄物是不会直接流入东江,但是每当下雨天,这些污染物都会全部流入运河、东江等,而养猪户大多集中在东江上游,特别是谢岗镇。这对东江水质是威胁。所以我们一定要保护好东江水。」袁绍东说。

 

 同时,作为仅占东莞经济结构0.7%的农业来说,显然不是东莞的主导产业。袁绍东表示,关于猪农的生活问题,市政府已经对一些养猪户进行了补贴及支助,并会为其转型提供就业指导,而其子女上学等教育政府也有相关政策给予解决。

 

淘汰养猪属产业流动

 

 东莞市经贸局局长陈桂明亦表示,一个城市产业流动是很正常的事情。东莞城市工业比较发达,土地日益紧缺,甚至连办公用地都少了,而养猪场一方面占用了部分土地,另一方面也污染环境。

 

 现在东莞的养殖户都没有能力处理污水,赚的是环境的钱。他说,东莞改革开放30年,付出了沉重的环境代价。近年大笔支出用于环保,都是在为过去的旧账买单。

 

 「我们没有必要为落后产业寻找继续存在的理由,养猪业的淘汰是东莞产业结构调整的必然结果。」他更指出,产业流动十分正常,和香港当年的加工贸易转移到东莞一样,现在东莞将养猪业转移出去没有什么不妥。「而且淘汰养猪业不会让我们没有肉吃,为什么要保护它?」

专家指「禁猪令」涉违法

 

■东莞养猪场没有污水处理,将猪粪等排泄物直接排入河涌。

 

 养猪是老百姓的一项经济权利,地方政府究竟是否有权擅自剥夺老百姓的这项权利?广东省社会科学院丁力教授指出,养猪业既是合法的,也是城市生活所必要的、与民生休戚相关的产业。「禁猪令」剥夺了农民选择养殖生猪的权利,一刀切的「禁猪令」更是「懒汉政府」的做法。

 

 而我国法律规定,「禁养区」内不能建设畜禽养殖场,东莞市尚有30%的区域不属于「禁养区」,东莞的「禁猪令」显然违背了「法无明文规定不可行」的公权运行规则,违背了《行政许可法》的相关规定。

不应粗暴干预

 

 但是丁力也表示,东莞政府公布「禁猪令」也有一定的合理性。寸金尺土的东莞主动放弃劳动密集型产业,释放土地资源,优先发展最有竞争力的产业,是顺应时代发展要求。只是在这一取舍过程中,政府应加强政策研究,不应通过强制性的、粗暴的行政直接干预,而应选择合适的时机,调动市场手段和资源来实现产业升级转型。

 

 对此,东莞市社科联哲学社会科学专家委员会委员李秋阳也表示,东莞现在作为一个工业制造业中心已经没有一个完整的农业体系了,比如说基本上没有种粮食,但东莞市场上并没有因为没种粮食就没饭吃。东莞现在农副产品供应主要靠外地供应,比如东莞没有养一只羊,但是到了冬季,大量的火锅羊肉很丰盛,所以应该说现在市场体系、物流配送体系的建设对物资的供应不会有很大的障碍。

 

市民表支持猪农叹无奈

 

■东莞的母亲河运河上的浮萍。

 

 对于「禁猪令」,东莞的市民也不是一面倒的反对。东莞市桥头镇居民江小清就是「禁猪令」的拥护者。她说:「我家房屋旁边有一家小型养猪场,猪粪就排到附近的小河沟里,天天闻到恶臭、看到污水横流。这些养殖户使用潲水喂养,又在监管盲区,给食品安全造成了隐患。」

 

 而从事相关行业的市民,却对此表示无奈。东莞市旺旺猪场老板、台商苏庆源表示,虽然他有些无奈,但也很理解政府的决策,毕竟城市化的进程太快,这是大势所趋。

 

 谢岗镇养猪户彭国平有着26年的养猪经历,对政府设立的「禁猪」大限,他表示实在没法接受。「为什么都要吃猪肉却不让养猪,政府在制订这项政策时有没有考虑到养猪户的利益?我们的出路何在?」

 

70生猪基地确保供应

 

  提及后年起养猪业全面退出东莞,如何保障东莞人吃肉?东莞市经贸局局长陈桂明强调,作为主管商贸流通的经贸局,最关心的是就是保障市场供应。「我可以负责任地说,尽管东莞将来一个养猪场都没有,全市猪肉供应完全没有问题。」

 

 东莞市农业局局长胡荏光称,东莞已在江西、广西、湖南、湖北以及东莞周边地区等地方认定第一批和第二批供莞生猪定点基地合计51个,年供应生猪能力达400多万头,并计划继续认定第三批供莞生猪定点基地约20个,年供应生猪能力约150万头。

 

 预计明年第一季度可建立年上市800万头以上的供莞生猪定点基地。「这样,明年供莞的生猪量即相当于全年所需生猪量的2倍以上。」胡荏光说,东莞农业部门将不定期到指定基地抽查,并对基地实行动态管理。一旦发现基地存栏或供应给东莞的生猪不合格,立即取消其供莞基地资格。

 

「禁猪令」正反意见:

 ■养猪业污染问题严重,东莞已不堪承受。

 ■养猪业属落后产业,占用宝贵土地,不划算。

 ■释放土地,有助发展具竞争力的产业。

 ■即使没有养猪场,东莞仍有足够生猪供应。

 ■养猪业的污染,比不上工业污染。

 ■政府剥夺了市民养猪的权利。

 ■涉嫌违反「法无明文规定不可行」的公权运行规则。

 ■或令生猪价格进一步飙升。

责任编辑: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
来访统计:  技术支持:中国红电子商务频道