Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1074 connectés 

  FORUM HardWare.fr
  Programmation

  construire un tableau à l'envers en ASP en fonction de la date

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

construire un tableau à l'envers en ASP en fonction de la date

n°164808
pepedong
Posté le 24-06-2002 à 17:05:57  profilanswer
 

Voila, incrémenter un tableau en nombre de ligne en ASP à l'envers.
 
Je m'explique, j'arrive en fonction de la date à creer un tab qui s'incremente de la maniere suivante avec un loop while sur une datepart
 
bbbbb du 1er juin
bbbbb du 2 juin
bbbbb du 3 juin
etc....
 
ET j'aimerai le contraire c'est à dire
etcc.
bbbb du 3 juin
bbbb du 2 juin
bbbb du 1er juin
 
SVp donner moi la petite astuce.
 
merci d'avance

mood
Publicité
Posté le 24-06-2002 à 17:05:57  profilanswer
 

n°164839
pepedong
Posté le 24-06-2002 à 17:35:49  profilanswer
 

c'est une question de neuneu ou y'a personne qui ^peut m'aider.
Si l'explication que je donne n'est pas assez precise dites le moi je developperai

n°164842
pepedong
Posté le 24-06-2002 à 17:38:00  profilanswer
 

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>


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  construire un tableau à l'envers en ASP en fonction de la date

 

Sujets relatifs
Saisie ds un tableauhtml dans la fonction mail()
Aidez moi en c++ sur une fonction merci ![XHTML] Rha foutu tableau !
[XHTML+CSS] centrer un tableau verticalement sur ma page ?[PHP] tableau vers string !!!!
[ASP] Rafraîchir une page ASP à partir d'une autre page ASPen ASP soit mes 10 requestes sql passent soit je veux rien faire passé
Comment tester des pages ASP?Impossible de faire un tableau d'une hauteur 100% en xhtml ?
Plus de sujets relatifs à : construire un tableau à l'envers en ASP en fonction de la date


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR