always there for you

 测试页面执行时间!

Timer()为早上0点到现在的秒数

Class TestTime
   Dim StartTime
   Dim EndTime
   Public function Start()
     StartTime = timer()
   End Function
  
   Public function Ends()     
     EndTime = timer()
     Response.Write FormatNumber((EndTime-StartTime)*1000,3)&"毫秒"
     End Function     
End Class
   
   Set sTestTime = new TestTime

   sTestTime.Start()

   For i=0 to 10000
    Response.Write "loading.."&"<br />"
   Next

   sTestTime.Ends()