把这条语句放在
<%NextTime=DateAdd("s",30,Time) Do While Time Loop 30s刷新一次response.redirect Request.ServerVariables("URL")&"?"&Request.QueryString() %>
"refresh" content="1"每秒刷新