防止网页表单提交不断刷新

加入到处理页面最上方

<%
If DateDiff("s",Request.Cookies("add")("vtime"),Now())<60 Then
       URL=Request.ServerVariables("Http_REFERER")
       Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&URL&""">")
       Response.Write("对不起,本系统采用了防刷新机制,2秒后返回…")
       Response.End
    End IF
Response.Cookies("add")("vtime")=Now()
%>