帮忙写一记时打开A.ASP

帮忙写一倒计时打开A.ASP
<!--#include file="conn.asp"-->
<%
user=session("u")
pass=session("p")
if isUserName(user) and isUserName(pass) then
       sql="select count(id) from "&table1&" where password='"&pass&"' and adminname='"&user&"'"
       countip=conn.execute(sql)(0)
       if countip<=0 then
   
 

dim ii,rects
rects=Now()
While DateDiff("s",rects,Now())<=10
   '显示读秒效果，并且提示10秒钟后页面自动跳转到abcde.asp
Wend

response.write("禁止浏览网址- 3秒后自动跳转a.asp，请稍后......")

response.redirect "a.asp"


          response.end
       end if
    else
       response.end
    end if
%>

为什么10秒后没有 反应，
dim ii,rects
rects=Now()
While DateDiff("s",rects,Now())<=10
   '显示读秒效果，并且提示10秒钟后页面自动跳转到abcde.asp
Wend

response.write("禁止浏览网址- 3秒后自动跳转，请稍后......")

response.redirect "a.asp"

session table file user sql
[解决办法]
'显示读秒效果，并且提示10秒钟
这种效果用前台JS来实现，不要后台做，一个用户服务器就受不了，多个？
[解决办法]
一般使用js
<script type="text/javascript">
var time=1;
function CheckTime()
{
 if(time>10)
   window.location='a.asp';
 else
   time++;
}
setInterval(CheckTime,1000);
</script>

上面的代码我没有测试，只是随便写了一下。