Liste déroulante

boboss76 · 15/12/2010, 23h09

Bonjour
J'ai testé le script qui est dans le tuto asp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<html><head><title>Ma page ASP</title></head>
<% liste=request.form("liste")%>
<form method="post" name="formulaire" action="page.asp">
Liste déroulante <select name="liste" >
<option value="Un" 
<% if liste="Un" then response.write "selected"%> >Un</option>
<option value="Deux" 
<% if liste="Deux" then response.write "selected"%> >Deux</option>
<option value="Trois" 
<% if liste="Trois" then response.write "selected"%> >Trois</option>
</option>
<input type="submit">
</form>
</body></html>

Le code marche sans soucis.
Dans le menu, au lieu de un deux trois qui s'affiche dans la liste j'ai besoin de récupérer un nom de fichier de la forme suivante :

Sachant que chaque jour, un fichier s'ajoute à la liste.
Merci de votre aide
Boboss

roro06 · 16/12/2010, 11h05

Bonjour

Pour accéder au systeme de ficchier de ton serveur, en ASP, il 'y a qu'un seul moyen : l'objet scripting.fileSystemObject.

Tu peux déjà regarder ici pour un aperçu

Egalement, dans le tuto de Florian

boboss76 · 16/12/2010, 20h58

Merci de ta roro06

J'ai écrit le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<html><head><title>Ma page ASP</title></head>
<% set fs=CreateObject("Scripting.FileSystemObject")
set dossier=fs.GetFolder(Server.MapPath("C:/program files/Homeseer HS2/html/pages/data/temperature/"))
for each fichier in dossier.Files 
	set obj=fs.GetFile(Server.MapPath("C:/program files/Homeseer HS2/html/pages/data/temperature/") & "\\" & fichier.Name)
	response.write fichier.Name
 
 
 
next
%>
</body></html>

Ce bout de code me permet de lire le contenu du répertoire.
Mais je voudrais l'incorporer dans un menu déroulant.
Merci de votre aide
Boboss

roro06 · 16/12/2010, 21h20

Ben le boulot est pratiquement fait, il suffit de générer le select

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Response.write("<select name=""liste"">")
for each fichier in dossier.Files 
    set obj=fs.GetFile(Server.MapPath("C:/program files/Homeseer HS2/html/pages/data/temperature/") & "\\" & fichier.Name)
    'response.write fichier.Name
        f=fichier.name
        response.write("<option value=""" & f & """>" & f & "</option>")
 
 
next
Response.write("</select>")

boboss76 · 17/12/2010, 19h08

Merci pour ta collaboraton roro06

J'ai encore besoin d'aide. J'ai quelques notion d'algorithme qui remonte à la fac il y a 20 ans.
Voilà j'ai écrit le code asp suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>head</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
	background-color: #006666;
}
body,td,th {
	color: #0FF;
}
-->
</style></head>
 
<body>
Cr&eacute;ation du graphique &agrave; partir de 
<% set fs=CreateObject("Scripting.FileSystemObject")
set dossier=fs.GetFolder(Server.MapPath("C:/program files/Homeseer HS2/html/pages/data/temperature/"))
'for each fichier in dossier.Files 
'	set obj=fs.GetFile(Server.MapPath("C:/program files/Homeseer HS2/html/pages/data/temperature/") & "\\" & fichier.Name)
'	response.write fichier.Name
 
 
 
'next
Response.write("<select name=""liste"">")
for each fichier in dossier.Files 
    set obj=fs.GetFile(Server.MapPath("C:/program files/Homeseer HS2/html/pages/data/temperature/") & "\\" & fichier.Name)
    'response.write fichier.Name
        f=mid(fichier.name,10,10)
        response.write("<option value=""" & f & """>" & f & "</option>")
 
 
next
Response.write("</select>")
%>
au
<% set fs=CreateObject("Scripting.FileSystemObject")
set dossier=fs.GetFolder(Server.MapPath("C:/program files/Homeseer HS2/html/pages/data/temperature/"))
 
Response.write("<select name=""liste"">")
for each fichier in dossier.Files 
    set obj=fs.GetFile(Server.MapPath("C:/program files/Homeseer HS2/html/pages/data/temperature/") & "\\" & fichier.Name)
    'response.write fichier.Name
        f=mid(fichier.name,10,10)
        response.write("<option value=""" & f & """>" & f & "</option>")
 
 
next
Response.write("</select>")
 
%>
<input type="submit" name="action" value="Lancer">
 
<table width="395" height="290" border="0">
  <tr>
    <td width="265"><% Response.write f%>&nbsp;</td>
  </tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>

Je voudrais choisir dans la liste déroulante un des fichiers et dans la deuxieme liste un autre fichier et quand je cliques sur lancer que le nom du fichier de la première liste soit dans un variable debut et mon second choix dans la variable fin et que l'action se lance dans la foulée.

J'espère avoir été clair et encore bravo pour votre forum hyper réactif.
Cordialement
Boboss76

16/12/2010, 11h05	#2
roro06 Modérateur Inscription : avril 2007 Messages : 1 363 Détails du profil Informations personnelles : Âge : 42 Informations forums : Inscription : avril 2007 Messages : 1 363 Points : 1 546 Points : 1 546	Bonjour Pour accéder au systeme de ficchier de ton serveur, en ASP, il 'y a qu'un seul moyen : l'objet scripting.fileSystemObject. Tu peux déjà regarder ici pour un aperçu Egalement, dans le tuto de Florian __________________ " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir." (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...) Chuck Norris comprend JC Van Damme.
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email