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

Ce site au démarrage

begin process at 2012 05 27 06:06:59

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

UN CALENDRIER

Information sur la source

Note :

6,50 / 10

Catégorie :Date/Heure Classé sous :calendrier, calendar, filtrer Niveau :Débutant Date de création :07/02/2004 Vu :7 875

Auteur : sokram

Ecrire un message privé

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Cree un calendrier qui peut etre utilise dans differente page pour filtree etc...

Source

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
Please click on a date to view/book a conference meeting (use < or > to navigate)
<% ' Le mois defaut est passe ici
if Request.QueryString("MyDate")="" then
zDate= cdate("01-" & monthname(month(now),true) & "-" & year(now)) ' Sur que le format de la date ets correct
zMonth= cdate("01-" & monthname(month(now),true) & "-" & year(now))
else
zDate= cdate("01-" & monthname(month(Request.QueryString("MyDate")),true) & "-" & year(Request.QueryString("MyDate")))
zMonth= cdate("01-" & monthname(month(Request.QueryString("MyDate")),true) & "-" & year(Request.QueryString("MyDate")))
end if
%>
<TABLE align=center cellSpacing=1 cellPadding=1 width="30%" border=1>
<TR>
<% Response.Write "<TD colspan=5>" & monthname(month(zDate),false) & " " & Year(zDate) & "</TD>"
Response.write "<A HREF= ./calendar.asp?Mydate=" & zDate - 1 & "><TD> < </TD><A>"
Response.write "<A HREF= ./calendar.asp?Mydate=" & zDate + 32 & "><TD> > </TD><A>" %>
</TR>
<TR>
<TD width="14%">
Sat</TD>
<TD width="14%">
Sun</TD>
<TD width="14%">
Mon</TD>
<TD width="14%">
Tue</TD>
<TD width="14%">
Wed</TD>
<TD bgcolor="#ffb6c1" width="14%">
Thu</TD>
<TD bgcolor="#ffb6c1" width="14%">
Fri</TD></TR>
<%
For zDay=1 to 7
if zDay=6 or zDay=7 then
zBackcolor="#ffb6c1"
else
zBackcolor="white"
end if
if weekday(zDate,7)=zDay then
exit for
else
Response.Write "<TD bgColor="& zBackcolor & " align=right> </TD>"
end if
next
while month(zDate)=month(zmonth)
if zDay=6 or zDay=7 then ' Le weekend chez nous C'est Jeudi/Vendredi
zBackcolor="#ffb6c1" ' Couleur ferier
else
zBackcolor="white"
end if
if zDay>7 then
Response.Write "</TR>"
zDay=1
End if
Response.Write "<A HREF= '.\Daybook.asp?zDate=" & day(zDate) & "-" & monthname(month(zdate),TRUE) & "-" & year(zdate) & "'> <TD bgColor=" & zBackcolor & " align=right>" & day(zDate) &"</TD></A>"
zDay=zDay+1
zDate=zDate+1
Wend
for x = zDay to 7
Response.Write "<TD bgColor=" & zBackcolor & " align=right> </TD>"
next
Response.Write "</TR>"
%>
</TABLE>
<A HREF="..\Welcome.asp">Back to Main Menu</A>
</BODY>
</HTML>

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P align=center> Please click on a date to view/book a conference meeting (use < or > to navigate) </P>
<FONT Face="Arial Narrow">
<P>
<% ' Le mois defaut est passe ici 
   if Request.QueryString("MyDate")="" then 
   zDate= cdate("01-" & monthname(month(now),true) & "-" & year(now)) ' Sur que le format de la date ets correct
   zMonth= cdate("01-" & monthname(month(now),true) & "-" & year(now))
   else
   zDate= cdate("01-" & monthname(month(Request.QueryString("MyDate")),true) & "-" & year(Request.QueryString("MyDate")))
   zMonth= cdate("01-" & monthname(month(Request.QueryString("MyDate")),true) & "-" & year(Request.QueryString("MyDate")))
   end if   

    %>
<TABLE align=center cellSpacing=1 cellPadding=1 width="30%" border=1>
<TR> 
   <% Response.Write "<TD colspan=5><B>" & monthname(month(zDate),false) & " " & Year(zDate) & "</B></TD>"
   Response.write "<A HREF= ./calendar.asp?Mydate=" & zDate - 1 & "><TD><P align=center> < </P></TD><A>"
   Response.write "<A HREF= ./calendar.asp?Mydate=" & zDate + 32 & "><TD><P align=center> > </P></TD><A>" %>
