Holen Sie sich aktuelle url der Seite (verwendet URL-Rewrite)

Ich arbeite auf der klassischen asp-Anwendung.
Ich habe mit URL-rewrite auf einigen Seiten.

Wie kann ich die aktuelle url der Seite in der klassischen asp?

Beispiel:
http://www.site.com/page.asp ---> url rewrite im IIS - - - - > http://www.site.com/home/page

so, hier möchte ich die aktuelle url der Seite, die http://www.site.com/home/page

Bitte helfen Sie mir.
Danke.

  • Kannst du nicht Lesen es mit Request.ServerVariables("server_name") & Request.ServerVariables("url") ? Nicht sicher, ob das funktioniert mit umgeschrieben urls zu...
  • keine Anfrage.ServerVariables("server_name") = www.site.com und Anfrage.ServerVariables("url") = Seite.asp
  • Könntest du bitte markieren Sie diese Angaben, wenn Sie waren für Sie nützlich? Wenn nicht, lassen Sie es uns bitte wissen, damit wir die Lösung finden.
InformationsquelleAutor Maddy | 2013-03-13
  1. 17

    Können Sie versuchen, die Ausgabe aller ServerVariables etwa so:

    for each key in Request.Servervariables
  Response.Write key & " = " & Request.Servervariables(key) & "<br>"
next

    Vielleicht die URL, die Sie suchen, ist bereits vorhanden. Wir verwenden das Rewrite-Modul, und es ist eine ServerVariable namens HTTP_X_ORIGINAL_URL enthält, die umgeschrieben URL-Pfad, z.B. "/home/Seite" in deinem Beispiel.

    Protokoll (HTTPS=ON/OFF) und Server (SERVER_NAME) kann auch gefunden werden in den ServerVariables.

    InformationsquelleAutor gpinkas
  2. 19

    Gibt es keine Lust auf eine Funktion, der Sie alle tut.

    Zuerst müssen Sie das Protokoll (wenn es nicht immer ist http):

    Dim protocol
Dim domainName
Dim fileName
Dim queryString
Dim url

protocol = "http" 
If lcase(request.ServerVariables("HTTPS"))<> "off" Then 
   protocol = "https" 
End If

    Nun den rest mit optionaler query-string:

    domainName= Request.ServerVariables("SERVER_NAME") 
fileName= Request.ServerVariables("SCRIPT_NAME") 
queryString= Request.ServerVariables("QUERY_STRING")

url = protocol & "://" & domainName & fileName
If Len(queryString)<>0 Then
   url = url & "?" & queryString
End If

    Hoffe, es funktioniert für Sie.

    InformationsquelleAutor Konrad
  3. 1

    Wenn Sie URL-Rewrite das url-Daten können nur abgerufen werden, auf diese Weise:

    Anfrage.ServerVariables("HTTP_X_ORIGINAL_URL")

    Beispiel 

    Dim domainName, urlParam
domainName = Request.ServerVariables("SERVER_NAME") 
urlParam   = Request.ServerVariables("HTTP_X_ORIGINAL_URL")
response.write(domainName & urlParam)
    InformationsquelleAutor Entwickler Mak
Schreibe einen Kommentar