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

    			<%
				dim rsa, rsa2, rsa3, rsa4, sql4, devicename, noAlarm, alarm_msg, sql
				noAlarm = 1 '1-没有报警  2-有报警  3-其他状况
				sql = "select * from t_dev_variant where realtimeflag = true and boolreserved2 = true and uid in (select uid from t_dev_property where isuse = '1') order by description"
				set rsa = server.CreateObject("adodb.recordset")
				rsa.open sql, conn, 1, 1
				if rsa.bof and rsa.eof then
					noAlarm = 3
					alarm_msg = "<span class='status_nodata'>No Data</span>"
				else
					
					do while not rsa.eof
						sql = "select curr_value,varuid from t_summary_log where varname = '" & rsa("varname") & "' and curr_value <> '-1' order by happentime desc limit 1"
						set rsa2 = server.CreateObject("adodb.recordset")
						rsa2.open sql, conn, 1, 1
						
						dim rsRec, haveRec
						set rsRec = conn.execute("select * from t_var_status where varid = " & rsa("id"))
						if rsRec.bof and rsRec.eof then
							haveRec = false
						else
							haveRec = true
						end if
						
						if rsa2.bof and rsa2.eof then
							if noAlarm = 2 then noAlarm = 2 else noAlarm = 3
							alarm_msg = "<span class='status_ok'>运行良好</span>"
						else
							if rsa("upperlimit") = 0 and rsa("lowerlimit") = 0 then
								if haveRec = true then
									if rsa2(0) <> rsa("normalstate") then
										set rsa3 = conn.execute("select statusdesc from t_var_status where varid = '" & rsa("id") & "' and devuid = '" & rsa("uid") & "' and statusid = '" & CInt(rsa2(0)) & "'")
										if rsa3.bof and rsa3.eof then
											'response.write "<a href='index_main.asp?uid=" & rsa("uid") & "'><img src='images/alertIcon.gif' title='" & rsa("description") & "-异常报警' border='0'></a>"
											'noAlarm = 2
										else
											response.write "<a href='index_main.asp?uid=" & rsa("uid") & "'><img src='images/alertIcon.gif' title='" & rsa("description") & "-" & rsa3(0) & "' border=0></a>"
											noAlarm = 2
										end if
									end if
								end if
							else
								if rsa2(0) < rsa("lowerlimit") then
									response.write "<a href='index_main.asp?uid=" & rsa("uid") & "'><img src='images/alertIcon.gif' title='" & rsa("description") & "-下限报警" & "' border=0></a>"
									noAlarm = 2
								elseif rsa2(0) > rsa("upperlimit") then
									response.write "<a href='index_main.asp?uid=" & rsa("uid") & "'><img src='images/alertIcon.gif' title='" & rsa("description") & "-上限报警" & "' border=0></a>"
									noAlarm = 2
								end if
							end if
						end if
						rsa2.close
						set rsa2 = nothing
					rsa.movenext
					loop
					rsa.close
					set rsa = nothing
				end if
				
				if noAlarm = 1 then
					response.write "<span class='status_ok'>运行良好</span>"
				elseif noAlarm = 2 then
					if trim(request.Cookies("voiceAlarm")) = "on" then
					    response.write "<embed src='alarm2.mp3' autostart='true' loop='true' hidden='true' style='margin-left:30px;'>"
					end if
				else
					response.write alarm_msg
				end if
			%>