<P><style>td { font-family: 宋体; font-size:9pt}</style><body bgcolor=eeeeee><table width=180 cellpadding=0 cellpacing=1 bgcolor=dddddd align=center><% 'Ce qui suit est le code spécifique implémenté par cet algorithme de calendrier dans ASP</P><P> 'Déterminez d'abord si une année et un mois sont spécifiés, sinon, affichez le If en fonction de l'année et du mois en cours Request(ReqDate)= then CurrentDate=Dateelse CurrentDate=Trim(Request(ReqDate))end ifpyear=year(CurrentDate)pmonth=month(CurrentDate)</P><P> 'Le code suivant génère le contenu de l'en-tête du tableau pour l'affichage du calendrier % > <tr align=LEFT bgcolor=#dddddd> <td width=14% height=19 align=center> <input type=button value=<< onclick=JavaScript:location.href='?ReqDate=<%=DateAdd(m,-1,CurrentDate) %>'></td> <td colspan=5 align=center> <%=pyear% >Année<%=pmonth%>Mois</td> <td width=14% align=center> <input type=button value=>> onclick=JavaScript:location.href='?ReqDate=<%=DateAdd(m,1,CurrentDate)%>'></td> </tr> <tr align=center bgcolor=#CCCCCC> <td width=14 % height=19> jour</td> <td width=14%> un</td> <td width=14%> deux</td> <td width=14%> trois</td> <td width=14%> quatre</td> <td width=14%> cinq</td> <td width=14%> six</td> </tr> <tr align=center bgcolor=ffffff hauteur=19> <% "Comme il n'y a pas de fonction dans ASP pour obtenir le nombre de jours dans un mois spécifié, nous devons utiliser d'autres algorithmes pour l'obtenir. L'algorithme est en fait très simple, il consiste à calculer le nombre total de jours entre le 1er du mois. mois à afficher et le 1er du mois suivant fromDate = FormatDateTime(month(CurrentDate) & /1/ & year(CurrentDate))toDate = FormatDateTime(DateAdd(m,1,fromDate))'Obtenir le jour de la semaine où le premier jour du mois à afficher est nunmonthstart=weekday(fromDate)-1'Obtenir le nombre total de jours entre le 1er jour à afficher affiché et le 1er jour du mois suivant (Combien de jours y a-t-il dans le mois)nunmonthend=DateDiff(d,fromDate,toDate)' Déterminez le nombre de lignes de tableaux à utiliser pour afficher le calendrier (chaque ligne affiche 7 jours ) si nunmonthstart+nunmonthend<36 then maxi=36else maxi=43end if'Boucle pour générer la table et afficher i=1do while i<maxi iv=i-nunmonthstart if i>nunmonthstart et i<=nunmonthend+nunmonthstart then 'Si ce qui est affiché est aujourd'hui Puis affichez-le avec un fond rouge si iv=Jour(maintenant) et mois(maintenant)=pmois et année(maintenant)=pannée alors réponse.write( <td align=center bgcolor=ffaaaa><a href='#' target=_blank> & iv & </a></td>) else réponse.write( <td align=center><a href='#' target= _blank> & iv & </a></td>) fin si sinon réponse.write( <td> </td>) fin si</P><P> 'S'il est divisible par 7 (afficher 7 par ligne), afficher une nouvelle ligne si je mod 7=0 puis réponse.write( </tr><tr align=center bgcolor=ffffff height=19>) se terminer si i=i +1loop%></table></body>