asp 页面执行时间,页面加载时间,timer()用法,毫秒计算

参考:http://hi.baidu.com/luo2635505/blog/item/019c441186b6d5f0c3ce79ac.html

'##############
'start 计算页面时间
Class PageTimer
    private startTime,endTime
    Sub startTimer()
        startTime=timer()
    End Sub
    public function delay(s)
        SecCount = 0
        Sec2 = 0
        While SecCount < s + 1
            Sec1 = Second(Time())
            If Sec1 <> Sec2 Then
                Sec2 = Second(Time())
                SecCount = SecCount + 1
            End If
        Wend
    End Function
    Sub showTimer()
        if startTime="" or isempty(startTime) then
            echo    "请先执行    call startTimer() "
            exit sub
        End If
        endTime=timer()
        echo "页面执行时间："&FormatNumber((endTime-startTime)*1000,3,-1,0,0)&"毫秒"
    End Sub
End Class
'End 计算页面加载时间
'##############


用的时候就:

'##asp开始放下面代码'
dim asptimer
set asptimer=new PageTimer
asptimer.startTimer()

'xxxx内容'

'或者用这个延迟函数(不要用的太频繁,否则CPU受不了)'
asptimer.delay(1)

'##asp结尾部分'
asptimer.showTimer()