ASP禁止刷新当前页

1   
2Dim SplitReflashPage   
3Dim DoReflashPage   
4dim shuaxin_time   
5DoReflashPage=true   
6shuaxin_time=10   
7ReflashTime=Now()   
8if (not isnull(session("ReflashTime"))) and cint(shuaxin_time)>0 and DoReflashPage then   
9if DateDiff("s",session("ReflashTime"),Now())

<cint(shuaxin_time) "<meta="" charset="gb2312" content="text/html;" http-equiv="Content-Type" response.write="" then=""><meta content="3" http-equiv="REFRESH"/>本页面起用了防刷新机制，请不要在<b><font color="ff0000">"&amp;shuaxin_time&amp;"</font></b>秒内连续刷新本页面<br/>正在打开页面，请稍候……"
response.end
else
session("ReflashTime")=Now()
end if
elseif isnull(session("ReflashTime")) and cint(shuaxin_time)&gt;0 and DoReflashPage then
Session("ReflashTime")=Now()
end if
randomize timer
regjm=int(rnd*8998)+1000