ECS
/
repos_ecs


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322
							<!--#include file="Inc/common.asp"-->
<!--#include file="Inc/MD5.asp"-->
<!--#include file="Inc/Function.asp"-->
<!--#include file="Admin_Common.asp"-->
<%
Dim uid, rse, width, areaname, areaid, rschild
areaid = request("id")
set areaname = conn.execute("select classname from t_area where t_classid = " & areaid)
areaname = areaname(0)

set rschild = conn.execute("select child from t_area where t_classid = " & areaid)
child = rschild(0)

function getdClass(uid)
	dim rse2
	set rse2 = conn.execute("select devicename from t_dev_property where uid = '" & uid & "'")
	response.write "<strong>" & rse2(0) & "</strong>"
end function

dim sql
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=systemPageTitle%></title>
<link href="bs2010.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="js/share.js"></script>
<script type="text/javascript" src="js/prototype.js"></script>
<script language="javascript">
function GetData()
{
	url="alarm.asp";//调用页面

	var xmlhttp=null;

	if(window.XMLHttpRequest)
	{
        xmlhttp=new XMLHttpRequest(); 
	}
	if(!xmlhttp&&window.ActiveXObject)
	{
	try
	{ 
		xmlhttp=new ActiveXObject("Msxml2.XMLHTTP.5.0")
	}
	catch(e)
	{
   try
   {
 		xmlhttp=new ActiveXObject("Msxml2.XMLHTTP.4.0")
   }
   catch(e){
    try
    {
 		new ActiveXObject("Msxml2.XMLHTTP") 
    }
    catch(e)
    {
	try{
		new ActiveXObject("Microsoft.XMLHTTP")
     }catch(e)
	{
     }
    }
    }
    }
	}

	if(!xmlhttp){alert("XMLHTTP不可用，请升级安装。");location="support/msxml.msi"}
	
	xmlhttp.open("GET",url,false);
	xmlhttp.send();
	var str = xmlhttp.responseText;
	document.getElementById("loadcontent").innerHTML=str;
	
	setTimeout("GetData()",<%=refreshRate%>);
}
</script>
</head>
<body onLoad="javascript:GetData();">
<div class="mainbg">
<table width="760" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="top">
        <div id="loadcontent">
            <p></p>
            数据载入中……</div>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
            <td>&nbsp;</td>
        </tr>
      </table>
<%
'			select case equipType
'			case "type1"
'				call type1()
'			case "main"
'				call main()
'			case else
'				call main()
'			end select

			if areaid = "" then
				call main()
			else
				call testPage()
			end if
			
			If FoundErr = True Then
    			Call WriteErrMsg(ErrMsg, ComeUrl)
			End If
			
			sub main()
		%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td align="center"><p>&nbsp;</p>
            <p><img src="images/room.gif" width="450" height="225" /></p></td>
          </tr>
        </table>
