VBscript(ASP)计算程序运行时间，精度到毫秒

 

让服务器执行50万次加法(整数运算)和20万次开方(浮点运算)，记录其所使用的时间。  < br />
         < %
     dim  i,t1,t2,tempvalue,runtime1,runtime2
     ' 开始计算50万次加法所需时间
    t1 = timer ()
     for  i = 1   to   500000
        tempvalue =   1   +   1
     next
    t2 = timer ()
    runtime1 = formatnumber ((t2 - t1) * 1000 , 2 )
    
     ' 开始计算20万次开方所需时间
    t1 = timer ()
     for  i = 1   to   200000
        tempvalue =   2 ^ 0.5
     next
    t2 = timer ()
    runtime2 = formatnumber ((t2 - t1) * 1000 , 2 )
% >
& nbsp; < font color = red >< % = runtime1% >  毫秒 </ font >
& nbsp; < font color = red >< % = runtime2% >  毫秒 </ font >

在作者自己电脑上的运行结果是

让服务器执行50万次加法(整数运算)和20万次开方(浮点运算)，记录其所使用的时间。
  203.13 毫秒   156.25 毫秒