repos_ecs/源数据/PC环境监控/3.0.3.2/BS/getData.asp

<!--#include file="common.asp"-->
<%
Dim uid, rse, isAdmin, rsRole
uid = trim(request("uid"))

if trim(Lcase(AdminName)) = "admin" then
	isAdmin = true
else
	isAdmin = false
end if

set rse = conn.execute("select devicename from t_dev_property where uid = '" & uid & "'")
%>
<script type="text/javascript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<script type="text/javascript" src="js/share.js"></script>


<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="25">&nbsp;</td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="top">
        <table width="100%" border="0" cellspacing="1" cellpadding="0">
          <tr>
            <td width="25" height="25" align="center" style="border-bottom:1px dotted #CCCCCC"><img src="images/system_status.gif" width="13" height="13" /></td>
            <td width="65" style="border-bottom:1px dotted #CCCCCC"><img src="images/title_system_status.gif" /></td>
            <td style="border-bottom:1px dotted #CCCCCC" id="td_alarm">
			 <!--#include file="codeAlarm.asp"-->
            </td>
          </tr>
        </table>
<table width="100%" 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 uid = "" 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>
            <img src="images/welcome.jpg" border="0" /></td>
          </tr>
      </table>
<%
			end sub
			
			sub testPage()
				
				dim rsv, sqlv
				'if isAdmin = true then
					sqlv = "select * from t_dev_variant where uid = '" & uid & "' and realtimeflag = true order by id"
				'else
