12月20日晚,于气愤、发泄、痛苦、无奈之后对世间有所感悟，想起一首诗：
心平何劳持戒，行直何用修禅。
恩则孝养父母，义则上下相怜。
让则尊卑和睦，忍则众恶无喧。
若能钻木取火，淤泥定生红莲。
苦口必是良药，逆耳必是忠言。
改过必生智慧，护短心内非贤。
日用常行饶益，成道非由施钱。
菩提只向心觅，何劳向外求玄。
听说依此修行，天堂只在目前。
今天公司的一个外包程序突然显示“系统维护”无法正常访问了，最后才发现原来是他们给网页加了限制，超过时限就无法访问了。他们是这么实现的！
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
|