Notifikationer

Markér alle som læst Log ud

12tri Nybegynder

01. marts 2001 - 20:23 Der er 17 kommentarer og
1 løsning

Stigen til det dokument brugeren befinder

Jeg har nu på mange hjemmesider set, at man har skrevet stigen til det dokument brugeren befinder sig på.

Eks.
Forsiden > Produkter > Regnfrakker > Model: vandtæt

Hvordan er dette lavet. Her folkene bag disse hjemmesider virkelig siddet og skrevet dette ned på hver enkelt side.
Eller er der en smart løsning som jeg ikke kender til. Måske noget asp, hvilket gør følgende.

Hvis produkt mappe så skriv: > Produkter
Hvis regnfrakker er valg så skriv: > Regnfrakker
Hvis model vandtæt valgt så skriv: > Model: vandtæt

Skal hjemmesiden være bygget op på i database for at dette virker, eller er der en helt anden løsning, det skal lige siges at jeg er total asp newbie

Synes godt om

tdaugaard Nybegynder

01. marts 2001 - 20:27 #1

Hvis du f.eks. har dit site sådan her:

Root (index)
|
+-- underside
| +-- underside
|
+-- underside

etc.

så kan du jo bruge Server variablen SCRIPT_NAME og vha. Split() få udskrevet hele bilbioteksstrukturen.

F.eks.

<%
strSN = Request.ServerVariables(\"SCRIPT_NAME\")
strSN = Left(strSN, InStrRev(strSN, \"\\\")

arrDirs = Split(strSN, \"\\\")

For Index = 0 To UBound(arrDirs)
Response.Write arrDirs(Index) & \"<br>\"
Next
%>

Synes godt om

12tri Nybegynder

01. marts 2001 - 20:31 #2

Ja, men hvordan får jeg lavet stigen om til en mere formateret text.

Så der i steder for
www.enside/bent/hansen/

Komemr til at stå
Forside > Bent > Hansen

Synes godt om

tdaugaard Nybegynder

01. marts 2001 - 20:35 #3

SCRIPT_NAME vil give dig noget a\'la:

bent/hansen/default.asp

så fjerner jeg alt efter den sidste / og så splitter jeg den ved /.

Noget i den retning ?

<a href=\"default.asp\">Forside</a> >
<%
strSN = Request.ServerVariables(\"SCRIPT_NAME\")
strSN = Left(strSN, InStrRev(strSN, \"\\\")

arrDirs = Split(strSN, \"\\\")

For Index = 0 To UBound(arrDirs)
Select Case (Index < UBound(arrDirs)
Case True: Response.Write arrDirs(Index) & \" > \"
Case False: Response.Write arrDirs(Index)
End Select
Next
%>

Synes godt om

a-torsten Nybegynder

01. marts 2001 - 20:36 #4

thomas.... Der er fejl i din kode....

Synes godt om

tdaugaard Nybegynder

01. marts 2001 - 20:38 #5

a-torsten:> ja det kan jeg se .. der mangler en ) i

Select Case (Index < UBound(arrDirs)

ret den til

Select Case (Index < UBound(arrDirs))

Synes godt om

12tri Nybegynder

01. marts 2001 - 21:02 #6

Kan i ikke skrive den komplete kode

Synes godt om

tdaugaard Nybegynder

01. marts 2001 - 21:03 #7

<%
strSN = Request.ServerVariables(\"SCRIPT_NAME\")
strSN = Left(strSN, InStrRev(strSN, \"\\\")

arrDirs = Split(strSN, \"\\\")

For Index = 0 To UBound(arrDirs))
Select Case (Index < UBound(arrDirs)
Case True: Response.Write arrDirs(Index) & \" > \"
Case False: Response.Write arrDirs(Index)
End Select
Next
%>

det var det ...

Synes godt om

12tri Nybegynder

01. marts 2001 - 21:23 #8

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a03ee\'

Tegnet \')\' var ventet

/Default.asp, linje 16

strSN = Left(strSN, InStrRev(strSN, \"\\\")
----------------------------------------^

Synes godt om

12tri Nybegynder

01. marts 2001 - 21:23 #9

Denne fejl kommer

Synes godt om

tdaugaard Nybegynder

01. marts 2001 - 21:27 #10

avs ja .. jeg glemte vist lige den parantes *G*

<%
strSN = Request.ServerVariables(\"SCRIPT_NAME\")
strSN = Left(strSN, InStrRev(strSN, \"\\\"))

arrDirs = Split(strSN, \"\\\")

For Index = 0 To UBound(arrDirs))
Select Case (Index < UBound(arrDirs)
Case True: Response.Write arrDirs(Index) & \" > \"
Case False: Response.Write arrDirs(Index)
End Select
Next
%>

Synes godt om

12tri Nybegynder

01. marts 2001 - 21:46 #11

(Index < UBound(arrDirs)

Mangler der ikke også en ) her

Synes godt om

a-torsten Nybegynder

01. marts 2001 - 21:47 #12

Jo der gør....

-Anders

Synes godt om

tdaugaard Nybegynder

09. marts 2001 - 14:24 #13

hvaaaøøø `?

Synes godt om

12tri Nybegynder

09. marts 2001 - 14:42 #14

Når jeg sætte scriptet ind på en side, sker der intet, siden blive blot vist som den plejer.

Synes godt om

12tri Nybegynder

14. marts 2001 - 10:09 #15

Hvad skal jeg gøre for at få noget udskrevet på skærmen

Synes godt om

tdaugaard Nybegynder

14. marts 2001 - 11:32 #16

Det gør det vha. Response.Write ... giv os lige dit script

Synes godt om

12tri Nybegynder

16. marts 2001 - 13:43 #17

Mit script ?
Det er det jeg håbede på at i kunne lave til mig ?
Eller er det koden til selve siden ?

Synes godt om

12tri Nybegynder

29. juni 2001 - 00:17 #18

Ok har fået det til at virke

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS