Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Barre de sous-répertoires

Envoyé: 30 septembre 2002, 11h23 par Four


Bonjour,

J'ai fait, en utilisant le FSO, une page qui liste le contenu d'un répertoire, d'un côté les sous-dossiers (cliquables et qui s'ouvrent...) et d'un autre côté les fichiers dans le dossier ouvert.
Afin d'optimiser le cheminement des utilisateurs, je souhaite afficher, en haut de la page, le chemin qu'ils suivent, afin qu'ils puissent choisir un répertoire supérieur, sans cliquer toujours sur le lien 'répertoire parent'. Du style :

racine -> répertoire1 -> répertoire2 -> répertoire3 -> répertoire courant

Voici la page en codes :

------------------------------------

<% response.expires = "-1" %>
<% IMG_dossier = "<IMG SRC=""pics/dossier.gif"" alt=""Sous-dossier"">" %>
<% IMG_pdf = "<IMG SRC=""pics/pdf.gif"" alt=""Document Acrobat Reader"">" %>
<% IMG_word = "<IMG SRC=""pics/word.gif"" alt=""Document Microsoft Word"">" %>
<% IMG_tqm = "<IMG SRC=""pics/tqm.gif"" alt=""Document TQM"">" %>
<% IMG_dossieropen = "<IMG SRC=""pics/dossieropen.gif"" alt=""Dossier ouvert"">" %>

<%
Dim dossier, chemin, dossierParent
Set objFs = Server.CreateObject("Scripting.FileSystemObject")

'Nous créons ici une instance du composant FileSystemObject sur le serveur.

dossier = Request.QueryString("dossier")

'La variable dossier contient le chemin du répertoire virtuel à parcourir; sa valeur par défaut est la racine de votre “home directory” ou répertoire de base.

chemin = Server.MapPath(dossier&"/")

'Nous utilisons la méthode MapPath de l’objet Server qui permet de retrouver le chemin réel correspondant au répertoire virtuel.

set objDossier = objFs.getFolder(chemin)

'Ici nous créons un objet Folder qui possède des propriétés de manipulation des répertoires.
%>


<html>

<head>
</head>

<body>
<div align="center">
<center>
<table border="0" width="86%" cellpadding="2">
<tr>
<td width="100%" colspan="2" align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="82%">
<p align="center"><b><u><font size="4">Total Quality Managment</font></u></b></td>
<td width="18%">


<p align="right">


<%
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("compteur/")
Fnm = dir & "\onlinetqm.txt" ' path du fichier

' IP du visiteur
IP=request.serverVariables("REMOTE_ADDR")
' Date/heure courante en minutes
date0 = dateDiff("n","30/09/2002",now)
' Durée de vie max
vie = 50

' Si le fichier existe, on le lit
if FSO.fileExists(Fnm) then
set inF = FSO.openTextFile(Fnm,1,false)
while not inF.atEndOfStream
' on lit chaque IP|minutes
ligne = inF.readLine
temp = split(ligne,"|",-1,1)
' différente de l'IP courante ?
if temp(0) <> IP then
' non périmée ?
if date0-CINT(temp(1))<=vie then
online = online + 1
result = result & ligne & VbCrLf
end if
end if
wend
inF.close
end if
' On ajoute le hit
result = result & IP & "|" & date0 & VbCrLf
online = online + 1
' Et on sauve
set inF = FSO.openTextFile(Fnm,2,true)
inF.write(result)
inF.close
' Affichage
%>
<font size=1><%=online%> utilisateurs en ligne</p>
</font>










</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" colspan="2" align="center">
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="49%" valign="top">
<font size="3">

<% if objDossier.Name = "tqm" then
nomdossier = "Total Quality Managment"
else
nomdossier = objDossier.Name
end if %>


<u>Dossier ouvert</u> :</font><font size="4"> <br>
     <b><%=IMG_dossieropen%>  
<%=nomdossier%></b></font></td>
<td width="51%" valign="top">

<p align="right"><input type="text" name="T1" size="28"><input type="submit" value="Rechercher le document" name="B1"></p>

</td>
</tr>
</table>
</td>
</tr>
</center>
<tr>
<td width="100%" valign="middle" colspan="2">

<p align="left"> <i>


