Еще раз об UrlRewrite

Программирование Web-приложений и Web-сервисов.

Модератор: Ramzes

Roman Koff
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 495
Зарегистрирован: 17.09.2008 (Ср) 9:22
Откуда: От туда

Еще раз об UrlRewrite

Сообщение Roman Koff » 08.12.2008 (Пн) 17:06

На основе кода, любезно предоставленного Гайдаром, я написал простенький модуль для подмены урла.

Смысл в следующем:
При обращении к адресу http://site/dir приложение получает адрес http://site/Default.aspx?n=dir
Дальше все обрабатывается и т.д.

Проблема в том, что для работы решения необходимо создавать фактически каталоги в приложении IIS с необходимыми именами и в них кидать заглушку Default.aspx (пустой файл). Иначе управление не передается модулю подмены, а вылетает ошибка 404

Можно ли решить задачу без создания каталогов-заглушек?

Код: Выделить всё
Imports System.Collections.Specialized
Imports System.Web

Public Class ParametersClass
   Private _Params As NameValueCollection
   Private _InitialUrl As String
   Sub New()
      Me._Params = New NameValueCollection
      Me._InitialUrl = String.Empty
   End Sub
   Sub New(ByVal param As NameValueCollection, ByVal url As String)
      Me._InitialUrl = url
      Me._Params = New NameValueCollection(param)
   End Sub
   Property [Params]() As NameValueCollection
      Get
         Return Me._Params
      End Get
      Set(ByVal value As NameValueCollection)
         Me._Params = value
      End Set
   End Property
   Property [InitialUrl]() As String
      Get
         Return Me._InitialUrl
      End Get
      Set(ByVal value As String)
         Me._InitialUrl = value
      End Set
   End Property
   Shared ReadOnly Property [Current]() As ParametersClass
      Get
         If HttpContext.Current.Items.Contains("RequestRewriterParameters") Then
            Return CType(HttpContext.Current.Items("RequestRewriterParameters"), ParametersClass)
         Else
            Return New ParametersClass
         End If
      End Get
   End Property
End Class

Public Class UrlRewriter : Implements IHttpModule
   Public Const CONST_RequestRewriterCallDir01 As String = "requestrewritercalldir01"
   Public Sub Dispose() Implements IHttpModule.Dispose
   End Sub
   Public Sub Init(ByVal context As System.Web.HttpApplication) Implements IHttpModule.Init
      AddHandler context.BeginRequest, AddressOf Me.Application_BeginRequest
      AddHandler context.PreRequestHandlerExecute, AddressOf Me.Application_PreRequestHandlerExecute
   End Sub
   Private Sub Application_BeginRequest(ByVal source As Object, ByVal e As EventArgs)
      Dim _Application As HttpApplication = CType(source, HttpApplication)
      Dim _Path As String = _Application.Context.Request.Path.ToLower
      Dim _PathItems() As String = _Path.Split("/"c)
      Dim _PathItemsCount As Integer = _PathItems.GetUpperBound(0)
      Dim _CallName As String = _PathItems(_PathItemsCount)
      Dim _ParamCallDir01 As String = CONST_RequestRewriterCallDir01 & "=" & _PathItems(_PathItemsCount - 1)
      Dim _QueryString As String = _Application.Context.Request.QueryString.ToString
      _Application.Context.Items.Add("OriginalUrl", _Application.Context.Request.RawUrl)
      If _QueryString.Length > 0 Then
         _ParamCallDir01 = "&" & _ParamCallDir01
      End If
      _QueryString = "?" & _QueryString & _ParamCallDir01
      _Application.Context.RewritePath("~/" & _CallName & _QueryString)
   End Sub
   Private Sub Application_PreRequestHandlerExecute(ByVal source As Object, ByVal e As EventArgs)
      Dim _Application As HttpApplication = CType(source, HttpApplication)
      If (TypeOf _Application.Context.CurrentHandler Is UI.Page) And (Not _Application.Context.CurrentHandler Is Nothing) Then
         Dim _Page As System.Web.UI.Page = CType(_Application.Context.CurrentHandler, UI.Page)
         AddHandler _Page.PreInit, AddressOf Me.Page_PreInit
      End If
   End Sub
   Protected Sub Page_PreInit(ByVal source As Object, ByVal e As EventArgs)
      If HttpContext.Current.Items.Contains("OriginalUrl") Then
         Dim _Path As String = CType(HttpContext.Current.Items("OriginalUrl"), String)
         Dim _Cont As New ParametersClass(HttpContext.Current.Request.QueryString, _Path)
         HttpContext.Current.Items("RequestRewriterParameters") = _Cont
         If _Path.IndexOf("?") = -1 Then
            _Path &= "?"
         End If
         HttpContext.Current.RewritePath(_Path)
      End If
   End Sub
End Class
Слава роботам! Убить всех человеков! Bite my shiny metal ass!

Roman Koff
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 495
Зарегистрирован: 17.09.2008 (Ср) 9:22
Откуда: От туда

Re: Еще раз об UrlRewrite

Сообщение Roman Koff » 08.12.2008 (Пн) 17:30

Забыл добавить - это все под IIS 6.0
Слава роботам! Убить всех человеков! Bite my shiny metal ass!

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4256
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: Еще раз об UrlRewrite

Сообщение iGrok » 08.12.2008 (Пн) 18:16

Я, конечно, не до конца в теме, и с IIS не работал..
Но если я правильно понял вопрос, надо искать аналог .htaccess и mod_rewrite под IIS.
Нечто подобное - тут. http://www.drupal.ru/node/8758

Ещё можно поискать так:
http://www.google.com/search?rls=ru&q=IIS+%D0%A7%D0%9F%D0%A3
label:
cli
jmp label

Roman Koff
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 495
Зарегистрирован: 17.09.2008 (Ср) 9:22
Откуда: От туда

Re: Еще раз об UrlRewrite

Сообщение Roman Koff » 08.12.2008 (Пн) 19:04

2iGrok речь немного о другом. Мне не нужен сторонний инструмент для ревратинга, я хочу его сделать сам и по проще (для простой задачи) ...
Слава роботам! Убить всех человеков! Bite my shiny metal ass!


Вернуться в ASP.NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList