global.asax

这是该书上的所有源代码,不错

<script language="VB" runat="server">

    Sub Application_Start(Sender As Object, E As EventArgs)
        ' Do application startup code here
    End Sub

    Sub Application_End(Sender As Object, E As EventArgs)
        ' Clean up application resources here
    End Sub

    Sub Session_Start(Sender As Object, E As EventArgs)
        Response.Write("进程开始...<br>")
    End Sub

    Sub Session_End(Sender As Object, E As EventArgs)
        ' Clean up session resources here
    End Sub

    Sub Application_BeginRequest(Sender As Object, E As EventArgs)
        Response.Write("<h3><font face='Verdana'>使用的文件是 Global.asax </font></h3>")
        Response.Write("请求开始...<br>")
    End Sub

    Sub Application_EndRequest(Sender As Object, E As EventArgs)
        Response.Write("请求结束...<br>")
    End Sub
    
    Sub Application_Error(Sender As Object, E As EventArgs)
        Context.ClearError()
        Response.Redirect("error.htm")
    End Sub

</script>