---

Spath = Request.Servervariables("Path_Info")

returner mappenavnet + filnavn.asp

Men jeg vil gerne nøje med mappenavnet. Hvordan gør man det.

---

Finn T wrote
> Spath = Request.Servervariables("Path_Info")
>
> returner mappenavnet + filnavn.asp
>
> Men jeg vil gerne nøje med mappenavnet. Hvordan gør man det.


F. eks . slik?

Response.Write ParentFolder

Function ParentFolder()
Dim sFil, i1, i2, sTmp

sFil = Request.ServerVariables("PATH_INFO")
i1=InstrRev(sFil, "/")
   sTmp = Left(sFil, i1 - 1)
   i2 = InstrRev(sTmp, "/")
ParentFolder = Mid(sTmp, i2 + 1, Len(sTmp))

End Function


terje

---

"terje" <nidaros2001@hotmail.com> skrev i en meddelelse
news:2t9hjkF1t0khrU1@uni-berlin.de...
>
> Response.Write ParentFolder
>
> Function ParentFolder()
> Dim sFil, i1, i2, sTmp
>
> sFil = Request.ServerVariables("PATH_INFO")
> i1=InstrRev(sFil, "/")
> sTmp = Left(sFil, i1 - 1)
> i2 = InstrRev(sTmp, "/")
> ParentFolder = Mid(sTmp, i2 + 1, Len(sTmp))
>
> End Function
>


Smart. Det virker så nu skal jeg bare lige forstå den også.
Tak

---

terje wrote in dk.edb.internet.webdesign.serverside.asp:

> Function ParentFolder()
> Dim sFil, i1, i2, sTmp
>
> sFil = Request.ServerVariables("PATH_INFO")
> i1=InstrRev(sFil, "/")
>    sTmp = Left(sFil, i1 - 1)
>    i2 = InstrRev(sTmp, "/")
> ParentFolder = Mid(sTmp, i2 + 1, Len(sTmp))
>
> End Function
>

Ja, gider du at forklare, hvad du gør her? Det ligner nemlig noget, der
kunne bruges i mange andre sammenhænge.


--
Mvh.

Troels Jensen
http://www.troelsweb.dk

---

Troels Jensen wrote:

>>Function ParentFolder()
>> Dim sFil, i1, i2, sTmp
>>
>> sFil = Request.ServerVariables("PATH_INFO")
>> i1=InstrRev(sFil, "/")
>>   sTmp = Left(sFil, i1 - 1)
>>   i2 = InstrRev(sTmp, "/")
>> ParentFolder = Mid(sTmp, i2 + 1, Len(sTmp))
>>
>>End Function
>>
>
>
> Ja, gider du at forklare, hvad du gør her? Det ligner nemlig noget, der
> kunne bruges i mange andre sammenhænge.


Jeg anbefaler at du bokmerker denne adressen:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vbscripttoc.asp
Her står alle vbscript funksjonene som Instr og Mid godt forklart, ofte
også med eksempler.
Sett inn Response.Write etter hver linje og se hva de ulike variablene
returnerer. Dette er den klart beste måten å forstå hva koden gjør.

En annen ting er at en slik funksjon kan skrives på flere ulike måter.
Jeg er helt sikker på at andre kan komme opp med bedre og mer
konsentrert kode enn dette. Kanskje kan det hele skrives på bare én
linje


terje