Designed by Derf !
65 en ligne   Boutique | Sites | Bar | Forum | PhpBB | Actu | Glossaire | Codes | Tips | Liens | Livres | Lettre  


 Recherche

 NewsLetter






   

Barre de Navigation

Celle qui est en haut de page !...





ASP-PHP.net / Scripts / Asp-php /

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 :
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
URL = lcase(Request.serverVariables("SCRIPT_NAME"))
prefix="/asphp2/" ' ou votre début de site
LANG="fr" ' un dossier par langue ou vide
default = "Accueil"

function up1(txt) ' Capitalise l'initiale
   if txt <> "" then up1 = Ucase(left(txt,1)) & Lcase(mid(txt,2))
end function
%>

<HTML><BODY>
   ...
   <!-- #include virtual="/_navigation.asp"-->
   ...
</BODY></HTML>


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 :
<?
$URL = strtolower(getenv("SCRIPT_NAME"));
$prefix = "/asphp2/"; // ou votre début de site
$LANG = "fr"; // un dossier par langue ou vide
$default = "Accueil";
?>

<HTML><BODY>
   ...
   <? include("_navigation.php"); ?>
   ...
</BODY></HTML>

Enjoy !

Pour pouvoir écrire dans ce forum, identifiez-vous !

  v1.3p © ASP-PHP.net 2002  

Didier le 03/06/2003 (57 977 hits)
Didier Téléchargez gratuitement et légalement des logiciels Microsoft ! Si, si ;)
  • Visual Studio 2010
  • Office 2010
  • Expression Studio 3
  • SQL Server 2008
  • et d'autres...
Au fil des news  
Magazines - Le N°128 de Programmez est disponible
Magazines - Le N°127 de Programmez est disponible
Dreamweaver CS4 + Php + Mysql - Trucs et Astuces - Part 6
Pour continuer dans le même style, je vous propose une suite au précédent article. Rechercher tous ...
Adobe - Adobe Photoshop.com Mobile pour iPhone 1.1
JavaScript - Ajouter une page dans vos favorites
Dreamweaver CS4 + Php + Mysql - Trucs et Astuces - Part 5 -
Je vous propose cette fois deux astuces. Comment exporter une feuille de style avec l'aide de ...
SharePoint Personalization Site Links - Les liens personnalisés des MySite SharePoint
Nous avons vu dans les articles précédents comment agrémenter les pages de recherche afin de ...
Magazines - Le n°126 de Programmez est disponible
Outils - Traducteur en ligne automatique pour site web
Adobe - Adobe Photoshop.com Mobile pour Iphone
Magazines - Le n°125 de Programmez est disponible
Adobe - Adobe AIR 2 et Flash Player 10.1version bêta
Les conférences autour des technologies Microsoft - Liste non exhaustive des grands évènements
Nous allons essayer de regrouper un grand nombre des évènements autour des technologies Microsoft ...
Magazines - Le n°124 de Programmez est disponible
PHP - Forum PHP 2009
Composants - eFace - XAML en Java
WPF - Désactiver le bouton de réduction d'une fenêtre
Magazines - Le n°123 de Programmez est disponible
Magazines - Le n°122 de Programmez est disponible
Auditer une ferme SharePoint - Assurer le bon fonctionnement de SharePoint
Dans le cadre de la bonne gestion de son environnement SharePoint, il est utile de faire un ...
SQL Server 2008 Report Builder 2.0 - Installation et utilisation de Report Builder 2.0
Dans le cadre de la création de rapports pour SQL Server Reporting Services 2008, un outil est ...
Magazines - Le HS N° 1 de Web Design est disponible
Adobe - Adobe propose en Open Source les frameworks.....
Outils - EntityBuilder
CSharp - Sérialisation XML de vos objets
Magazines - Le n°121 de Programmez est disponible
Adobe - Adobe annonce MAX 2009 !
Outils - WhoIs
[MAJ] Dreamweaver MX + Php + MySql - Les formulaires - partie 3
Mise à jour du code, par DB 77, affichage du code erreur, dans la page erreur.php, traduction des ...
PHP - News avec photo - Système de gestion - affichage
Gestion - Administration - Affichage d'une "News", "Actualité", "Info", ... avec : - mise en forme ...
Outils - Crypt
Dreamweaver Php Mysql - Région répétée imbriquée
Je rebondis, sur un post du forum, pour vous montrer comment obtenir grâce à l'extension Simulated ...
Magazines - Le n° 120 de Programmez est disponible
Gérer les bases de contenu SharePoint - Gérer la croissance du volume des données
Dans le cadre de la gestion quotidienne de ferme SharePoint, il existe une partie qu'il faut ...
PHP - Le Coach PHP sur Visual Studio
.NET - Ecrire une application .NET utilisant MySQL
PHP - Utilisation de PHP dans le monde Microsoft
Magazines - Le n° 119 de Programmez est disponible
Adobe - Adobe annonce Photoshop Marketplace
[MAJ] Tutoriel AJAX simple - En avant vers le WEB2.0
Mis à jour le 20/04/2009
Tutorial : HTML | Scripting | ASP-PHP | ASP.net | SQL Server | XML
Sharepoint | XAML | Pocket | Dreamweaver | VML | Divers
  Scripts : Scripting | ASP-PHP | ASP.net | Divers
  Boutique | Annuaire | Bannières | Météo | Tribune | Partenariats
v3b © Didier 2003   
 

Corpo Sciences de Reims Partitions gratuites Carte, météo, annonces
 TechNet ASP-magazine Groupes Utilisateurs Microsoft MVP DotNet Project