global.asax

来自「Code for VB.NET教程源码 很好的源码」· ASAX 代码 · 共 20 行

<%@ Application Inherits="MyApplication" %>

<Script language="VB" runat=server>
  Public Sub Application_OnBeginRequest()

    Dim TimeStamp As String
    TimeStamp = CurrentTime()

    Response.Write("Request Begining TimeStamp: " + TimeStamp)
    Response.Write("<HR size=1>")
  End Sub

  Public Sub Application_OnEndRequest()
    Dim TimeStamp As String
    TimeStamp = CurrentTime()

    Response.Write("<HR size=1>")
    Response.Write("Request Ending TimeStamp: " + TimeStamp)
  End Sub
</Script>