---

Er der nogen der har en idé til hvordan man kan lave en funktion, der laver
en absolut URL om til en relativ?

F.eks. C:\Inetpub\wwwroot\mappe1\mappe2 --> /mappe1/mappe2


MVH Jonas (aka Juke)

---

Jonas Schmeltz Aaberg wrote in dk.edb.internet.webdesign.serverside.asp:
> Er der nogen der har en idé til hvordan man kan lave en funktion, der laver
> en absolut URL om til en relativ?
>
> F.eks. C:\Inetpub\wwwroot\mappe1\mappe2 --> /mappe1/mappe2

Jeg tror ikke der er nogen standardmetode til det, men prøv at leg med noget i
denne stil:
s = "C:\Inetpub\wwwroot\mappe1\mappe2"
rod = Server.MapPath("/")
laengde = Len(r)
relativ1 = Mid(s, laengde)
relativ2 = Replace(relativ1, "\", "/")

/Torben

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Torben Brandt skrev:

> s = "C:\Inetpub\wwwroot\mappe1\mappe2"
> rod = Server.MapPath("/")
> laengde = Len(r)
> relativ1 = Mid(s, laengde)
> relativ2 = Replace(relativ1, "\", "/")

Jeg vil foreslå at man også tjekker om rodens adresse matcher
starten af s - det er jo ikke sikkert at s ligger i webscope.

Det kan fx tjekkes sådan her:

If lower(rod) = lower(left(s, laengde)) Then
   ' o.k.

Ovenstående kan og bør forbedres til at håndtere s både med og uden
afsluttende "\".
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jens Gyldenkærne Clausen wrote:
> Torben Brandt skrev:
>
>
>> s = "C:\Inetpub\wwwroot\mappe1\mappe2"
>> rod = Server.MapPath("/")
>> laengde = Len(r)
>> relativ1 = Mid(s, laengde)
>> relativ2 = Replace(relativ1, "\", "/")
>
>
> Jeg vil foreslå at man også tjekker om rodens adresse matcher
> starten af s - det er jo ikke sikkert at s ligger i webscope.
>
> Det kan fx tjekkes sådan her:
>
> If lower(rod) = lower(left(s, laengde)) Then
>    ' o.k.
>
> Ovenstående kan og bør forbedres til at håndtere s både med og uden
> afsluttende "\".


Her er en annen variant som benytter seg av et par av server variablene:

Response.Write VirtualPath(Request.ServerVariables("SCRIPT_NAME"))

Function VirtualPath(sPath)

   '// Denne gir path til parent folder. Stryk denne linjen om du vil ha
med filnavnet.
   sPath = Left(sPath, InstrRev(sPath, "/", Len(sPath)))
   VirtualPath = "http://" & Request.ServerVariables("HTTP_HOST") & sPath

End Function

terje