%@LANGUAGE="VBSCRIPT"%> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_article_STRING Recordset1.Source = "SELECT * FROM register" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("proname")) If MM_valUsername <> "" Then MM_fldUserAuthorization="grade" MM_redirectLoginSuccess="../index1.asp" MM_redirectLoginFailed="../login1.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_article_STRING MM_rsUser.Source = "SELECT proname, propass" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM register WHERE proname='" & Replace(MM_valUsername,"'","''") &"' AND propass='" & Replace(Request.Form("propass"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% Dim Repeat1__numRows Repeat1__numRows = 9 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = 7 Dim Repeat3__index Repeat3__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %>
| | ||
| | 关 于 我 们 | ||
| 加 入 收 藏 | |||
| | 淘汰ODS论坛 | ||
| 相关网站
企业介绍
| |||||||||
|
泡沫行业淘汰ODS特别工作组介绍泡沫行业淘汰ODS特别工作组是中国泡沫行业淘汰消耗臭氧层物质项目的具体实施单位,负责ODS淘汰项目的组织、管理和监督等工作。 泡沫工作组成立于1998年,是由国家环保总局对外经济领导小组办公室(简称外经办)和中国塑料加工工业协会联合组织成立的,办公地点设于国家环保总局外经办三处。工作组人员除来自这两家单位以外还包括项目国内执行机构的代表及项目专家。多方代表联合办公加快了泡沫行业淘汰ODS工作的步伐,同时也提高多边基金的费用有效性和灵活性。 工作组职责:制定行业ODS年度淘汰计划;组织年度ODS削减项目和技援项目;对企业申报的项目建议书进行审查、实地考察和评估;对列入年度计划的项目组织专家和企业进行替代技术选择,编制项目实施方案;招标选择项目的采购代理、工程服务公司、咨询机构等执行项目;组织项目验收;监督和管理招标选择的采购代理、工程服务公司、咨询机构和专家合同的执行;监督项目的实施,及时协调和处理项目执行中发生的问题;向世界银行提交进度报告、项目完成报告和相关支持文件;为审计机构对项目的审计提供必要的资料和帮助等。 成员组成: 组 长:付永彬 副组长:王 旭 组 员:唐伯明 陈志洁 孟庆君 李小燕 联系方式: 电 话:010-66111413、010-66153366转5505 传 真:010-66151776 | ||||||||
| ®本网站隶属-中国塑料加工工业协会聚氨酯制品专业委员会 | |||||||||