ASP/VBScript Timer Class

Ever need to time your functions in ASP? Here's a quick little Timer class and a test function. To be as accurate as possible, we'll store the time in a separate variable and destroy the class "before" writing the output.

Ever need to time your functions in ASP? Here's a quick little Timer class and a test function. To be as accurate as possible, we'll store the time in a separate variable and destroy the class "before" writing the output.

<%

Class clsTimer
Private m_StartTimer
Private Sub Class_Initialize()
m_StartTimer = Timer
End Sub
Public Function GetElapsedTime()
GetElapsedTime = timer-m_StartTimer
end Function
End Class

Sub Test()

Dim nCnt
Dim sSeconds
Dim oTimer

Set oTimer = New clsTimer

For nCnt = 1 to 100
response.write "stuff"
Next

sSeconds = oTimer.GetElapsedTime
Set oTimer = Nothing
response.write "<br><br>Time Elapsed: " & sSeconds

End Sub

Call Test()

%>


Submission Date:  9/23/2005 2:50:35 PM
Submitted By:  Robbe Morris
My Home Page:  http://www.robbemorris.com