Un calendrier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 613 fois - Téléchargée 28 fois

Contenu du snippet

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

Source / Exemple :


<%@ 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.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
8
Date d'inscription
vendredi 13 février 2004
Statut
Membre
Dernière intervention
6 avril 2006

Ta pas donnée des infos sur les autres fichiers
et puis jai pa compris l'utilité de ce calendrier ....
Messages postés
4
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
26 juillet 2004

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
Messages postés
180
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
4 février 2007

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...

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.