<font size="2">                                                      
</font>

<font size="1">


<%
if dossier <> "/tqm" Then
dossierParent = Left(dossier, inStrRev(dossier, "/")-1) %>

<a href="arborescence.asp?dossier=<%=dossierParent%>">Retour au Répertoire Précédent</a><% end if %></font></i>





</td>
</tr>
<center>
<tr>
<td width="38%" valign="top">

<table border="0" width="312" cellspacing="0" cellpadding="0">
<tr>
<td width="310" valign="top" colspan="2">

<font size=2><u>Sous-dossiers</u> :</font>
</td>
</tr>
<tr>
<td width="310" colspan="2">
<hr noshade size="1">
</td>
</tr>
<tr><% for each sousDossier in objDossier.SubFolders %>
</center>
<td valign="middle" width="36">
<font size="2">

<p align="left">

<%=IMG_dossier%>

</font>



</td>


<center>


<td valign="middle" width="272">




<font size="2"> <a href="arborescence.asp?dossier=<%=dossier&"/"&sousDossier.Name%>"><%=SousDossier.Name%></a></font>

</td>

</tr>
<tr>
<td width="310" colspan="2">
<hr noshade size="1">

</td>
</tr>
<tr>
<td valign="middle" colspan="2" width="310">






</td>
</tr> <font size="2">


<% next %> </font>

</table>

</center>

</td>
<td width="62%" valign="top">
<div align="center">
<center>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
<tr>

<td width="65%" valign="middle" colspan="2">

<u>

<font size="2">Nom des fichiers
</font></u></td><td width="35%" align="right" valign="middle">


<font size="2"><u>Dernière modification</u></font>
</td>
</tr>

<font size="2">
<tr>
<td width="100%" colspan="3">
<hr noshade size="1">

</td>
</tr>

<tr><% for each Fichier in objDossier.Files %>

<% if Fichier.Type = "Microsoft Word Document" then
IMG_file = IMG_word
else
if Fichier.Type = "Document Adobe Acrobat" then
IMG_file = IMG_pdf
else
IMG_file = IMG_tqm
end if
end if %>


<td valign="middle">
<font size=2><center>


<%=IMG_file%>
</center></font>


</td>
<td valign="middle"><font size=2>  
<a href="<%=dossier&"/"&Fichier.Name%>" target="_blank">
<%=Fichier.Name%></a> <!--       <font size=1><i><%=Fichier.Type%></font></i> -->

</font>

</td>
</center>

<td valign="middle">
<p align="right"><font size="2">
<%=Fichier.dateLastModified%>

</font>

</td>
</tr>

<center>

<font size="2">
<center>

<tr>


<td width="100%" colspan="3" height="5">

<font size=2>




<hr noshade size="1">




</td>
</tr>

<% next
Set objFs = Nothing
Set objDossier = Nothing %>


</table>

</center>

</div>

</td>
</tr>
<tr>
<td width="100%" colspan="2">
</td>
</tr>
</table>

</div>

</body>

-----------------------------

Merci d'avance !


Réponses

 sp spRe: Barre de sous-répertoires Oznog3/10/2002
 sp spRe: Barre de sous-répertoires four3/10/2002
 sp spRe: Barre de sous-répertoires Oznog3/10/2002
 sp spRe: Barre de sous-répertoires Four4/10/2002
Aucun médias sociaux

En ligne depuis 25 ans (1997-2023)

Le plus vieux site francophone pour freelances!

Il y a 10 types de personnes, ceux qui comprennent le binaire et ceux qui ne le comprennent pas ;-)

RSS

Aider les Trucsweb

PayPal - la solution de paiement en ligne la plus simple et la plus sécurisée !
aiement en ligne sécurisée PayPal Vérifié par PayPal
outils
  1. Generateur Trucsweb
  2. Glossaire
  3. jQuery : Équivalent Javascript
  4. HTML5 : Liste des balises
  5. HTML5 : Formation pour débutant
  6. AbuseIPDB AbuseIPDB
  7. Phishing-initiative Initiative hameçonnage (Phishing initiative)
