Navigazione nel sito

[rosbon]

Ciao, facendo un po' di ricerche, ho trovato questo script per creare una barra di navigazione:

<%
domain = Request.ServerVariables("HTTP_HOST") 'Host
dir = Request.ServerVariables("PATH_INFO") 'Directory di base
q_string = Request.ServerVariables("QUERY_STRING") 'Query string
if q_string = "" or IsNull(q_string) then
	path_completo = dir 'Path completo
else
	path_completo = dir &"?"& q_string 'Path completo
end if
dirArr = Split(dir, ">")
pag_corrente = uBound(dirArr)
response.write pag_corrente
%>

Con

<%=path_completo%>

si stampa l'intero percosro.
Ma come linkarlo??

[Roby_72]

domain = Request.ServerVariables("HTTP_HOST") 'Host
dir = Request.ServerVariables("PATH_INFO") 'Directory di base
q_string = replace(Request.ServerVariables("QUERY_STRING"), "&", "&") 'Query string
if q_string = "" or IsNull(q_string) then
	path_completo = dir 'Path completo
else
	path_completo = dir &"?"& q_string 'Path completo
end if

dirArr = Split(path_completo, "/")
pag_corrente = uBound(dirArr)-1

sDoveSei = ""
sHome = "Home»"
if pag_corrente > 0 then
	For i = 1 to pag_corrente
		if i > 1 then sDoveSei = sDoveSei &"»"
		if q_string &"[]" <> "[]" and i = pag_corrente then
			'Se sto all'ultima cartella aggiungo la querystring se esiste
			path = path & "/" & dirArr(i) & "/?" & q_string
		else	
			path = path & "/" & dirArr(i)
		end if

		'Per il link e il title
		primaLettera = ucase(left(dirArr(i), 1))
		resto = mid(replace(dirArr(i), "_", " "), 2)
		resto = replace(resto, ".asp","")

		if i = pag_corrente then
			sDoveSei = sDoveSei & primaLettera & resto
		else
			sDoveSei = sDoveSei &""& primaLettera&resto &""
		end if
	Next
	sDoveSei = sHome & sDoveSei
end if

Roby

[rosbon]

Acc... non pensavo fosse cosi' complesso.
Grazie Roby per la disponibilità.
Provo subito.

[rosbon]

OK provato.
Se scrivo

<%=sDoveSei%>

mi stampa il percorso della cartella regolarmente linkato, ma non quello della pagina.
Sbaglio qualcosa??
In effetti un qualcosa del genere già l'ho visto:

<%
dir = Request.ServerVariables("Path_Info")
dirArr = Split(dir, "/")%>
<%Response.write "Sei in: "%> 
<%Response.write "<a href=/>Home</a>"
For i = 1 to uBound(dirArr) -1
Response.write " &gt; "
path = path & "/" & dirArr (i)
Response.write "<a href=" & path & ">" & Replace (dirArr (i), "_", " ") 
Response.write "</a>"
Next
%>

e pure lo script sopra descritto stampa il percorso della cartella.
Tutte le pagine interessate però sono in un'unica cartella.
Che fare??

[Roby_72]

Devi usare un database.
Come puoi pensare che da solo sappia crearti un percorso dal nulla?
Il mio esempio ragiona per cartelle: diversamente devi usare un db nel quale inserire categorie e sottocategorie, quindi i percorsi logici che legano ogni pagina (padre-figlio-nipote, ecc...).

Roby

[rosbon]

Ciao. Si ho capito. Ho già visto qualcosa nella ricerca.
Grazie per tutto.