Mega Code Archive

 

Categories / ASP.Net Tutorial / Development

 

URL rewriting HttpModule (VB)

Imports Microsoft.VisualBasic Imports System.Web Public Class SimpleRewriter     Implements System.Web.IHttpModule     Dim WithEvents _application As HttpApplication = Nothing     Public Overridable Sub Init(ByVal context As HttpApplication) _             Implements IHttpModule.Init         _application = context     End Sub     Public Overridable Sub Dispose() Implements IHttpModule.Dispose     End Sub     Public Sub context_BeginRequest(ByVal sender As Object, ByVal e As EventArgs) _             Handles _application.BeginRequest         Dim requesturl As String = _             _application.Context.Request.Path.Substring(0, _             _application.Context.Request.Path.LastIndexOf("/"c))         Dim parameters() As String = _             requesturl.Split(New [Char]() {"/"c}, _                 StringSplitOptions.RemoveEmptyEntries)         If (parameters.Length > 1) Then             Dim firstname As String = parameters(1)             Dim lastname As String = parameters(2)             _application.Context.RewritePath("~/unfriendly.aspx?firstname=" & _                 firstname & "&lastname=" & lastname)         End If     End Sub End Class