'asp延時方法
sub delaytime(secondnumber)
       dim starttime
       starttime=now()
       do while datediff("s",starttime,now())<secondnumber
       loop
end sub

call delaytime(5)

測試用可以，但是這樣的代碼很占cpu,不推薦訪問量大的站使用……