求助防止页面刷新程序
求助防止页面刷新程序
[CODE]<%
'//检查刷新
Sub AvoidRefreshHTML(SpaceTime)
Dim BeginTime,LastTime
LastTime=Now()
BeginTime=Session("BeginTime")
Session("BeginTime")=Now()
If BeginTime<>"" Then
If LastTime-BeginTime<=SpaceTime/(24*60*60) Then'//两次提交的时间间隔//10秒
ErrStr=""
ErrStr="本页面有防刷新功能！请"&SpaceTime&"秒后再尝试刷新。"
Response.Write(ErrStr)
Response.End
End If
End If
End Sub
%>
以下是调用代码，3是秒数，可以自己设
<%Call AvoidRefreshHTML(3)%>[/CODE]
