|
函数名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() 页面共用了多长时间 |
