函數名：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 =" 頁面執行