'					sqlv = "select * from t_dev_variant where uid = '" & uid & "' and realtimeflag = true and uid in (select uid from t_role_equip where userid = '"&trim(AdminName)&"') order by id"
'				end if
				set rsv = server.CreateObject("ADODB.Recordset")
				rsv.open sqlv, conn, 1, 1
				
				if rsv.bof and rsv.eof then
					response.write "无变量或无权限！"
				else
		%>
        <table width="760" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="500" valign="top"><table width="500">
              <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%"><%
						if instr(rse(0),"(") <> 0 then
							response.write left(rse(0),instr(rse(0),"(")-1)
						else
							response.write rse(0)
						end if
						%></td>
                      </tr>
                    </table>
                </div></td>
              </tr>
            </table>
              <table width="500" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
                <tr>
                  <td class="deviceTdTitle">变量名</td>
                  <td width="120" class="deviceTdTitle">当前状态/值</td>
                </tr>
                <%
				do while not rsv.eof
				
				dim sqlsl, rssl, sqlvs, rsvs
				sqlsl = "select curr_value,varuid from t_summary_log where varname = '" & rsv("varname") & "' order by happentime desc limit 1"
				set rssl = server.CreateObject("adodb.recordset")
				rssl.open sqlsl, conn, 1, 1
				
				if rssl.bof and rssl.eof then
		%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><span class='status_nodata'>-</span></td>
                </tr>
                <%
				else
					
					'判断是否需要报警
					dim needAlarm, rsNeedAlarm
					set rsNeedAlarm = conn.execute("select boolreserved2 from t_dev_variant where varname = '" & rsv("varname") & "'")
					
					if rsNeedAlarm(0) = 0 or rssl(0) = -1 then
					'不需要报警的变量
					
					'无上下限的情况
					'判断是否有报警描述
					dim haveRec, rsHaveRec
					set rsHaveRec = conn.execute("select * from t_var_status where varid = '" & rsv("id") & "'")
					if rshaveRec.bof and rsHaveRec.eof then
						haveRec = false
					else
						haveRec = true
					end if
					'上下限为0时与normalstate比较，相等则正常
					if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then
						if haveRec = true and rssl(0) = rsv("normalstate") then
		%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><span class='status_ok'>正常</span></td><!--(<%'=rssl(0)%>)-->
                </tr>
                <%
						elseif haveRec = true and rssl(0) <> rsv("normalstate") then
						sqlvs = "select statusdesc from t_var_status where varid = '" & 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><%=rsv("description")%></td>
                  <td align="center"><span class='status_ok'>正常</span></td><!--(<%'=rssl(0)%>)-->
                </tr>
				<!--<tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><span class='status_alert'>异常报警(<%=rssl(0)%>)</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						
				%>
				<tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%=rsvs(0)%></td>
                </tr>
				<%
							end if
						elseif haveRec = false and rsv("ondesc") <> "" and rsv("offdesc") <> "" then
				%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%if rssl(0) = rsv("normalstate") then response.write rsv("ondesc") else response.write rsv("offdesc")%></td>
                </tr>
                <%
						else
				%>
				<tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center">
				  <%
						response.write FormatNumber(rssl(0),1,-1) & rsv("unit")
				  %>                  </td>
                </tr>
				<%
						end if
					else
					'有上下限的情况
						if rssl(0) < rsv("lowerlimit") then
		%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_lowerlimit'>下限报警</span>(" &FormatNumber(rssl(0),1,-1) & rsv("unit") & ")"%></td>
                </tr>
                <%
						elseif rssl(0) > rsv("upperlimit") then
		%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_upperlimit'>上限报警</span>(" &FormatNumber(rssl(0),1,-1) & rsv("unit") & ")"%></td>
                </tr>
                <%
						else
		%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_ok'>正常</span>(" &FormatNumber(rssl(0),1,-1) & rsv("unit") & ")"%></td>
                </tr>
                <%
						end if
					end if
					
					else
					'需要报警的变量
					
					'无上下限的情况
					'判断是否有报警描述
					set rsHaveRec = conn.execute("select * from t_var_status where varid = '" & rsv("id") & "'")
					if rshaveRec.bof and rsHaveRec.eof then
						haveRec = false
					else
						haveRec = true
					end if
					'上下限为0时与normalstate比较，相等则正常
					if rsv("upperlimit") = 0 and rsv("lowerlimit") = 0 then
						if haveRec = true and rssl(0) = rsv("normalstate") then
		%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><span class='status_ok'>正常</span></td><!--(<%'=rssl(0)%>)-->
                </tr>
                <%
						elseif haveRec = true and rssl(0) <> rsv("normalstate") then
						sqlvs = "select statusdesc from t_var_status where varid = '" & 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><%=rsv("description")%></td>
                  <td align="center"><span class='status_ok'>正常</span></td><!--(<%'=rssl(0)%>)-->
                </tr>
				<!--<tr class="deviceTd_alert">
                  <td><%=rsv("description")%></td>
                  <td align="center"><span class='status_alert'>异常报警(<%=rssl(0)%>)</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						
				%>
				<tr class="deviceTd_alert">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write rsvs(0) & "(" & FormatNumber(rssl(0),1,-1) & rsv("unit") & ")"%></td>
                </tr>
				<%
							end if
						elseif haveRec = false and rsv("ondesc") <> "" and rsv("offdesc") <> "" then
				%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%if rssl(0) = rsv("normalstate") then response.write rsv("ondesc") else response.write rsv("offdesc")%></td>
                </tr>
                <%
						else
				%>
				<tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write FormatNumber(rssl(0),1,-1) & rsv("unit")%></td>
                </tr>
				<%
						end if
					else
					'有上下限的情况
						if rssl(0) < rsv("lowerlimit") then
		%>
                <tr class="deviceTd_alert">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_lowerlimit'>下限报警</span>(" &FormatNumber(rssl(0),1,-1) & rsv("unit") & ")"%></td>
                </tr>
                <%
						elseif rssl(0) > rsv("upperlimit") then
		%>
                <tr class="deviceTd_alert">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_upperlimit'>上限报警</span>(" &FormatNumber(rssl(0),1,-1) & rsv("unit") & ")"%></td>
                </tr>
                <%
						else
		%>
                <tr class="deviceTd">
                  <td><%=rsv("description")%></td>
                  <td align="center"><%response.write "<span class='status_ok'>正常</span>(" &FormatNumber(rssl(0),1,-1) & rsv("unit") & ")"%></td>
                </tr>
                <%
						end if
					end if
					
					'判断是否需要报警结束
					end if
				end if
		%>
                <%
				rsv.movenext
				loop
				rsv.close
				set rsv = nothing
				end if
		%>
            </table></td>
            <td width="260" align="right" valign="top">
            <p style="text-align:right">
			<%
				dim a
				a = split(uid, ".")
				response.write "<img src='images/p/" & a(0) & "." & a(1) & ".jpg' border='0' />"
			%>
			</p>
            </td>
          </tr>
        </table>
        <%
			end sub
		%>
    </td>
  </tr>
</table>
<p>&nbsp;</p>