<%
			end sub
			
			sub testPage()
		%>
        <table width="760" border="0" cellspacing="0" cellpadding="0" style="background:url(images/equiplist.jpg) top right no-repeat">
          <tr>
            <td valign="top"><table width="560">
              <tr>
                <td><div id="deviceName" class="deviceName">
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="3%"><img src="images/arr1.gif" alt="" width="14" height="18" /></td>
                        <td width="97%"><%=areaname%></td>
                      </tr>
                    </table>
                </div></td>
              </tr>
            </table>
              <%
				dim rsclass
				if child = 0 then
					sql = "select t_classid, classname from t_area where t_classid = " & areaid & " order by orderid"
				else
					sql = "select t_classid, classname from t_area where parentid = " & areaid & " order by orderid"
				end if
				set rsclass = conn.execute(sql)
				if rsclass.bof and rsclass.eof then
					response.write "<div>无数据</div>"
				else
					do while not rsclass.eof
				%>
              <br />
              <br />
            <table width="560" border="0" cellpadding="0" cellspacing="0">
		   <tr>
   				   <td width="35"><img src="images/listTitle1.gif" width="35" height="26" /></td>
			    <td width="85" background="images/listTitle2.gif" style="font-weight:bold;font-size:120%;"><%=rsclass("classname")%></td>
   			    <td background="images/listTitle2.gif"><img src="images/listTitle3.gif" width="132" height="26" /></td>
			  </tr>
			  </table>
				<%
				dim rsc2
				set rsc2 = conn.execute("select devicename, uid from t_dev_property where areaid = " & rsclass("t_classid") & " order by uid")
				do while not rsc2.eof
						
				'大循环	

				dim rsv, sqlv, i
				sqlv = "select * from t_dev_variant where uid = '" & rsc2("uid") & "' and realtimeflag = true order by uid, description"
				'sqlv = "select v.id, v.description, v.uid, v.upperlimit, v.lowerlimit, v.normalstate, v.realtimeflag from t_dev_variant v left join t_dev_property p on v.uid = p.uid where v.uid = '" & rsc2("uid") & "' and v.realtimeflag = true order by p.uid, v.description"
				set rsv = server.CreateObject("ADODB.Recordset")
				rsv.open sqlv, conn, 1, 1
				i = 0

				if rsv.bof and rsv.eof then
			%>
            	<table width="560" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
                <tr>
                  <td width="120" background="images/xietiaowen.gif"><img src="images/xietiaowen.gif" width="2" height="2" /></td>
                  <td width="215" background="images/xietiaowen.gif"><img src="images/xietiaowen.gif" width="2" height="2" /></td>
                  <td width="120" background="images/xietiaowen.gif"><img src="images/xietiaowen.gif" width="2" height="2" /></td>
                  <td width="100" background="images/xietiaowen.gif"><img src="images/xietiaowen.gif" width="2" height="2" /></td>
                </tr>
                <tr class="deviceTd">
                  <td>-</td>
                  <td>-</td>
                  <td align="center"><span class='status_nodata'>-</span></td>
                  <td align="center">-</td>
                </tr>
                </table>
            <%
				else
			%>
              <table width="560" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
                <tr>
                  <td width="120" background="images/xietiaowen.gif"><img src="images/xietiaowen.gif" width="2" height="2" /></td>
                  <td width="215" background="images/xietiaowen.gif"><img src="images/xietiaowen.gif" width="2" height="2" /></td>
                  <td width="120" background="images/xietiaowen.gif"><img src="images/xietiaowen.gif" width="2" height="2" /></td>
                  <td width="100" background="images/xietiaowen.gif"><img src="images/xietiaowen.gif" width="2" height="2" /></td>
                </tr>
                <%
				do while not rsv.eof
				i = i + 1
				
				dim sqlsl, rssl, sqlvs, rsvs
				sqlsl = "select curr_value from t_summary_log where type_desc = '" & rsv("description") & "' order by varuid"
				set rssl = server.CreateObject("adodb.recordset")
				rssl.open sqlsl, conn, 1, 1
				
				if rssl.bof and rssl.eof then
		%>
                <tr class="deviceTd">
                  <td><%if i = 1 then getdClass(rsv("uid"))%></td>
                  <td><%=rsv("description")%></td>
                  <td align="center"><span class='status_nodata'>-</span></td>
                  <td align="center"><%if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then response.write rsv("normalstate") else response.write rsv("lowerlimit") & "~" & rsv("upperlimit")%></td>
                </tr>
                <%
				else
				
					if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then
						if rssl(0) = rsv("normalstate") then
		%>
                <tr class="deviceTd">
                  <td><%if i = 1 then getdClass(rsv("uid"))%></td>
                  <td><%=rsv("description")%></td>
                  <td align="center"><span class='status_ok'>正常</span>(<%=rssl(0)%>)</td>
                  <td align="center"><%if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then response.write rsv("normalstate") else response.write rsv("lowerlimit") & "~" & rsv("upperlimit")%></td>
                </tr>
                <%
						else
							sqlvs = "select statusdesc from t_var_status where id = '" & rsv("id") & "' and devuid = '" & rsv("uid") & "' and statusid = '" & CInt(rssl(0)) & "'"
							set rsvs = conn.execute(sqlvs)
							if rsvs.bof and rsvs.eof then
		%>
                <tr class="deviceTd">
                  <td><%if i = 1 then getdClass(rsv("uid"))%></td>
                  <td><%=rsv("description")%></td>
                  <td align="center"><%=rssl(0)%></td>
                  <td align="center">-</td>
                </tr>
                <%
							else
				%>
				<tr class="deviceTd_alert">
                  <td><%if i = 1 then getdClass(rsv("uid"))%></td>
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write rsvs(0) & "(" & rssl(0) & ")"%></td>
                  <td align="center"><%if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then response.write rsv("normalstate") else response.write rsv("lowerlimit") & "~" & rsv("upperlimit")%></td>
                </tr>
				<%
							end if
						end if
					else
						if rssl(0) < rsv("lowerlimit") then
		%>
                <tr class="deviceTd_alert">
                  <td><%if i = 1 then getdClass(rsv("uid"))%></td>
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_lowerlimit'>下限报警</span>(" &rssl(0) & ")"%></td>
                  <td align="center"><%if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then response.write rsv("normalstate") else response.write rsv("lowerlimit") & "~" & rsv("upperlimit")%></td>
                </tr>
                <%
					elseif rssl(0) > rsv("upperlimit") then
		%>
                <tr class="deviceTd_alert">
                  <td><%if i = 1 then getdClass(rsv("uid"))%></td>
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_upperlimit'>上限报警</span>(" &rssl(0) & ")"%></td>
                  <td align="center"><%if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then response.write rsv("normalstate") else response.write rsv("lowerlimit") & "~" & rsv("upperlimit")%></td>
                </tr>
                <%
					else
		%>
                <tr class="deviceTd">
                  <td><%if i = 1 then getdClass(rsv("uid"))%></td>
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_ok'>正常</span>(" &rssl(0) & ")"%></td>
                  <td align="center"><%if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then response.write rsv("normalstate") else response.write rsv("lowerlimit") & "~" & rsv("upperlimit")%></td>
                </tr>
                <%
					end if
					end if
				end if
				
				rsv.movenext
				loop
				rsv.close
				set rsv = nothing
				end if
		%>
            </table>
            <%
				
				rsc2.movenext
				loop
				
				'大循环结束
				rsclass.movenext
					loop
				end if
				rsclass.close
				set rsclass = nothing
			%>
            <p style="text-align:right">&nbsp;</p></td>
          </tr>
        </table>
        <%
			end sub
		%>
    </td>
  </tr>
</table>
<p>&nbsp;</p>
</div>
</body>
</html>
<%
	Call CloseConn
%>