站长资源网络编程

<%
Dim varInitial_Time
varInitial_Time = Timer
Response.Write "Initial_Time =[" & varInitial_Time & "]<br>"
%>

<%
For I = 1 to 10
Response.write "随风起舞(www.intels.net)时尚咨询的个人网站欢迎您!" & I & "<br>"
Next
%>

<br>您一共循环了显示了<%=(I - 1) %>次.<br>

<%
Dim varFinal_Time
varFinal_Time = Timer
Response.Write "Final_Time =[" & varFinal_Time & "]<br>"

好了，下面就是我们的ASP程序执行的结果：

Initial_Time =[80801.00]
随风起舞(www.intels.net)时尚咨询的个人网站欢迎您!1
随风起舞(www.intels.net)时尚咨询的个人网站欢迎您!2
...

随风起舞(www.intels.net)时尚咨询的个人网站欢迎您!10
您一共循环了显示了10次.
Final_Time =[80801.00]
It took [0.00] seconds to load this page. 

[1]