Afficher 3 listes déroulantes en fonction de la date du jour
Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 116 fois - Téléchargée 35 fois
Contenu du snippet
Une petite fonction bien utile lors de la création de formulaires d'enregistrement. Elle vous permettra de créer directement les listes déroulantes pour une date.
Je l'utilise beaucoup alors je suppose que d'autres en auront l'utilité ...
Je l'utilise beaucoup alors je suppose que d'autres en auront l'utilité ...
Source / Exemple :
<%
'définition de la date du jour (serveur)
dim sDateyear,sDateMois,sDateDay
sDateYear = year(date())
sDateMois = month(date())
sDateDay = day(date())
sub DisplayDay(sPrefixe, sDay)
dim i, lDay
if sDay = "" then
lDay = 1
else
lDay = clng(sDay)
end if
for i = 1 to 31
Response.Write "<option id=""" & sPrefixe & "day" & i & """ name=""" & sPrefixe & "day" & i & """ value=""" & i & """"
if lDay = i then
Response.Write " selected"
end if
Response.Write ">" & i
next
end sub
sub DisplayMonth(sPrefixe, sMonth)
dim i, lMonth
if sMonth = "" then
lMonth = 1
else
lMonth = clng(sMonth)
end if
for i = 1 to 12
Response.Write "<option id=""" & sPrefixe & "month" & i & """ name=""" & sPrefixe & "month" & i & """ value=""" & i & """"
if lMonth = i then
Response.Write " selected"
end if
Response.Write ">" & i
next
end sub
sub DisplayYear(sPrefixe, sYear)
dim i, lYear, lSelectedYear
lYear = year(now)
if sYear = "" then
lSelectedYear = lYear
else
lSelectedYear = clng(sYear)
end if
for i = 0 to 4
Response.Write "<option id=""" & sPrefixe & "month" & i & """ name=""" & sPrefixe & "month" & i & """ value=""" & lYear + i & """"
if lSelectedYear = lYear + i then
Response.Write " selected"
end if
Response.Write ">" & lYear + i
next
end sub
%>
<html>
<body>
<!--votre formulaire
la première partie de l appel de la fonction est le préfixe, à vous de choisir
-->
<select name="jour" id="jour">
<%DisplayDay "jour", sDateDay%>
</select>
<select name="mois" id="mois">
<%DisplayMonth "mois", sDateMois%>
</select>
<select name="annee" id="annee">
<%DisplayYear "annee", sDateYear%>
</select>
<!--fin de votre formulaire-->
</body>
</html>
A voir également
- Afficher 3 listes déroulantes en fonction de la date du jour
- PHP : Afficher une liste déroulante en fonction d'une autre liste sans recharger la page ou p - Guide
- Afficher une liste déroulante des image ✓ - Forum - C# / .NET
- Synchronisation de 3 listes deroulantes Userform ✓ - Forum - Visual Basic 6
- Chainer 3 listes déroulantes ✓ - Forum - PHP
- Ouvrir une application en fonction de la date du jour ✓ - Forum - VB.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.