<% Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next RemoveHTML=strHTML Set objRegExp = Nothing set Matches=nothing End Function Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function Public Function Replacehtml(Textstr) Dim Str,re Str=Textstr Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(.[^>]*)>" Str=re.Replace(Str, "") Set Re=Nothing Replacehtml=Str End Function function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") nohtml=str set re=nothing end function %> 专题_2010年全国节能宣传周：节能攻坚 全民行动
中国节能环保网 >> 环保 >> 2010环保专题 >> 2010年全国节能宣传周：节能攻坚 全民行动
 
 
 
 
 
2010年是“十一五”规划的最后一年，也是实现“十一五”节能减排目标的决战之年。为了营造良好的社会氛围，打好节能减排攻坚战，推动建设资源节约型、环境友好型社会，经研究，定于今年6月12日至18日，由国家发展改革委等14部门联合举办2010年全国节能宣传周活动。

各部门要围绕“节能攻坚、全民行动”主题，举办政府行动、企业行动、社区行动等针对不同群体的宣传活动。节能宣传周期间，各级机关事务管理部门要积极推进公共机构资源节约和循环利用，开展创建节水型单位、使用环保再生纸、抵制商品过度包装等专项活动，充分发挥政府机关的带头作用。各级教育行政部门要动员各类学校开展“校园低碳行动”，让每一个学生都参与到行动中来，养成节约资源的良好习惯。

节能宣传周期间，企业、机关、学校、社区、军营等要把倡导节能的生产、生活方式和消费模式作为重点，充分运用广播、电视、报纸等媒体及网络、手机等信息平台，广泛宣传节约能源、提高能效的重要性，形成更加浓厚的节能减排社会氛围。
节 能 小 攻 略
 
关掉多余的电灯
 
及时关掉电脑
 
自备购物袋
 
多乘公交车
 
打开一扇窗
 
挂根晾衣绳
 
 
 
 
各地积极开展节能宣传周活动
<%set rs=server.createobject("adodb.recordset") sql="select * from news where tags like '节能宣传周' or title like '节能宣传周' order by newsid desc" rs.open sql,conn,1,1 if rs.eof then response.write"暂无最新资讯信息
" else do while not rs.eof if rs("color")<>"不选择" then dyl="" dyl1="" else dyl="" dyl1="" end if set rsd=server.CreateObject("adodb.recordset") sql="select type from newstype1 where typeid="&rs("sortid")&"" rsd.open sql,conn,1,1 if not rsd.eof then zd1=rsd("type") end if %>
[ <% response.write""&zd1&""%> ] <% response.write"·"&dyl&""&rs("title")&""&dyl1&"
"%>		 (<%=year(rs("dateandtime"))%>--<%=month(rs("dateandtime"))%>)
<%rs.movenext loop end if %>
节能宣传周的由来及历届主题
全国节能宣传周活动是在1990年国务院第六次节能办公会议上确定的。从1991年开始，全国节能宣传周活动每年举办。鉴于全国性的缺电状况，2004年全国节能宣传周活动由原来的11月改为6月举行，目的是在夏季用电高峰到来之前，形成强大的宣传声势，唤起人们的节约意识。

全国节能宣传周经历十几年的发展与完善，已经发展为由国家发展与改革委员会、教育部、科学技术部、国家环境保护总局、国家广播电影电视总局、中华全国总工会、共青团中央七大部委联合主办，在社会上形成强大的影响力。每届全国节能宣传周都会有其特有的宣传主题与宣传口号，并且结合该主题在全国各地开展各项不同的活动，旨在不断地增强全国人民的“资源意识”、“节能意识”和“环境意识”。
1991年时任中共中央总书记江泽民为节能宣传周活动的题词:“节约能源、保护环境、造福子孙”。
1996年全国节能宣传周活动主题“综合利用资源，促进经济增长方式转变和可持续发展”。
1997年全国节能宣传周活动主题“依法用能，提高能效”。
1998年全国节能宣传周活动主题“依法用能，提高能效”。
1999年全国节能宣传周活动主题“依法节能、节约增效”。
2000年全国节能宣传周活动主题“依法节能，节约增效”。
2001年全国节能宣传周活动主题“节约能源，持续发展”。
2002年全国节能宣传周活动主题“依法节能，持续发展”。
2003年全国节能宣传周活动主题“节能与全面建设小康社会”。
2004年全国节能宣传周活动主题“节约用电，缓解瓶颈制约”。
2005年全国节能宣传周活动主题“全民动员，共建节能型社会”。
2006年全国节能宣传周活动主题“节约能源，从我做起”。
2007年全国节能宣传周活动主题“节能减排、科学发展”。
2008年全国节能宣传周活动主题“依法节能，全民行动”。
2009年全国节能宣传周活动主题“推广使用节能产品，促进扩大消费需求”。
限 塑 令
“限塑令”简介
“限塑令”的由来
“限塑令”的实施
“限塑令”的影响
“限塑令”问答
节约用水
节水的方法
节约用水小窍门
节水的好经验
节约用水的好习惯
日常用水浪费现象