计算页面执行时间

函数名：GetTimeOver
  '作  用：页面执行时间
  '参  数：flag ---显示时间单位1=秒，否则毫秒
  '****************************************************
  Public Function GetTimeOver(flag)
   Dim EndTime
   If flag = 1 Then
    EndTime=FormatNumber(Timer() - starTime, 6, true)
    getTimeOver = " Processed in " & EndTime & " second(s)"
   Else
    EndTime=FormatNumber((Timer() - starTime) * 1000, 3, true)
    getTimeOver =" 页面执行时间: " & EndTime & " 毫秒"
   End If
  End function
  '调用方法
  GetTimeOver(1) '页面执行开始时间
   GetTimeOver(1) '页面共用了多长时间