今天看到一段代码，感觉很有意思，放上来共享一下。
<Script runat=”server”>
Sub Page_Load(Src As Object, E As EventArgs)
Session.Abandon()
End Sub
</script> |
这段代码摧毁了session变量，实现注销用户。
今天公司的一个外包程序突然显示“系统维护”无法正常访问了，最后才发现原来是他们给网页加了限制，超过时限就无法访问了。他们是这么实现的！
1、首先建立Global.asax文件。
2、Global.asax的代码如下：
|
Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
‘ 在每个请求开始时激发
Dim strServerName, strServerPort, strServerIP, strHttpHost, strServerDate As String
Dim strError As String
strServerName = Me.Request.ServerVariables(”SERVER_NAME”)
strServerPort = Me.Request.ServerVariables(”SERVER_Port”)
strServerIP = Me.Request.ServerVariables(”LOCAL_ADDR”)
strHttpHost = Me.Request.ServerVariables(”Http_Host”)
strServerDate = Now().ToShortDateString
strError = “系统统一维护 请联系相关人员。”
Dim strIP, strPort, strDate, strDomain As String
strIP = “211.99.26.100″
strPort = “80″
strDate = “2008-12-1″
strDomain = “www.cwttrip.com”
Dim strCase As String
strCase = “3″
Select Case strCase
Case “1″
If strHttpHost <> “www.cwttrip.com” Then
Response.Redirect(”http://” + strDomain + “”)
Response.End()
Exit Sub
End If
Case “2″
If strServerIP <> strIP Or strServerPort <> strPort Or Date.Compare(Now(), CDate(strDate)) > 0 Then
Response.Write(strError)
Response.End()
Exit Sub
End If
Case “3″
If Date.Compare(Now(), CDate(strDate)) > 0 Then
Response.Write(strError)
Response.End()
Exit Sub
End If
Case “4″
If strServerIP <> strIP Then
Response.Write(strError)
Response.End()
Exit Sub
End If
Case “5″
Response.Write(strError)
Response.End()
Exit Sub
End Select
End Sub
|