谁能帮我写个防刷新的ASP代码

来源:百度知道 编辑:UC知道 时间:2024/06/11 19:20:10
<%
dim allusers,currentusers
currentusers=0
allusers=0
Application.Lock 'Application对象的Lock方法和unLock 方法
application("currentusers")=application("currentusers")+1
application("allusers")=application("allusers")+1
Application.unLock
%>

<HTML>
<BODY BACKGROUND="pic/11.jpg">

<FORM METHOD="POST" ACTION="Main.asp">
<p> </p>
<p><font color="#FFFF00" size="5">您请输入的名字</font>:<INPUT TYPE="TEXT" NAME="Name" SIZE="20">
<INPUT TYPE="SUBMIT" VALUE="登录">
<INPUT TYPE="RESET" VALUE="重新输入">
</p>
<P><font color="#FFFF00" size="5">你是本网站的第
<%
dim i

<%
dim allusers,currentusers
currentusers=0
allusers=0
Application.Lock 'Application对象的Lock方法和unLock 方法
if session("xst")="" then
application("currentusers")=application("currentusers")+1
application("allusers")=application("allusers")+1
session("xst")="yes"
end if
Application.unLock
%>
其他没有详细看