CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 04:17:09

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par cool26

RE : CONNEXION SQL - CRYSTAL REPORT par simou12

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par ghuysmans99

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par cool26

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par ghuysmans99

+ de logiciels à télécharger

1 464 992 membres
45 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 047 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CALENDRIER

Information sur la source

Catégorie :Date/Heure Classé sous : calendrier, calendar Niveau : Débutant Date de création : 19/12/2002 Date de mise à jour : 19/12/2002 13:13:23 Vu : 11 059

Auteur : zecreator

Ecrire un message privé

Note :

3,00 / 10

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Un script ASP qui vous propose un petit calendrier avec choix du mois et de l'année.

Vous pouvez le décortiquer pour l'adapter à vos besoin.

P.S. : Gère le 29 février :)

Source

<%
dim dd
dim mm
dim yy
dim annee
dim jour
dim nbjour
dim mois(12)
dim nomjour(7)
dim seljour
dim selmois
dim selannee
dim strselannee
dim j
dim r
dim bgcol(44)
dim txtcol(44)
dim txtdt(44)
dim c
dim url
dim furl
dt=date()
jour=weekday(dt)
nomjour(1)="Lundi"
nomjour(2)="Mardi"
nomjour(3)="Mercredi"
nomjour(4)="Jeudi"
nomjour(5)="Vendredi"
nomjour(6)="Samedi"
nomjour(7)="Dimanche"
dd=cint(mid(dt,1,2))
mm=cint(mid(dt,4,2))
yy=cint(mid(dt,7,4))
mois(1)="janvier"
mois(2)="février"
mois(3)="mars"
mois(4)="avril"
mois(5)="mai"
mois(6)="juin"
mois(7)="juillet"
mois(8)="août"
mois(9)="septembre"
mois(10)="octobre"
mois(11)="novembre"
mois(12)="décembre"
if request.querystring("jour")<>"" then
seljour=cint(mid(request.querystring("jour"),1,2))
selmois=cint(mid(request.querystring("jour"),4,2))
selannee=cint(mid(request.querystring("jour"),7,4))
else
seljour=dd
selmois=mm
selannee=yy
end if
if len(cstr(yy))<4 then
annee=cstr(2000+yy)
else
annee=cstr(yy)
end if
if len(cstr(selannee))<4 then
strselannee=cstr(2000+selannee)
else
strselannee=cstr(selannee)
end if
select case selmois
case 1,3,5,7,8,10,12
nbjour=31
case 4,6,9,11
nbjour=30
case 2
If IsDate("29" & "/02/" & strselannee ) Then nbjour = 29 Else nbjour = 28
end select
'Initialise le calendrier du mois
j=weekday("01/" & mois(selmois) & "/" & selannee)
j=j-1
if j=0 then j=7
for r=1 to j
bgcol(r)="#dddddd"
txtcol(r)=""
txtdt(r)=" "
next
c=1
for r=j to 42
url=string(2-len(cstr(c)),"0") & c
url=url & "/" & string(2-len(cstr(selmois)),"0") & selmois
url=url & "/" & string(4-len(cstr(selannee)),"0") & selannee
bgcol(r)="#FFFFFF"
txtcol(r)="#FF0000"
if c>nbjour then
bgcol(r)="#dddddd"
txtdt(r)=" "
else
txtdt(r)="<center><a href=""calendar.asp?jour=" & url & """>" & c & "</a></center>"
if c=dd and selmois=mm and selannee=yy then
bgcol(r)="#770000"
txtcol(r)="#FFFFFF"
txtdt(r)="<center>" & c & "</center>"
end if
if c=seljour then
bgcol(r)="#007700"
txtcol(r)="#FFFFCC"
txtdt(r)="<center><b>" & c & "<b></center>"
end if
end if
c=c+1
next
%>
<html><title>Calendrier</title>
<script language="javascript">
function changecal()
{
window.open('calendar.asp?jour=01/' + document.form.mois.value + '/' + document.form.annee.value,'_self');
}
</script>
<STYLE>
a:link{color:#186194;text-decoration:none;}
a:visited{color:#186194;text-decoration:none;}
a:hover{color:#00795a;text-decoration:underline;}
</style>
<body bgcolor="#FFFFFF">
<form method="post" action="" name="form">
<div align="center"><br>
<table width="115" border="0">
<tr>
<td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Mois
</b></font></td>
<td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>
Année</b></font></td>
<td width="33%"> </td>
</tr>
<tr>
<td width="33%">
<div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>
<select name="mois">
<%
for r=1 to 12
if selmois=r then
%>
<option value="<%=string(2-len(cstr(r)),"0") & r%>" selected><%=mois(r)%></option>
<%
else
%>
<option value="<%=string(2-len(cstr(r)),"0") & r%>"><%=mois(r)%></option>
<%
end if
next
%>
</select>
</b> </font> </div>
</td>
<td width="33%">
<div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>
<select name="annee">
<%
for r=2000 to 2020
if strselannee=cstr(r) then
%>
<option value="<%=r%>" selected><%=r%></option>
<%
else
%>
<option value="<%=r%>"><%=r%></option>
<%
end if
next
%>
</select>
</b></font></div>
</td>
<td width="33%">
<div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="button" name="btn" value="=>" onclick="javascript:changecal();">
</font></div>
</td>
</tr>
<tr>
<td colspan="3">
<hr>
</td>
</tr>
<tr bgcolor="#770000">
<td colspan="3">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFCC">Vue
en cours<br>
<b>le <%=seljour & " " & mois(selmois) & " " & strselannee%></b></font></div>
</td>
</tr>
<tr>
<td colspan="3">
<table width="100%" border="1" align="center">
<tr bgcolor="186194" align="center" valign="middle">
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">L</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">M</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">M</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">J</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">V</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">S</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">D</font></b></font></div>
</td>
</tr>
<tr> <%
for r=1 to 7
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<tr> <%
for r=8 to 14
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<tr> <%
for r=15 to 21
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<tr> <%
for r=22 to 28
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<tr> <%
for r=29 to 35
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<%
for r=36 to 42
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
</table>
</td>
</tr>
<tr>
<td colspan="3">
<hr>
</td>
</tr>
<tr>
<td colspan="3">
<div align="center"></div>
<div align="center"></div>
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nous
sommes le<br>
<b><font color="#FF0000"><%= nomjour(jour-1) & " " & dd & " " & mois(mm) & " " & annee%>
</font></b></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FF0000">
</font> </b> </font> </div>
</td>
</tr>
</table>
</div>
</form>
<br>
</html>

<%
dim dd
dim mm
dim yy
dim annee
dim jour
dim nbjour
dim mois(12)
dim nomjour(7)
dim seljour
dim selmois
dim selannee
dim strselannee
dim j
dim r

dim bgcol(44)
dim txtcol(44)
dim txtdt(44)
dim c
dim url
dim furl

dt=date()

jour=weekday(dt)

nomjour(1)="Lundi"
nomjour(2)="Mardi"
nomjour(3)="Mercredi"
nomjour(4)="Jeudi"
nomjour(5)="Vendredi"
nomjour(6)="Samedi"
nomjour(7)="Dimanche"

dd=cint(mid(dt,1,2))
mm=cint(mid(dt,4,2))
yy=cint(mid(dt,7,4))

mois(1)="janvier"
mois(2)="février"
mois(3)="mars"
mois(4)="avril"
mois(5)="mai"
mois(6)="juin"
mois(7)="juillet"
mois(8)="août"
mois(9)="septembre"
mois(10)="octobre"
mois(11)="novembre"
mois(12)="décembre"

if request.querystring("jour")<>"" then
	seljour=cint(mid(request.querystring("jour"),1,2))
	selmois=cint(mid(request.querystring("jour"),4,2))
	selannee=cint(mid(request.querystring("jour"),7,4))
else
	seljour=dd
	selmois=mm
	selannee=yy
end if

if len(cstr(yy))<4 then
	annee=cstr(2000+yy)
else
	annee=cstr(yy)
end if

if len(cstr(selannee))<4 then
	strselannee=cstr(2000+selannee)
else
	strselannee=cstr(selannee)
end if

select case selmois
	case 1,3,5,7,8,10,12
		nbjour=31
	case 4,6,9,11
		nbjour=30
	case 2
            If IsDate("29" & "/02/" & strselannee ) Then nbjour = 29 Else nbjour = 28
end select

'Initialise le calendrier du mois
j=weekday("01/" & mois(selmois) & "/" & selannee)
j=j-1
if j=0 then j=7

for r=1 to j
	bgcol(r)="#dddddd"
	txtcol(r)=""
	txtdt(r)="&nbsp;"
next
c=1
for r=j to 42
	url=string(2-len(cstr(c)),"0") & c
	url=url & "/" & string(2-len(cstr(selmois)),"0") & selmois
	url=url & "/" & string(4-len(cstr(selannee)),"0") & selannee

	bgcol(r)="#FFFFFF"
	txtcol(r)="#FF0000"
	if c>nbjour then
		bgcol(r)="#dddddd"
		txtdt(r)="&nbsp;"
	else
		txtdt(r)="<center><a href=""calendar.asp?jour=" & url & """>" & c & "</a></center>"

		if c=dd and selmois=mm and selannee=yy then
			bgcol(r)="#770000"
			txtcol(r)="#FFFFFF"
			txtdt(r)="<center>" & c & "</center>"
		end if

		if c=seljour then
			bgcol(r)="#007700"
			txtcol(r)="#FFFFCC"
			txtdt(r)="<center><b>" & c & "<b></center>"
		end if

	end if
	c=c+1
