首页 > 网站 > 建站经验 > 正文

计算页 面执行时间

2019-11-02 15:29:21
字体:
来源:转载
供稿:网友

函数名:GetTimeOver
  作  用:页面执行时间
  参  数:flag ---显示时间单位1=秒,否则毫秒
  ****************************************************
  Public Function GetTimeOver(flag)
   Dim EndTime
   If flag = 1 Then

世界历史机密[www.9-39.com/html/world/]
    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) '页面共用了多长时间

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表