能耗监测供暖系统flash asp

var YEAT_CTL_NUM = 14; var iCount = 0; lUpDateIdx = window.setInterval("GetCtlData()", 5000); function CtlDevice(nCurCtl) { //These values can be changed during declaration of a new menu... this.CtlId = nCurCtl; this.CtlEdit = 0; this.CtlPnt = new Array(); } function GetCtlData() { var strGetRsp, idx; if (iCount < document.CA_CtlDev.length) { var xmlHTTP = new ActiveXObject("Microsoft.XMLHTTP"); // Msxml2 var xmlDom = new ActiveXObject("Microsoft.XMLDOM"); var xmlNode; xmlDom.loadXML("<GET_RESPONSE><CtlIPNum>220</CtlIPNum><EditNum>0</EditNum></GET_RESPONSE>"); xmlNode = xmlDom.selectSingleNode("GET_RESPONSE/CtlIPNum"); xmlNode.text = document.CA_CtlDev[iCount].CtlId; xmlNode = xmlDom.selectSingleNode("GET_RESPONSE/EditNum"); xmlNode.text = document.CA_CtlDev[iCount].CtlEdit; xmlHTTP.Open("POST", "../DataGet.asp", false); // localhost //POST try { xmlHTTP.send(xmlDom); } catch (exception) { alert("服务器忙!"); } try { strRspPack = xmlHTTP.responseText; if (strRspPack.length > 10) { xmlDom.loadXML(strRspPack); CtlUpDateXML(iCount, xmlDom); } } catch (exception) { alert("接收数据有错！"); //=='系统错误: -1072896748。') } } iCount = (iCount + 1) % YEAT_CTL_NUM; } function SendCtlSet(sXmlCmd) { var xmlHTTP = new ActiveXObject("Microsoft.XMLHTTP"); // Msxml2 xmlHTTP.Open("POST", "../DataSet.asp", false); // localhost //POST var xmlDom = new ActiveXObject("Microsoft.XMLDOM"); xmlDom.loadXML(sXmlCmd); try { xmlHTTP.send(xmlDom); } catch (exception) { alert("服务器忙!"); } try { // alert(xmlHTTP.responseText); } catch (exception) { alert("接收数据有错！"); } return "OK"; } function ActivePnt(sPntName, nPntClass, nPntSerial, vPntMaxVal, vPntMinVal, vPntValue) { this.PntName = sPntName; this.PntClass = nPntClass; this.PntSerial = nPntSerial; this.PntMaxVal = vPntMaxVal; this.PntMinVal = vPntMinVal; this.PntValue = vPntValue; } function PartList(sRcdId, sPartType, sActStr, nType, sOperRUL) { this.PartId = sRcdId; // 活动部件Id 号 this.PartType = sPartType; // 活动部件的类型 "swf",else this.ActStr = sActStr; // 活动部件对应的活动点的名称串 this.DataType = nType; // 活动部件的数据类型: >0 - 为数字; <0 - 为状态阵列; =0 - 为开关量 this.OperURL = sOperRUL; // 活动部件的可激活页面 } function PartsInit() { var CurPart; var CurObj; var strActStr = new String(); var CurPnt = new ActivePnt("",1,0,0,0,1); var a_strAry; var iColor; var strData; if (document.CA_CtlDev.length > YEAT_CTL_NUM) alert("实际控制器数大于申请数量，请修改YEAT_CTL_NUM设定值！"); for (var idx = 0; idx < document.CA_Parts.length; idx++) { CurPart = document.CA_Parts[idx]; if (CurPart.DataType != 0) { CurObj = findObject(CurPart.PartId, null); // document.CA_Parts[idx].PartType if (CurObj) { strActStr = CurPart.ActStr; if (CurPart.DataType > 0) { // 为数据类型 strData = "----", iColor = 1; CurPnt = GetActPnt(strActStr); if (CurPnt) { if (CurPnt.PntValue > CurPnt.PntMaxVal) iColor = 3; // 红色字 if (CurPnt.PntValue < CurPnt.PntMinVal) iColor = 2; // 黄色字 if (Math.abs(CurPnt.PntValue) < 9999.9) { strData = FloatToStr(CurPnt.PntValue, 4, -2, ""); } else { strData = FloatToStr(CurPnt.PntValue, 6, 0, ""); } } if (CurPart.PartType =="swf") { CurObj.gotoframe(0); CurObj.SetVariable("iType", CurPart.DataType); CurObj.SetVariable("iColor", iColor); CurObj.SetVariable("sValue", strData); CurObj.GotoFrame(1); } else { // CurObj.style.color = 0x CurObj.value = strData; } } else { // 为排灯类型 a_strAry = strActPnts.split("#"), strData = ""; for (idx = 0; idx < a_strAry.length; idx++) { strData += idx.toString(); if (GetStatus(a_strAry[idx])) strData += "T"; else strData += "F"; } if (CurPart.PartType =="swf") { CurObj.gotoframe(0), iColor = 1; CurObj.SetVariable("iType", CurPart.DataType); CurObj.SetVariable("iColor", iColor); CurObj.SetVariable("sValue", strData); CurObj.GotoFrame(1); } else { CurObj.value = strData; } } } } } } // *获取指定的数字活动部件的当前值 //' *输入 ：strVarStr - 系统中的活动结点名称 //' *RETURN: CurActPnt - 对应结点对象 function GetActPnt(strVarStr) { var CurCtlPnt; var CurPnt; var idx, jdx; for (idx = 0; idx < document.CA_CtlDev.length; idx++) { // 检索所有控制器 CurCtlPnt = document.CA_CtlDev[idx].CtlPnt; if (CurCtlPnt) { for (jdx = 0; jdx < CurCtlPnt.length; jdx++) { // 检索该控制器下的所有活动节点 if (CurCtlPnt[jdx].PntName == strVarStr) { CurPnt = CurCtlPnt[jdx], idx = YEAT_CTL_NUM; break; } } } else { idx = YEAT_CTL_NUM; } } return CurPnt; } function CtlUpDateXML(CtlCode, xmlDom) //nCtlIP, nCtlEdit, nParamNum, sIdxAry, sDataAry) { var xmlNode, xmlList, DataList; var bCtlIPNum, bFuncCode = 0, bParamNum = 0, bEditNum; var iRspNum, CurPnt = null; var nClass; var nSerial; var idx = 0, jdx, ndx; xmlList = xmlDom.getElementsByTagName("RESPONSE"), iRspNum = xmlList.length; for (idx = 0; idx < iRspNum; idx++) { xmlNode = xmlList.item(idx).selectSingleNode("CtlIPNum"); if (xmlNode) bCtlIPNum = xmlNode.text; xmlNode = xmlList.item(idx).selectSingleNode("FuncCode"); if (xmlNode) bFuncCode = xmlNode.text; xmlNode = xmlList.item(idx).selectSingleNode("ParamNum"); if (xmlNode) bParamNum = xmlNode.text; xmlNode = xmlList.item(idx).selectSingleNode("EditNum"); // RESPONSE/ if (xmlNode) bEditNum = xmlNode.text; DataList = xmlList.item(idx).selectSingleNode("DataGroup").childNodes; CurPnt = document.CA_CtlDev[CtlCode].CtlPnt; document.CA_CtlDev[CtlCode].CtlEdit = bEditNum; if (bParamNum > 0 && DataList.length > 0) { if (CurPnt) { for (jdx = 0; jdx < bParamNum; jdx++) { xmlNode = DataList.item(jdx).childNodes; nClass = parseInt(xmlNode.item(0).text); fData = parseFloat(xmlNode.item(1).text); if (nClass > 100) { nSerial = nClass % 500; nClass = (nClass - nSerial) / 500; } for (ndx = 0; ndx < CurPnt.length; ndx++) { if (CurPnt[ndx].PntClass == nClass && CurPnt[ndx].PntSerial == n