הוסטס - פורום אחסון האתרים הגדול בישראל

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System" %>

<script language="VB" runat=server>
Function GetUptime() as String
Dim iMiliSecondsUp = Environment.TickCount
Dim iDays as Integer, iHours as Integer, iMinutes as Integer, iSeconds as Integer
Dim strUptime as String

iDays = iMiliSecondsUp / 86400000
iMiliSecondsUp = iMiliSecondsUp Mod 86400000
iHours = iMiliSecondsUp / 3600000
iMiliSecondsUp = iMiliSecondsUp Mod 3600000
iMinutes = iMiliSecondsUp / 60000
iMiliSecondsUp = iMiliSecondsUp Mod 60000
iSeconds = iMiliSecondsUp / 1000
iMiliSecondsUp = iMiliSecondsUp Mod 1000

strUptime = iDays & " days, " & _
iHours & " hours, " & _
iMinutes & " minutes"
GetUptime = strUptime
End Function
</script>

Server uptime is <%=GetUptime%>