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