让asp页面在固定时间后打开收藏

 

 

调用setopenpagetime(10)，10秒后显示

 

sub setopenpagetime(sj_miao)
 if session("zx")="" then
  dim startime
  session("startime")=timer()
  session("zx")="ok"
 end if
 
 dim endtime
 endtime=timer()
 zxsj=int(FormatNumber((endtime-session("startime"))*1000,3))
 
 if zxsj<sj_miao*1000 then '1000为1秒，1*10=10秒，这里就为10000
  response.Redirect("?")
  response.End()
 end if
 session("zx")=""
 session("startime")=""
 response.Write("页面执行时间："&zxsj&"毫秒")
end sub