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>")