计算页面加载时间

<%
Dim startTime
Dim endTime
startTime = Timer()   '记录加载开始时间
For I=1 to 1000000   '这里是1个空循环，主要是为了延长时间
Next
endTime = Timer()   '记录加载完毕的时间
Response.Write "加载时间: "&endTime-startTime&"秒"
%>