Jeu sur navigateur = jeu php ? - Version imprimable

Code :
<% @ Language = VBScript %>

<!--#include file="include/functions.asp"-->

<html>

<head>

    <title>Server SLA</title>

    <link rel="stylesheet" type="text/css" href="css/sla.css">

    <link rel="stylesheet" type="text/css" href="css/jquery.css">

    <script type="text/javascript" src="script/sla.js"></script>

    <script type="text/javascript" src="script/functions.js"></script>

</head>

<body>

    <%



    

    function ServerList(sApp)    

        %>

        <!--[if IE]><script language="javascript" type="text/javascript" src="script/excanvas.pack.js"></script><![endif]-->

        <script type="text/javascript" src="script/jquery.pack.js"></script>

      <script type="text/javascript" src="script/jquery.bgiframe.pack.js"></script>

      <script type="text/javascript" src="script/jquery.ajaxQueue.js"></script>

      <script type="text/javascript" src="script/jquery.dimensions.pack.js"></script>

      <script type="text/javascript" src="script/jquery.autocomplete.pack.js"></script>

        <script type="text/javascript" src="script/jquery.flot.pack.js"></script>

        <%



        if sApp<> "" Then        

            szSQL = "SELECT ApplicationId FROM " & CST_INTELSYSTEMDB & "SLA_Applications WHERE ApplicationName='" & sApp & "'"

            set oRs=getMoMRs(szSQL)

            i=oRs(0)

            oRs.close

            

            szSQL = "exec " & CST_INTELSYSTEMDB & "sp_get_Servers_Collection @ApplicationId='" & i & "'"

            set oRs=getMoMRs(szSQL)

            szSearch=""

            while not oRs.eof

                szSearch = szSearch & ",'" & oRs("BaseManagedEntityId") & "'"

                oRs.MoveNext

            Wend

            oRs.close

    

            szSearch="C.BaseManagedEntityId in (" & mid(szSearch,2) & ") "

        Else

            szSearch="1=1"

        End If



        response.write "<div class=""block"">"

        response.write "<table>"

        ColTitle "#", 16

        ColTitle "Server",150

        colTitle "Status",50

        colTitle "CPU",50

        colTitle "MEM",50

        response.write "<td class=""coltitle"" colspan=""10"">Used Disk Space</td>"

        szSQL="SELECT "

        szSQL=szSQL & "C.BaseManagedEntityId, "

        szSQL=szSQL & "C.NetbiosComputerName,  "

        szSQL=szSQL & "S.Healthstate,   "

'        szSQL=szSQL & "ISNULL(SLA.CPUInternalId,-1) as CPUID,   "

'        szSQL=szSQL & "ISNULL(SLA.MEMInternalId,-1) as MEMID,   "

        szSQL=szSQL & "    ( "

        szSQL=szSQL & "        SELECT SO.HealthState    "

        szSQL=szSQL & "        FROM state AS SO, BaseManagedEntity as BME  "

        szSQL=szSQL & "        WHERE SO.monitorid  "

        szSQL=szSQL & "            IN ( "

        szSQL=szSQL & "                SELECT MonitorId  "

        szSQL=szSQL & "                FROM Monitor  "

        szSQL=szSQL & "                WHERE MonitorName = 'Microsoft.SystemCenter.HealthService.ComputerDown' "

        szSQL=szSQL & "            ) AND  "

        szSQL=szSQL & "            SO.Healthstate = '3' AND  "

        szSQL=szSQL & "            SO.BaseManagedEntityId=BME.BaseManagedEntityId AND "

        szSQL=szSQL & "            BME.displayname=C.principalname "

        szSQL=szSQL & "    ) AS Online  "

        szSQL=szSQL & "FROM State as S WITH (NOLOCK)  "

        szSQL=szSQL & "    INNER JOIN MT_Computer as C WITH (NOLOCK)  "

        szSQL=szSQL & "        ON S.BaseManagedEntityId=c.BaseManagedEntityId  "

        szSQL=szSQL & "    INNER JOIN monitor as M WITH (NOLOCK)  "

        szSQL=szSQL & "        on M.MonitorId=S.MonitorId AND M.ParentMonitorId is null     "

        szSQL=szSQL & "    INNER JOIN " & CST_INTELSYSTEMDB & "SLA_Servers as SLA WITH (NOLOCK)  "

        szSQL=szSQL & "        on SLA.BaseManagedEntityId=C.BaseManagedEntityId "

        szSQL=szSQL & "WHERE "

        szSQL=szSQL & szSearch

        szSQL=szSQL & "ORDER BY  "

        szSQL=szSQL & "    Online DESC,  "

        szSQL=szSQL & "    healthstate DESC,  "

        szSQL=szSQL & "    netbioscomputername "

        set oRs=getMoMRs(szSQL)

        

        i=1

'        i=((iPage-1)*iPageSize)+1

        while not oRs.Eof

            response.write "<tr id=""path_" & oRs("netbioscomputername") & """><td valign=""top"">" 

            response.write i

            response.write "</td><td valign=""top"">" 

            response.write uCase(oRs("netbioscomputername"))

            response.write "</td><td align=""center"" valign=""top"">"

            if oRs("Online")=3 Then

                szImg="offline.gif"

            ElseIf oRs("healthstate")=3 Then

                szImg="cross.gif"

            ElseIf oRs("healthstate")=2 Then

                szImg="triangle.gif"

            Else

                szImg="circle.gif"

            End If

            response.Write "<img onClick=""getServerStatusMsg(this, '" & oRs("baseManagedEntityId") & "')"" src=""images/" & szImg & """ />"

            response.write "</td>"

            response.write "<td align=""left"" colspan=""3"" valign=""top"">[<a href=""javascript:;"" onclick=""getServerDetails(this.parentNode,'" & oRs("BaseManagedEntityId") & "')"">Click for details</a>]</td>"



            response.write "</tr>"

            i=i+1

            oRs.MoveNext

        Wend



        ColTitle "#", 16

        ColTitle "Server",150

        colTitle "Status",50

        colTitle "CPU",50

        colTitle "MEM",50

        response.write "<td class=""coltitle"" colspan=""10"">Used Disk Space</td>"



        response.write "</table>"

        response.write "</div>"

    End Function



    ServerList  request.querystring("app")

    %>

</body>

</html>