Références
  1. W3C HTML5
  2. W3C HTML 4.0
  3. W3C CSS Level 3
  4. W3C CSS LEVEL 2.1
  5. W3C XHTML 1.0
  6. W3C SMIL 2.0
  7. W3C XML 1.0
  8. W3C The Extensible Stylesheet Language Family (XSL)
  9. W3C XPath 3.0
  10. W3C XSL Version 1.1
  11. W4C XSLT 2.0
  12. RFC Editor Site
  13. Web Design Group
  14. Treehouse: Development Courses
  15. W3Schools
  16. W3CTutorial
  17. XML Cover Pages
  18. The W3C Markup Validation Service
  19. Validateur de syntaxe Javascript Esprima
  20. Validateur JavaScript Lint
  21. Le meilleurs Validateur JavaScript Code Beautify
  22. Real Favicon checker
  23. Local Business Schema Generator
  24. Générateur de microdonnées
  25. Testing Tool — Google Developers
  26. Google - Outil de test du balisage d'e-mails
  27. Google - Search Console (webmasters/tools)
  28. PageSpeed Insights
  29. RDFa Distiller and Parser
  30. RDF extracteur (pyRDFa)
  31. Soumettre votre URL à Google
  32. Soumettre votre URL à Bing
  33. Soumettre votre URL à Yahoo
  34. FXSL - Functional Programming Library for XSLT
  35. Wikipedia - Internet media type
  1. Mozilla Developer Network JavaScript reference
  2. VBScript Quick Reference
  3. ASP.NET Reference
  4. JCSS & Javascript Character Entity Calculator
  5. JScript Reference
  6. Hammer.min.js
  7. ASP Object Quick Ref.
  8. ADO API Reference
  9. IIS Configuration Reference
  10. MSDN Library
  11. Bootstrap
  12. Bootsnipp
  13. Bootstrap Cheat Sheets
  14. Iconic
  15. Zurb Foundation 5
  16. Skeleton
  17. Responsive CSS Framework Comparison
  18. HTML5 Boilerplate
  19. Modernizr
  20. Normalize.css
  21. Eric Meyer's CSS reset
  22. Bootstrap (français)
  23. Jasny Bootstrap
  24. jQuery
  25. DataTables | Table plug-in for jQuery
  1. HTML 4.0 code de caractères
  2. Unicode fonts
  3. Manuel PHP
  4. Documentation Perl
  5. ActionScript® 3.0 Reference
  6. MySQL Reference Manuals
  7. Find My Facebook Page ID
  8. Get a User's Twitter ID
  9. Share Link Generator!
  10. Validation de courriel
  11. G Suite Toolbox Check MX
  12. G Suite Toolbox Messageheader
  13. SPF Syntax Validator
  14. SPF Record Testing Tools
  15. La Loi canadienne anti-pourriel
  16. DNS / nameserver (requête en ligne)
  17. Whatsmydns.net (Propagation DNS globale)
  18. MXtoolbox.com
  19. DNSstuff.com
  20. SHAAAAAAAAAAAAA - Détection de certificat SHA-1
  21. Décoder Hachage MD5, SHA-1, LM, NTML
  22. Get Lat Long from Address
  23. Java Language Spec.
  24. Sun Java
  25. JSP Standard Tag Library
  26. C++ Language Reference
  27. C# Reference
  28. Les Navigateurs
  29. Terminologie d'Internet
  30. IP Location tools
  31. Open Port Check Tool
  32. Webfont generator
  33. HSL picker
  34. Zone Accro
  35. Dictionnaire de la langue française de l'internaute.com
  36. Glossaire informatique anglais/français
  37. Correcteur d'orthographe et grammaire Reverso
  38. Google Traduction
  39. JavaScript: Escaping Special Characters
  40. Online JavaScript/CSS Compression Using YUI Compressor
  41. Minify your CSS
  42. JS & CSS Minifier
  43. CSS Inliner Tool
  44. Base64 encoder and decoder
  45. Hachage MD5, SHA-1, LM, NTML
  46. Javascript HTML Page Encoder
  47. Winmail.dat Reader
Oznog

Blogueur, analyste-programmeur et designer Web!
Conception Oznogco Multimédia
X

Trucsweb.com Connexion

Connexion

X

Trucsweb.com Mot de passe perdu

Connexion

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte

Créer un compte

.
@