Announcement

Collapse
No announcement yet.

Im PageLoad Domain Header prüfen und eventuell umleiten

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Im PageLoad Domain Header prüfen und eventuell umleiten

    Hallo,
    ich würde gern im Pageload die eingetragene Domain prüfen und falls kein www davor steht auf die www Seite umleiten.
    Beispiel:
    http://meineDomain.de/de/irgendwas.aspx

    soll nach

    http://www.meineDomain.de/de/irgendwas.aspx

    jemand ne Idee?

  • #2
    ganz schön Still hier geworden :-(

    Naja durch Ben's Bastelstunde hab ich mein Problem selbst gelöst.
    Hier mein Code, vielleicht hat ja noch wer Tuning vorschläge ;-)
    Code:
        Private Sub myHttp_www_davor()
            Dim mycontext As HttpContext = Context
            Dim myHost As String = mycontext.Request.Url.Host
            If IsNothing(myHost) Then Exit Sub
            If myHost = "localhost" Then Exit Sub
    
            If myHost.ToLower.StartsWith("www") = False Then
                'Wegen URL Mapping bastel ich mir die Uri aus der RawUrl
                Dim newUrl As String = String.Format("http://www.{0}{1}", myHost, Context.Request.RawUrl)
    
                'So gehts ohne URL Mapping
                'Dim newUrl As String = Context.Request.Url.AbsoluteUri.Replace(myHost, "www." & myHost)
    
                Context.Response.StatusCode = 301
                Context.Response.StatusDescription = "Moved Permanently"
                Context.Response.RedirectLocation = newUrl
                Context.Response.End()
    
            End If
        End Sub

    Comment

    Working...
    X