<%
function Requestw(str)
Dim tmp
tmp = Request.QueryString(str)
If tmp = "" Then tmp = Request.Form(str)
Requestw = tmp
end Function
dim DEF_PageExeTime1
DEF_PageExeTime1=Timer * 1000
Dim n,happy
for n = 0 to 50000
happy = Requestw("name")
Next
Response.Write abs(CDBL(Timer)*1000 - DEF_PageExeTime1)
%> |