Forum de discussion
Forum « Programmation HTML » (archives)
Re: créer un menu déroulant ou un calendrier clickable
Envoyé: 5 février 2006, 7h30 par patouchon
mais d'une part:
je suis pas un cake en html
je n'ai pas tout suivi le code qui est à copier et où.(je sais: t'as qu'a savoir lire...)
voila ce que je veux faire: insérer le cal. dans une page html, lorsqu'on clique sur une date que j'aurai pris soin de coloriser, cela renvoie à une page où figure tout les évènements du mois en cours.
voila le code que j'ai mis en place pour le moment:
<' '''''''''''''''''''''''''''''''''''''''''''
nLang = "en"
' '''''''''''''''''''''''''''''''''''''''''''
' Récupération de la date du la requète http
' Utilisation de la date courrante si aucune.
' '''''''''''''''''''''''''''''''''''''''''''
if request("date") = "" then
nDate = Date()
else
nDate = cDate(request.querystring("date"))
end if
' '''''''''''''''''''''''''''''''''''''''''''
' Configuration des variables
' '''''''''''''''''''''''''''''''''''''''''''
nURL = Request.ServerVariables("URL")
nDatePrev = DateAdd("m", -1, nDate)
nDateSuiv = DateAdd("m", 1, nDate)
nJour = Day(nDate)
nMois = Month(nDate)
nAnnee = Year(nDate)
nDate1 = DateSerial(nAnnee, nMois, 1)
Dim nTemp
nTemp = DateAdd("m", 1, nDate1)
nJour2 = Day(DateAdd("d", -1, nTemp))
nDate2 = DateSerial(nAnnee, nMois, nJour2)
nDateDebut = WeekDay(nDate1, vbSunday)
nDateFin = WeekDay(nDate2, vbSunday)
nbrCase = Day(nDate2) + (nDateDebut-1) + (7-nDateFin)
nNomJour = 1
' '''''''''''''''''''''''''''''''''''''''''''
' Changer les deux tableaus suivant
' si vous désirez une autre langue.
' '''''''''''''''''''''''''''''''''''''''''''
'---- Mois en français ----
'---- Other language month ----
Dim nMoisNom(12)
nMoisNom(0) = "Mois"
nMoisNom(1) = "Janvier"
nMoisNom(2) = "Février"
nMoisNom(3) = "Mars"
nMoisNom(4) = "Avril"
nMoisNom(5) = "Mai"
nMoisNom(6) = "Juin"
nMoisNom(7) = "Juillet"
nMoisNom(8) = "Août"
nMoisNom(9) = "Septembre"
nMoisNom(10) = "Octobre"
nMoisNom(11) = "Novembre"
nMoisNom(12) = "Décembre"
'---- Jours abrégé en français ----
'---- Other language WeekName Abr. ----
Dim nJourAbr(7)
nJourAbr(0) = "Jour"
nJourAbr(1) = "Dim"
nJourAbr(2) = "Lun"
nJourAbr(3) = "Mar"
nJourAbr(4) = "Mer"
nJourAbr(5) = "Jeu"
nJourAbr(6) = "Ven"
nJourAbr(7) = "Sam">
<html>
<head>
<title>Trucsweb: Calendrier www.trucsweb.com<;/title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" >
<meta name="description" lang="fr-ca" content="Les Trucsweb d'Oznog - www.trucsweb.com, Calendrier HTML et CSS dynamique généré en ASP. Active Server Page. Dynamic HTML/CSS Calendar using ASP." >
<meta name="keywords" lang="fr-ca" content="Calendrier ASP, CALENDRIER ASP, calendrier dynamique asp, DateSerial, WeekDay, bilingue, calendar, jour, Day, Month, year, DateAdd, Trucsweb, Oznog, webmaster, HTML dynamique, Active Server Page, asp, iis, microsoft, date, mois, année, Cascading style sheet, css, webmestre, internet, www, web, django, Québec, Canada, quebec" >
<meta http-equiv="content-style-Type" content="text/css" >
<meta name="Author" lang="fr-ca" content="Conception Oznog co. Multimédia - Django Blais" >
<meta name="Publisher" content="Conception Oznog co. Multimédia" >
<meta name="Copyright" content="Conception Oznog co. Multimédia" >
<meta name="robots" content="index,follow" >
<style>
TH.calMois { font-size : 10px; font-weight: bold; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #ffffff; background : #7B849C; }
TD.calSing { font-size : 9px; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #7B849C; }
TD.calSemaine { font-size : 9px; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #B5B5C6; }
TD.calJour { font-size : 9px; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #C0C8D6; }
TD.calJour A { font-size : 9px; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #C0C8D6; text-decoration: none; }
TD.calJour A:hover { font-size : 9px; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #ffffff; background : #C0C8D6; text-decoration: none; }
TD.calJourSel { font-size : 9px; font-weight: bold; text-align : center; font-family : verdana, geneva, helvetica, sans-serif; color : #000000; background : #EEEEEE; }
</style>
<!-- *********** -->
<!-- * Fin CSS * -->
<!-- * CSS end * -->
<!-- *********** -->
</head>
<table border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0">
<!-- Début en-tête mois, année et bouton -->
<!-- Start month, year and button header -->
<tr>
<th class="calMois"><a href="<%=nURL%>?date=<%=nDatePrev%>"><img src="b_prev.gif" width="14" height="13" border="0" vspace="2" align="absmiddle" alt="Mois précédent"></a></th>
<!--<% if nLang = "en" then %>
<th colspan="5" class="calMois"><%=MonthName(nMois)%> <%=nAnnee%></th>
<% else %>
<th colspan="5" class="calMois"><%=nMoisNom(nMois)%> <%=nAnnee%></th>
<% end if %>
<th class="calMois"><a href="<%=nURL%>?date=<%=nDateSuiv%>"><img src="b_suiv.gif" width="14" height="13" border="0" vspace="2" align="absmiddle" alt="Mois suivant"></a></th>
</tr>
<!-- Fin en-tête mois, année et bouton -->
<!-- End month, year and button header -->
<!-- Début en-tête des jours -->
<!-- Start weekday header -->
<tr>
<!--<% for n = 1 to 7 %>
<% if nLang = "en" then %>
<td width="14%" align="center" valign="middle" class="calSemaine"><%=WeekDayName(n, true, vbSunday)%></td>
<% else %>
<td width="14%" align="center" valign="middle" class="calSemaine"><%=nJourAbr(n)%></td>
<% end if %>
<% next ' Boucle des noms du jour / WeekName for %>-->
</tr>
<!-- Fin en-tête des jours -->
<!-- End weekday header -->
<!-- Début boucle des jours -->
<!-- Start day's loop -->
<!--<%
Dim njTemp
For n = 1 to nbrCase
njTemp = n - nDateDebut+1
if nNomJour = 1 then response.write "<tr>"
if (njTemp) = nJour then
response.write "<td align=""center"" valign=""middle"" class=""calJourSel"">"
else
response.write "<td align=""center"" valign=""middle"" class=""calJour"">"
end if
if n < (nDateDebut) or n > (nJour2+nDateDebut-1) then
response.write " "
else
if (njTemp) = nJour then
response.write (njTemp)
else
response.write "<a href="""&nURL&"?date="&DateSerial(nAnnee, nMois, njTemp)&""">"
response.write (njTemp) & "</a>"
end if
end if
response.write "</td>"
if nNomJour = 7 then response.write "</tr>"
if nNomJour = 7 then nNomJour = 1 else nNomJour = nNomJour + 1 end if
next ' Boucle des jour / Day for
%>-->
<!-- Fin boucle des jours -->
<!-- End day's loop -->
<tr><td class="calSing" colspan="7"><a href="http://www.trucsweb.com";>© 2001 www.trucsweb.com<;/a></td></tr></table>
</body>
</html>
Réponses
|
![[Photo]](https://www.trucsweb.com/documents/images/2024/js-bs-formulaire-fetch.png)
Formulaire Bootstrap 5 Ajax avec validation.![[Photo]](https://www.trucsweb.com/documents/images/2023/elephants-Salvador_Dali_1948.jpg)
Sécuriser l’accès « bureau à distance » sous IIS![[Photo]](https://www.trucsweb.com/documents/images/2023/trou_noir_galaxie_M87.jpg)
L’AI au temps du Far-Web![[Photo]](https://www.trucsweb.com/documents/images/2023/gilles-villeneuve-montreal1978.jpg)
Sélecteurs JavaScript querySelector() et querySelectorAll()![[Photo]](http://www.trucsweb.com/documents/images/2023/evolution_de_lhomme.jpg)
CSS - Animations![[Photo]](http://www.trucsweb.com/documents/images/2023/univers-copernic.jpg)
Mode de couleurs (Color modes) Bootstrap 5![[Photo]](http://www.trucsweb.com/documents/images/2023/les_burgers_de_papa.jpg)
25 ans des Trucsweb - Bouton hamburger animé Bootstrap 5![[Photo]](http://www.trucsweb.com/documents/images/logos/l_whatwg.svg)
Living Standard pour HTML de Apple, Google, Mozilla, Microsoft ...et la W3C![[Photo]](http://www.trucsweb.com/documents/images/2022/tim-berners-lee-web-b.jpg)
Le nouveau HTML « Living Standard » et le XML![[Photo]](http://www.trucsweb.com/documents/images/2022/v_jacques_dutronc-les_cactus.jpg)
Sécuriser un formulaire de contact au Far-Web!
AbuseIPDB
Connexion