Imports System Imports System.Web Namespace MyHttpModule '/ <summary> '/ MyHttpModule 的摘要说明。 '/ </summary> Public Class MyHttpModule Implements IHttpModule Public Sub New() ' ' TODO: 在此处添加构造函数逻辑 ' End Sub Private Sub Application_BeginRequest(ByVal obj As Object, ByVal e As EventArgs) Dim application As HttpApplication = CType(obj, HttpApplication) Dim context As HttpContext = application.Context Dim response As HttpResponse = context.Response Dim request As HttpRequest = context.Request response.Write("Application_BeginRequest<br>") response.Write(context.Request.Url.ToString() + "<br>") End Sub Public Sub Init(ByVal application As HttpApplication) application.BeginRequest+=New EventHandler(Me.Application_BeginRequest) application.AuthorizeRequest+=New EventHandler(Me.Application_AuthorizeRequest) End Sub Private Sub Application_AuthorizeRequest(ByVal source As Object, ByVal e As EventArgs) Dim application As HttpApplication = CType(source, HttpApplication) Dim context As HttpContext = application.Context context.Response.Write("Application_AuthorizeRequest<br>") End Sub
Imports System.Web
Namespace MyHttpModule
'/ <summary>
'/ MyHttpModule 的摘要说明。
'/ </summary>
Public Class MyHttpModule
Implements IHttpModule
Public Sub New()
'
' TODO: 在此处添加构造函数逻辑
'
End Sub
Private Sub Application_BeginRequest(ByVal obj As Object, ByVal e As EventArgs)
Dim application As HttpApplication = CType(obj, HttpApplication)
Dim context As HttpContext = application.Context
Dim response As HttpResponse = context.Response
Dim request As HttpRequest = context.Request
response.Write("Application_BeginRequest<br>")
response.Write(context.Request.Url.ToString() + "<br>")
End Sub
Public Sub Init(ByVal application As HttpApplication)
application.BeginRequest+=New EventHandler(Me.Application_BeginRequest)
application.AuthorizeRequest+=New EventHandler(Me.Application_AuthorizeRequest)
End Sub
Private Sub Application_AuthorizeRequest(ByVal source As Object, ByVal e As EventArgs)
Dim application As HttpApplication = CType(source, HttpApplication)
Dim context As HttpContext = application.Context
context.Response.Write("Application_AuthorizeRequest<br>")
End Sub
Public Sub Dispose()
End Sub
End Class
End Namespace工具转的。给分吗?