<%
server.Execute "/NoHACK1.asp"
dim sql, rs, PicTmp1(2), PicTmp2(3), PicTmp3(3), PicIndex, i, BestServer, BadServer
'----------------伺服
' 羽民
PicTmp1(1) = "serbg.gif"
' 厭火
PicTmp1(2) = "serbg2.gif"
'----------------狀態橫條
' 正常運作
PicTmp2(1) = "l1.gif"
' 關機維護
PicTmp2(2) = "l3.gif"
' 異常處理
PicTmp2(3) = "l2.gif"
'----------------狀態圖
' 正常運作
PicTmp3(1) = "s1.gif"
' 關機維護
PicTmp3(2) = "s2.gif"
' 異常處理
PicTmp3(3) = "s3.gif"
' 推薦 滿載 伺服
BestServer = ""
BadServer = ""
sql = "select * from Top_NowServer1"
Set rs = GetRecordset( sql )
if not(rs.BOF and rs.EOF) then
BestServer = rs("BestServer")
BadServer = rs("BadServer")
end if
rs.close : set rs = nothing
sql="select ServerID,ServerData,ServerPIC from Top_NowServer where ServerOP='Y' order by AutoID"
Set rs = GetRecordset( sql )
%>
目前推薦伺服器：
<%=BestServer%>
接近滿載伺服器：
<%=BadServer%>
綠色- 正常運作；紅色- 關機維護；黃色- 異常處理
＊維修時間
每週三08:00~12:00
<%
i = 1
Do until rs.EOF
select case rs(1).value
case "A" '正常
picIndex = 1
case "B" '異常
picIndex = 3
case "C" '關機
picIndex = 2
case else
picIndex = 1
end select
if i mod 2 <> 0 then
%>
">
<% else %>
">
<% end if
rs.movenext
i = i + 1
Loop
rs.close
set rs = nothing
%>
