計算頁面執行時間

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

From:http://tw.wingwit.com/Article/program/net/201311/14026.html