next

%>
<html><title>Calendrier</title>
<script language="javascript">
function changecal()
{
window.open('calendar.asp?jour=01/' + document.form.mois.value + '/' + document.form.annee.value,'_self');
}
</script>
<STYLE>
a:link{color:#186194;text-decoration:none;}
a:visited{color:#186194;text-decoration:none;}
a:hover{color:#00795a;text-decoration:underline;}
</style>
<body bgcolor="#FFFFFF">
<form method="post" action="" name="form">
  <div align="center"><br>
    <table width="115" border="0">
      <tr> 
        <td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Mois 
          </b></font></td>
        <td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> 
          Ann&eacute;e</b></font></td>
        <td width="33%">&nbsp;</td>
      </tr>
      <tr> 
        <td width="33%"> 
          <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> 
            <select name="mois">
              <%
for r=1 to 12
	if selmois=r then
%> 
              <option value="<%=string(2-len(cstr(r)),"0") & r%>" selected><%=mois(r)%></option>
              <%
else
%> 
              <option value="<%=string(2-len(cstr(r)),"0") & r%>"><%=mois(r)%></option>
              <%
end if
next
%> 
            </select>
            </b> </font> </div>
        </td>
        <td width="33%"> 
          <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> 
            <select name="annee">
              <%
for r=2000 to 2020
	if strselannee=cstr(r) then
%> 
              <option value="<%=r%>" selected><%=r%></option>
              <%
else
%> 
              <option value="<%=r%>"><%=r%></option>
              <%
end if
next
%> 
            </select>
            </b></font></div>
        </td>
        <td width="33%"> 
          <div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
            <input type="button" name="btn" value="=&gt;" onclick="javascript:changecal();">
            </font></div>
        </td>
      </tr>
      <tr> 
        <td colspan="3"> 
          <hr>
        </td>
      </tr>
      <tr bgcolor="#770000"> 
        <td colspan="3"> 
          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFCC">Vue 
            en cours<br>
            <b>le <%=seljour & " " & mois(selmois) & " " & strselannee%></b></font></div>
        </td>
      </tr>
      <tr> 
        <td colspan="3"> 
          <table width="100%" border="1" align="center">
            <tr bgcolor="186194" align="center" valign="middle"> 
              <td width="20"> 
                <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">L</font></b></font></div>
              </td>
              <td width="20"> 
                <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">M</font></b></font></div>
              </td>
              <td width="20"> 
                <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">M</font></b></font></div>
              </td>
              <td width="20"> 
                <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">J</font></b></font></div>
              </td>
              <td width="20"> 
                <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">V</font></b></font></div>
              </td>
              <td width="20"> 
                <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">S</font></b></font></div>
              </td>
              <td width="20"> 
                <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">D</font></b></font></div>
              </td>
            </tr>
            <tr> <%
for r=1 to 7
%> 
              <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
              <%
next
%> </tr>
            <tr> <%
for r=8 to 14
%> 
              <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
              <%
next
%> </tr>
            <tr> <%
for r=15 to 21
%> 
              <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
              <%
next
%> </tr>
            <tr> <%
for r=22 to 28
%> 
              <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
              <%
next
%> </tr>
            <tr> <%
for r=29 to 35
%> 
              <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
              <%
next
%> </tr>
            <%
for r=36 to 42
%> 
            <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
            <%
next
%> </tr>
          </table>
        </td>
      </tr>
      <tr> 
        <td colspan="3"> 
          <hr>
        </td>
      </tr>
      <tr> 
        <td colspan="3"> 
          <div align="center"></div>
          <div align="center"></div>
          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nous 
            sommes le<br>
            <b><font color="#FF0000"><%= nomjour(jour-1) & " " & dd & " " & mois(mm) & " " & annee%> 
            </font></b></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FF0000"> 
            </font> </b> </font> </div>
        </td>
      </tr>
    </table>
  </div>
  </form>
<br>
</html>

Sources du même auteur

DLL ACTIVEX POUR GÉNÉRER DE VRAIS FICHIERS EXCEL DEPUIS LE C...

GÉNÉRATEUR DE QCM EN ASP AVEC RAPPORT DE RÉSULTATS!!!

SCRIPT SUPPLÉMENTAIRE POUR LE MOTEUR DE RESSOURCES DE ZECREA...

FAIRE SON SITE DE RESSOURCES...

Toutes les sources de zecreator

Sources de la même categorie

CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORM... par processus

CALCUL DE L'AGE D'UNE PERSONNE (ASP VBSCRIPT) par bluedemon

CONVERSION DE GMT À LOCAL ET DE LOCAL À GMT par revolt

CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97

SAISIR DATE FR DANS MYSQL par jeckel

Toutes les sources de la catégorie Date/Heure

Sources en rapport avec celle ci

AGENDA (AFFICHAGE DES ÉVÉNEMENTS PROVENANT D'UNE BASE DE DON... par rmo

UN CALENDRIER par sokram

UN SÉLECTEUR DE DATE EN ASP / DHTML par aspmag

AGENDA (AFFICHAGE DES ÉVÉNEMENTS PROVENANT D'UNE BASE DE DON... par rmo

CALENDRIER EN ASP.NET par everest

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Sharepoint - Calendar [ par DiscoPlacid ] Bien le bonjour,Depuis un certain temps, je cherche à modifier le calendrier dans wss3.0. Ne trouvant absolumment rien de concret, je me suis mis à en AjaxControlToolKit - Calendar [ par magikbanana ] Bonjour,Je trouve le contrôle de calendrier de ACTK excellent, par rapport au contrôle de ASP.NET par défaut c'est beaucoup plus beau.Le problème est Calendrier à la semaine [ par Urda ] Bonjour , Après des recherche plus ou moin fructueuse j'ai décider de demander votre aide.Voilà mon problème , dans le cadre d'un dévelopement d'un in control calendar [ par tortuegenie ] Bonjour, je dvp un site web et j'ai besoin d'un calendrier, je souhaitais donc utiliser le control calendar de visual studio 2005.Le truc c'est que je Calendar Extender ne montre que 5 jours de la semaine [ par Antonio01 ] Bonjour j´utilise le controle CalendarExtender il fonctionne bien sauf qu4il ne m´affiche que du lundi au vendredi comment faire pour qu´apparaisse le ajax extender et scrollbar [ par foufoulol ] Bonjour, J'ai des extender d'autocompletion et des calendar extender dans une listview. Tout marche trés bien sauf lorsque j'ai un scrollbar horizont calendrier en asp.net [ par hano1800 ] salut tout le monde je veux savoir comment je peux choisie un module dans une select et il va me donnée la date ou on est faire ce module dans une cal Calendrier - Sélection de dates [ par ben85000 ] Bonjour a tous !J'utilise Visual Studio 2008.J'ai inséré dans ma Web Form un composant permettant d'avoir un calendrier (asp:Calendar). Tout fonctionn Calendar [ par aylandar2009 ] bonjour...bon je pose une question pour les fort dans le domaine...je veux créer un Calendar en ASP.NET, jusque la tt est fastoche (un jeu d'enfant), Problème d'affichage d'un calendar extender dans un gridview [ par teatsx ] Bonjour à tous.J'ai un petit problème d'affichage d'un calendarExtender (Ajax Control Toolkit) dont je n'arrive pas à m'expliquer.J'ai un calendarExte