 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : construire un tableau à l'envers en ASP en fonction de la date | |
| pepedong | allez pour etre vachtement plus precis je vous mets la portion de code
<table border=1 bordercolor="#666666" cellpadding=1 cellspacing=0 align=center style="border-collapse:collapse"> <% ' on parcourt les jours du mois Do ' on construit le nom de fichier qui correspond à la semaine courante avec ce jour-ci Dim annee_tmp, mois_tmp, jour_tmp annee_tmp = DatePart("YYYY", dateCourante) mois_tmp = DatePart("M", dateCourante) If mois_tmp < 10 Then mois_tmp = "0"& mois_tmp jour_tmp = DatePart("D", dateCourante) If jour_tmp < 10 Then jour_tmp = "0"& jour_tmp week_day = DatePart("W", dateCourante, VBMonday) ' seulement si l'on n'est pas un dimanche, et que l'on n'est pas trop loin dans le temps : If week_day < 7 And Date() > dateCourante Then auMoinsUnJour = true ' si on va changer de semaine, on met une séparation If (Not DatePart("WW",dateCourante,VBMonday) = DatePart("WW",dateCourantePrec,VBMonday)) _ And (Not dateCourantePrec = DateSerial(annee, mois, 1)) Then Response.Write chr(10) &"<tr style=""border-right:0pt; border-left:0pt""><td style=""border-right:0pt; border-left:0pt""> </td></tr>" & chr(10) End If nomFich0 = nometat1 & annee_tmp & mois_tmp & jour_tmp nomFich = nometat1 & annee_tmp & mois_tmp & jour_tmp & format ' nomFich2 = Server.MapPath(cheminFichiers & nomFich) nomFich2 = cheminFichiers & nomFich If format = ".htm" Then nomFichsec = cheminFichiers & vsecure & nomFich & imprim_secur End If If format = ".pdf" Then nomFichsec = cheminFichiers & nomFich End If nomFich22 = cheminFichiers2 & nomFich0 Response.Write "<tr>"& chr(10) Response.Write chr(9) &"<td width=520 bgcolor=#E8EEDB align=left valign=top style=""cursor:hand;"" onmouseover=""bg_sauv=this.style.backgroundColor; this.style.backgroundColor=bg_over_serv;"" onmouseout=""this.style.backgroundColor=bg_sauv;""><p style=""color:#336600""><a class=""ca"" href=""#"" onClick=""MM_openBrWindow('" & nomFichsec & "','secure','scrollbars=yes,resizable=yes,toolbar=no,statusbar=no,addressbar=yes,width=750,height=560');"" >CA du <font style=""font-family:verdana; color:#666666; font-weight:bold; font-size:7 pt"">" & TabJour(week_day - 1)&" " & jour_tmp &" "& TabMois(mois_tmp-1)&"</font></a></p>" & chr(10) 'Response.Write chr(9) &"<td bgcolor=FFFFFF>" ' Vérifier que ce fichier existe bien ' If filesys.FileExists(nomFich22) Then 'If 'filesys.FileExists("f098st13/dms/ocp-web/Ctr_gest/national/restreint/CA_cajetab_lig_pdt_20020506.htm" ) Then ' s'il existe, on ajoute son lien ' Response.Write "<p><a href=""""& cheminFichiers & vsecure & nomfich"""">"& nomfich & nomFich2 &"</a></p>" 'Response.Write "<p><a href=" & nomFichsec & " > " & nomfich & "</a></p>" 'Response.Write "<p><a href=""#"" onClick=""MM_openBrWindow('" & nomFichsec & "','secure','scrollbars=yes,resizable=yes,toolbar=no,statusbar=no,addressbar=no,width=750,height=560');"" >" & TabJour(week_day - 1)&" " & jour_tmp &" "& TabMois(mois_tmp-1)& "</a></p>" 'Else ' sinon... 'Response.Write "<p>"& nomfich & nomFich22 &"</p>" 'End If Response.Write "</td></tr>" & chr(10) End If ' on retient ce jour-ci dateCourantePrec = dateCourante ' on ajoute un jour dateCourante = DateAdd("D", 1, dateCourante) Loop While DatePart("M",dateCourante) = DatePart("M",dateCourantePrec) If Not auMoinsUnJour Then Response.Write chr(10) &"<tr><td align=center><p>Il n'y a pas encore de fichiers CA_cajetab_lig_pdt_ disponibles pour "& TabMois(mois-1) _ &"</p></td></tr>" & chr(10) End If %> </table> |
| Vue Rapide de la discussion |
|---|
