計算頁面執行時間

函數名：GetTimeOver
  作  用：頁面執行時間
  參  數：flag ---顯示時間單位1=秒，否則毫秒
  ****************************************************
  Public Function GetTimeOver(flag)
   Dim EndTime
   If flag = 1 Then
    EndTime=FormatNumber(Timer() - starTime, 6, true)
    getTimeOver = " <span style=""font-family:Arial, Helvetica, sans-serif;"">Processed in " & EndTime & " second(s)</span>"
   Else
    EndTime=FormatNumber((Timer() - starTime) * 1000, 3, true)
    getTimeOver =" 頁面執行時間: " & EndTime & " 毫秒"
   End If
  End function
  調用方法
  GetTimeOver(1) '頁面執行開始時間
   GetTimeOver(1) '頁面共用了多長時間