Server uptime!

Her er det :)


Global.asa (skal ligge i roden af domæne):
-----------------------------------------------------

<script language="VBScript" runat="Server">


Sub Application_OnStart
    Application("startTime") = Now
End Sub


</script>

Uptime.asp :
--------------------------------------------------------

<% @ language="vbscript" %>
<% Option Explicit %>
<%
    Dim days, hours, minutes, seconds, startTime, runTime, nowTime

    ' Read the start time from the
    ' Application variable
    startTime = CDate(Application("startTime"))

    ' Get the current time
    nowTime = Now

    ' Take the difference
    runTime = CDate(nowTime - startTime)

    ' Calculate the time components
    days = DateDiff("d", startTime, nowTime)

    hours = Hour(runTime)
    minutes = Minute(runTime)
    seconds = Second(runTime)

    ' Display the uptime
    Response.Write "Uptime: " & days & " days(s), "
    Response.Write hours & " hour(s), "
    Response.Write minutes & " minute(s), and "
    Response.Write seconds & " second(s)"
%>