1、继承类库里的防刷新
Public Function fangshuaxin() If Session("logintime") Is Nothing Then Session("logintime") = Now Session("yemian") = Request.RawUrl.ToString Else If Request.RawUrl = Session("yemian") Then '访问同一页面时必须间隔一秒钟 If Now > CDate(Session("logintime")).AddMilliseconds(500) Then Session("logintime") = Now Else Msg("为了避免出现服务器超负荷,系统开启了防刷新机制,请间隔1秒钟以上再继续") End If Else Session("logintime") = Now Session("yemian") = Request.RawUrl.ToString End If
End If End Function
2、页面提交后转入其它页面
Response.Write("<script language=javascript>alert('下单提交成功,点【确定】后转入会员控制面板!');window.location.href='user/index_user.aspx';</script>")