Un calendrier

Commenter

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

S'inscrire maintenant

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.