" 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 时间:2008-1-17 ■汪洋看望粤北阳山村村民。   本报珠三角新闻中心记者 赵鹏飞、刘扬、江雨馨 　中央政治局委员、广东省委书记汪洋，履新广东虽仅月余，但其提出的「解放思想」、「调查研究」，已成为各级官员和传媒口中最热门的词语。本报获悉，广东省委针对政治、经济和社会等多方面的12个重大问题，正酝酿一次大规模的调研活动，并成立了一个「省内最高规格」的调研领导小组：汪洋亲自挂帅，省长黄华华任副组长。   　在此次调研活动中，汪洋专门点名3个调研单位作主打：广东省社科院、中山大学和广东省委党校。省社科院院长梁桂全透露，广东省委目前对社科院调研的期望，主要集中在两个方向：一是广东如何解决目前已十分严重的系列问题，在落实科学发展观、构建和谐社会方面为全国探路，做出示范；二是在广东经济发展后劲日显不足的情况下，怎样全面提升自身的国际竞争力。   　据消息人士透露，广东省委此次酝酿部署的大规模调研活动，领导小组成员全为省委常委，规格之高，出人意料。其中，除汪洋、黄华华亲自率领外，另外3个成员分别为省委秘书长萧志恒、组织部长胡泽君、宣传部长林雄。而该小组办公室设在省委宣传部，由林雄出任办公室主任。   　在举国上下总结改革开放30周年经验之际、广东两会召开前后，粤省高官实践解放思想，悉数出动调研，引起了其它各省驻粤办事处的密切关注。   找问题 把好度 汪洋吁谨防调研误区   ■汪洋（前左）在粤东的汕头市进行调研。   　粤省官员集体动作的调研旋风，是在汪洋亲身「示范」下带动起来的。一个多月时间，汪洋本人先后奔赴山区清远、粤西湛江、粤东三市调研；黄华华也亲赴粤北韶关调研。此后，广东省委省政府其它高官，也都「随风而动」。   　如今，进乡村、看学校、走车间、访小区，倾听民情民意，成了粤省部级官员最为流行的调查研究方式。一方面，汪洋、黄华华、汤炳权、锺阳胜、李容根、宋海、雷于蓝等粤省高官，分头往山区及两翼地区跑，解放思想，调查研究；另一方面，珠三角发达地区的「一把手」们，也积极主动地自行揭露辖下城市的发展弊病。   　与此同时，汪洋强调，在调研过程中要防止出现「误区」。   　记者获悉，广东省委高层日前在社科界部署「解放思想」时称：在调研中，少数公务员觉得新的省委领导要求查找问题，就是否定从前的工作，觉得很委屈。该高层官员解释，调研的本意是弄清楚问题，以便正确决策。他同时传达汪洋的思想：首先，要明确「解放思想」调研活动的目的，是寻找工作中问题，但不是找责任；其次，在调研和分析问题时，要把握好一个度。   汪洋警示调研三大「误区」   1. 人人都认为有必要解放思想，但人人都认为自己的思想很解放。特别是部分领导干部，不愿意、不想去揭工作中的短处，意识不到自己思想上保守的地方，这个问题不解决，解放思想就很容易走过场。   2. 讲起解放思想振振有辞，但在实际工作中，还是着眼于上项目、抓速度。「新瓶装旧酒」，解放思想成了标签，工作思路没有变化。   3. 认识到影响科学发展的问题，但没有想到通过解放思想，来找到解决问题的办法和政策措施，没有把解放思想落到实处。   百姓心声：只盼真实惠   ■提起汪洋的看望，清远邓白芒公(左)笑得很开心。   　广东官员身体力行解放思想，纷赴各地调研。面对媒体铺天盖地的报道，普通老百姓最关心的是──官员们调查研究之后，是否能让物价降下来，让自己的生活过得更好一些。   　在广州一间公司从事财务工作的熊小姐告诉记者，对于报纸报道的省级官员频频调查研究、解放思想，她并不关心。「作为普通老百姓，我们最关心的当然是生活好不好过，物价有没有降下来。」熊小姐说，从2007年开始，广州的猪肉、花生油、面粉、汽油等价格一路上涨，令生活成本跟着不断涨。她希望官员们不要把解放思想和调查研究只当成是一种政治秀，而是能出台一些实际政策和措施，让老百姓生活得更容易。   　记者致电远在清远阳山县城的一位张先生，他也表示，有看电视新闻，知道新的省委书记到阳山农村调研过。「作为普通老百姓，我并不清楚省里的领导提的解放思想是要做什么，我们只想着什么时候可以把到阳山的路修好，让更多的老板也到阳山来办工厂，我们就有钱赚了，日子才能好起来。」   责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·朱小丹任穗书记 林雄掌粤宣 ·新劳动法咨询 港商提10质 ·黄云龙任广东省副省长 ·粤调整五地级市首脑 ·张德江近日赴京汪洋下周抵粤 ·400亿超级石化 落户广东 ·许宗衡：深港共建创新圈 ·港珠澳大桥敲定明年动工 ·南沙赢中科石化400亿项目 ·粤筹建三条大西南铁路 ·温总巡粤 为五中全会做调研 ·「十一五」末 粤总产值势超 ·珠澳深层合作 横琴或成试点 ·广东前省长梁灵光辞世 ·张德江：永远忘不了广东 ·阳江军演 176个航班取消 ·粤4000万元出口商品遭退 ·粤港边界 铁网将拆 ·佟星林木声任粤副省长 ·穗深莞构筑扫黑铁三角 ·港人内地养老 应享同等福利 ·港商向张德江黄华华进言 ·港政协委员吁粤设辅警 ·三年投资一百亿 条条大路催 ·十一．五商机之广东篇．广东 ·港珠澳大桥 香港口岸方案三 ·珠三角新政与港企出路四之三 ·粤收紧赴港澳签注审批 ·粤政府出招吸港企北迁 ·温总：深港合作将增自由度

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