<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_wssl_STRING MM_editTable = "liuyan" MM_editRedirectUrl = "tijiaocg.asp" MM_fieldsStr = "subject|value|author|value|email|value|content|value" MM_columnsStr = "subject|',none,''|author|',none,''|email|',none,''|content|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> 辽宁明玉-公司简介
 

 
    公司简介

                

    电气化始终是人类社会进步与发展的标志。随着中国经济强劲的发展势头。各种电气设备越来越多地步入国民经济和人民生活的各个领域,同时由于电气原因而引发的火灾也呈上升趋势。据消防部门统计,城市因电气原因引发的火灾数量在各类火灾事故中高居首位,约占火灾总数的50%,所造成的损失占火灾损失的60%以上,给国家和人民生命财产造成严重威胁和重大损失。建国以来,特别是国家《消防法》颁布之后,我国的消防事业有了突飞猛进的发展。电气防火工作也随着消防法规的日臻完善和消防技术水平的提升以及消防监管力度的不断增强而得以大幅提高,但是由于电气火灾隐患具有一定的隐蔽性、潜伏期、检测要求专业化程度高、技术手段先进等特点,需要建立一套科学、准确 、可操作的电气消防安全检测方法、手段和法规,并成立相应的专业检测机构。在消防部门的监管指导下,采用国际先进的高新技术依据热辐射、声发射、电磁发射等物理现象对电气设施进行全方位量化检测,从而更加全面科学、准确的反映电气火灾的存在、危险程度以及准确位置。并及时提出整改措施,达到消除隐患避免火灾的目的。
    进入二十世纪九十年代以来,电检在西方经济发达国家已日趋成熟,其技术法规也已相当完善,而我国尚处于起步阶段。1998年沈阳明玉电气防火检测工程有限公司首个取得辽宁省消防局颁发的“辽公消防证字第001号许可证”,在辽宁省电气防火安全检查技术导则的标准规范下,开展检测业务。先后对省人民银行、中国银行、辽宁省博物馆、辽宁省大剧院、辽宁电视台、沈阳日报、省国税局、国土局、省建委、省总工会、皇朝万豪酒店、二十一世纪广场、房地产大厦、太清宫、桃仙机场、邮电大厦、东北电影院、民族电影院、沈阳市文化宫、沈阳飞机制造公司苏27机库、601飞机研究所、金杯汽车、华润雪花等企业和单位进行检测。截止到2004年,明玉公司共检测单位800余家,查出火灾隐患近3万处,提出整改措施3.5万处。实践证明电气消防检测将消防检查工作提升到了一个新的科学高度,做到了查明电气火灾隐患的科学化、图谱化、数据化,大大弥补了原始手段的看、问、量等不足。沈阳明玉公司的实践得益于省消防局有关部门的大力协助,受益于王庆廼、张博学、赵世君等一批国内率先进入该领域并卓有成就的电气防火检测的专家加盟。
     2009年5月 ,国家公安部颁布了修订后的《建设工程消防监督管理规定》,第一次以法规形式将电气防火技术检测业务纳入规定之中,并作为今后消防验收强制性措施之一。鉴于目前省内电气防火检测业务、受到检测机构、检测规范、收费标准等条件的限制,我省电气防火强制检测尚未全面展开。
    做为省内第一家电气防火检测专业化的公司,沈阳明玉电气防火检测工程有限公司,凭借多年的电气防火检测经验和检测队伍,以及雄厚的资金支持,我们于2010年1月注册了辽宁明玉电气防火检测有限公司,初步形成了一支内部机构健全、制度完善、技术合格、仪器配套的检测队伍。

©2010 辽宁明玉电气防火检测有限公司 版权所有