Barre de Navigation [ASP-PHP] Lire un dossier
Barre de Navigation Celle qui est en haut de page !...

Voir le script PHP ?

_navigation.asp

<% ' BARRE DE NAVIGATION sub dolinkbar()    dim page,url0,lk,lk2,fc,f,temp,z    ' Lien vers page d'accueil du site    lk = "<table border=0 cellspacing=0 cellpadding=3 class=bgnav>" _       & "<tr><td nowrap><A target=_top href='" & prefix & LANG & "'>ASP-PHP.net</A>"    ' Nom de la page courante    page = mid(url,instrrev(URL,"/")+1)    ' Simplification de l'URL    URL0=replace(URL,page,"")    lk2 = prefix & LANG    if LANG="" then lk2=left(lk2,len(lk2)-1)    URL0=replace(URL0,lk2,"")    ' Découpage de l'URL au caractère / et liens vers arborescence    while URL0<>"/"       k = instr(2,URL0,"/")       lk2 = lk2 & left(URL0,k-1)       lk = lk & "<td nowrap> / <A href='" & lk2 & "' target=_top>" _          & up1(replace(mid(URL0,2,k-2),"_"," ")) & "</A></td>"       URL0 = mid(URL0,k)    wend    ' Liste déroulante à déclenchement automatique    temp = "<td nowrap> / </td><form name='navig'><td>" _         & "<select class=input name=""liste"" onchange=" & chr(34) _         & "javascript:top.location.replace (navig.liste.options[navig.liste.selectedIndex].value)" _         & chr(34) & "><option class=input value='default.asp'>" & default & "</option>"    ' Liste des sous-dossiers    set fc = FSO.GetFolder(server.MapPath(lk2)).subfolders    for each f in fc       ' Dossier invisible commence par _       if left(f.name,1)<>"_" then          temp = temp & "<option class=input value='" & lk2&"/"&f.name & "'>/" _             & up1(replace(f.name,"_"," ")) & "</option>"          z = z+1       end if    next    ' Liste des fichiers du répertoire courant    set fc = FSO.GetFolder(server.MapPath(lk2)).files    for each f in fc       ' Fichier non .asp ou page invisible ?       if f.name <> "default.asp" and right(f.name,3)="asp" and left(f.name,1)<>"_" then          temp = temp & "<option class=input"          ' La page courante ?          if lcase(f.name) = page then temp = temp & " SELECTED"          temp = temp & " value='" & lk2&"/"&f.name & "'>" _             & up1(replace(replace(f.name,".asp",""),"_"," ")) & "</option>"          z=z+1       end if    next    if z = 0 then temp="" else temp = temp & "</select></td></form>"    response.write lk & temp & "</tr></table>" end sub dolinkbar %>

A appeler de la manière suivante :

Ou alors en PHP :

_navigation.php

<? // BARRE DE NAVIGATION function dolinkbar() {    global $URL,$prefix,$LANG,$default;    // Lien vers page d'accueil du site    $lk = "<table border=0 cellspacing=0 cellpadding=3 style='background:#FFCC99'>";    $lk .= "<tr><td nowrap><A href='".$prefix.$LANG."' target=_top>ASP-PHP.net</A>";    // Nom de la page courante    $page = substr($URL,strrpos($URL,"/")+1);    // Simplification de l'URL    $URL0=str_replace($page,"",$URL);    $lk2 = $prefix.$LANG;    $URL0=str_replace($lk2,"",$URL0);    // Découpage de l'URL au caractère / et liens vers arborescence    while(($URL0!="")&&($URL0!="/")) {       $k = strpos($URL0,"/",1);       $lk2 .= substr($URL0,0,$k);       $lk .="<td nowrap> / <A href='".$lk2."' target=_top>";       $lk .=ucfirst(str_replace("_"," ",substr($URL0,1,$k-1)))."</A></td>";       $URL0 = substr($URL0,$k);    }    // Liste déroulante à déclenchement automatique    $temp = "<td nowrap> / </td><form name='navig'><td>";    $temp.= "<select class=input name='liste' onchange=\"";    $temp.= "javascript:top.location.replace(navig.liste.options[navig.liste.selectedIndex].value)";    $temp.= "\"><option class=input value='index.php'>".$default."</option>";    $dir = opendir(".");    while ($f = readdir($dir)) {       // Liste des sous-dossiers       if(is_dir($f)&&($f!=".")&&($f!=".."))          // Dossier invisible commence par _          if(substr($f,0,1)!="_") {             $temp.="<option class=input value='".$lk2."/".$f."'>/";             $temp.=ucfirst(str_replace("_"," ",$f))."</option>";             $z+=1;          }       // Liste des fichiers du répertoire courant       if(is_file($f))          // Fichier non .php ou page invisible ?          if((substr($f,0,1)!="_")&&(strpos($f,".php")>0)&&($f!="index.php")) {             $temp2.="<option class=input";             // La page courante ?             if(strtolower($f)==$page) $temp2.=" SELECTED";             $temp2.=" value='".$lk2."/".$f."'>";             $temp2.=ucfirst(str_replace(".php","",str_replace("_"," ",$f)))."</option>";             $z+=1;          }    }    closedir($dir);    if($z==0) $temp = "";    else $temp.=$temp2."</select></td></form>";    echo $lk.$temp."</tr></table>"; } dolinkbar(); ?>

A appeler de la manière suivante :