</TR>  
  <TR>
    <TD width="14%">
      <P align=center>Sat</P></TD>
    <TD width="14%">
      <P align=center>Sun</P></TD>
    <TD width="14%">
      <P align=center>Mon</P></TD>
    <TD width="14%">
      <P align=center>Tue</P></TD>
    <TD width="14%">
      <P align=center>Wed</P></TD>
    <TD bgcolor="#ffb6c1" width="14%">
      <P  align=center>Thu</P></TD>
    <TD bgcolor="#ffb6c1"  width="14%">
      <P align=center>Fri</P></TD></TR>
      <%  
		  For zDay=1 to 7
		      if zDay=6 or zDay=7 then
				  zBackcolor="#ffb6c1"
			  else
			  	  zBackcolor="white"
			  end if	  	  
		      if weekday(zDate,7)=zDay then
		         exit for
		      else
		         Response.Write "<TD bgColor="& zBackcolor & " align=right>&nbsp;</TD>"
		      end if   
		  next
		  
		  while month(zDate)=month(zmonth)
				if zDay=6 or zDay=7 then ' Le weekend chez nous C'est Jeudi/Vendredi
				  zBackcolor="#ffb6c1"   ' Couleur ferier
			  else
			  	  zBackcolor="white"
			  end if	  	  
				if zDay>7 then 
				Response.Write "</TR>"
				zDay=1
				End if
					Response.Write "<A  HREF= '.\Daybook.asp?zDate=" & day(zDate) & "-" & monthname(month(zdate),TRUE) & "-" & year(zdate) & "'> <TD bgColor=" & zBackcolor & " align=right>" & day(zDate) &"</TD></A>"
					zDay=zDay+1
					zDate=zDate+1
		  Wend
		  for x = zDay to 7
			
			Response.Write "<TD bgColor=" & zBackcolor & " align=right>&nbsp;</TD>"
		  next	
		  Response.Write "</TR>"
	  %>	  
</TABLE></P>
<P></FONT>&nbsp;</P>
<P align=center><A HREF="..\Welcome.asp">Back to Main Menu</A></P>

</BODY>
</HTML>

Conclusion

Je suis desole s'il n y a pas de remarque. j'essiayerais de faire mieu la prochaine fois.

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 SÉLECTEUR DE DATE EN ASP / DHTML par aspmag

CALENDRIER par zecreator

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

CALENDRIER EN ASP.NET par everest

Commentaires et avis

Commentaire de ThunderPsycho le 08/02/2004 10:09:23

Mouai, déja pas de capture...

En plus, t'expliques rien, il manque pleins de fichiers et c du pompé on sait pas ou... t'aurais au moins pu faire ça bien en mettant tous les fichiers...

M'enfin, l'affichage du calendrier fonctionne pour le mois courant, on va dire que c déja ça...

Commentaire de sokram le 08/02/2004 12:57:54

Veuillez me corriger s'il vous plais, je ne suis qu'un debutant eet je vous en serais reconnaissant.

il y a a beaucoup de personne que j'admire dans ce site, des genies... de l'informatique.

Sokram

Commentaire de xB2x le 17/08/2004 12:32:49

Ta pas donnée des infos sur les autres fichiers
et puis jai pa compris l'utilité de ce calendrier ....

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), Exporter les dates d'une bdd dans le calendrier outlook [ par rdeloozc ] Bonjour est il donc possible pour un débutant d'exporter les dates d'une base de donnée access dans le calendrier d'outlook??? Je travaille avec Acces

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

RE : GRIDVIEW CHECKBOX par jacksparoow

GESTION DE BIBLIOTHèQUE par tdiniss

GRIDVIEW CHECKBOX par invent001

OUTIL MYSQL par nobla

AFFICHAGE D'IMAGES OU ZONE COULEUR SUR UN PLAN par yok28

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

Logiciels

sDEVIS-FACTURES vlPRO (8.1.0.3)
SDEVIS-FACTURES VLPRO (8.1.0.3)

sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa...

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
974 Application Server (12.2.4.6)
974 APPLICATION SERVER (12.2.4.6)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au...

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP