Ciao Santino
dopo innumerevoli tentativi direi che è arrivato il momento di arrendermi e chiedere disperatamente il tuo aiuto... ti giuro ce lo messa tutta. Ma ora che pure il mio Debug mi ha lasciato a piedi sono veramente fo...uto.
La mappa che hai creato va benissimo ma bisogna rivedere il sistema di srittura degli URL dei link se no è tutto inutile.
In sostanza bisognerebbe costruire un sistema url-rewriting dei link
Ora con il sistema che hai impostato ottengo indirizzi del tipo:
Codice PHP:
nomepagina?ID=1
nomepagina?ID=2
... ...
nomepagina?ID=n
mentre a me serve avere link strutturati in questa maniera:
Codice PHP:
news_1.htm
news/articolo_2.htm
news/articolo_n.htm
... ...
vendita_case_16.htm
vendita_case/articolo_45.htm
vendita_case/articolo_n.htm
... ...
affitti_turistici_17.htm
affitti_Turistici/articolo_26.htm
affitti_Turistici/articolo_n.htm
... ...
itinerari_turistici_nel_delta_19.htm
itinerari_turistici_nel_delta/comacchio_28.htm
itinerari_turistici_nel_delta/comacchio/articolo_31.htm
oppure di questo tipo:
Codice PHP:
news/10_01_2006___apertura_nuova_sede.htm
news/pattimare_5.htm
... ...
la differenza tra questi due metodi deve essere impostabile tramite la variabile
Codice PHP:
CONST urlNomeScheda = 1
'0 = all'url che identifica la foglia viene associato un prefisso costante contenuto nella variabile "nomeScheda"
'1 = all'url che identifica la foglia viene dato il nome della scheda opportunamente filtrato da caratteri indesiderati (vedi FUNCTION Filtra_Nome(nome))
Dim nomeScheda
nomeScheda = "articolo_"
'********************************************************************************************************
'Filtra la stringa passata come argomento al fine di evitare che nell'url del browser vengano passati nomi
'conteneti caratteri speciali. Esempio lo spazio " " verrebbe trascritto dai Browser come %20
'********************************************************************************
FUNCTION Filtra_Nome(nome)
DIM nome_temp
nome_temp = replace(nome,chr(224),"a") ' (à)
nome_temp = replace(nome_temp,chr(232),"e") ' (é)
nome_temp = replace(nome_temp,chr(236),"i") ' (ì)
nome_temp = replace(nome_temp,chr(242),"o") ' (ò)
nome_temp = replace(nome_temp,chr(249),"u") ' (ù)
nome_temp = Super_replace(nome_temp)
if urlCaseSensitive = 0 then
nome_temp = LCase(nome_temp) 'converto tutti i caratteri in caratteri minuscoli
end if
Filtra_Nome = nome_temp
END FUNCTION
' sostituire tutti i caratteri che non sono lettere o numeri in un "_" (underscore)
Function Super_replace(stringa)
dim re
Set re = new RegExp
re.Global=True
re.Pattern="\W"
stringa = re.Replace(stringa,"_")
Super_replace=stringa
Set re=nothing
End Function
l'impostazione della costante urlNomeScheda quindi definisce il diverso comportamento di scrittura del'url ma solo per le foglie "P" dell'albero.
io lo già fatto ma con 3.000.000 di chimate al database invece so che basterebbe sfruttare il contenuto di questa variabile base=server.CreateObject("scripting.dictionary") invece di stressare il server.
Non ci riesco...
Per cui in ginocchio ti chiedo aiuto