asp提高执行效率

<%
                Dim t1, t2
                t1 = Timer
                Response.Write DisplayCachedRecords(60)
                t2 = Timer
%>

停留时间: <%= Left((CDbl((t2 - t1) * 1000.0)), 5) %> ms