Programme d'instance de code de calendrier implémenté par ASP

<style>

TD {Font-Family: Font-Family; taille de police: 9pt}

</ style>

<corps bgcolor = eeeeee>

<table largeur = 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

`` Déterminez d'abord si un an et un mois sont spécifiés, et sinon, il sera affiché en fonction de l'année et du mois en cours

Si demande (reqdate) = alors

CurrentDate = Date

autre

CurrentDate = Trim (demande (reqdate))

terminer si

pyear = an (currentDate)

pmonth = mois (currentDate)

'Le code suivant génère le contenu d'en-tête de table affiché par le calendrier

%>

<tr align = Left bgColor = # dddddd>

<td largeur = 14% de hauteur = 19 align = centre>

<input type = Button Value = << onClick = javascript: location.href = '? reqdate = <% = dataEadd (m, -1, currentdate)%>'>

</td>

<td ColSpan = 5 Align = Center>

<% = pyear%> an <% = pmonth%> mois

</td>

<td width = 14% align = Center>

<entrée type = Button Value = >> onClick = JavaScript: location.href = '? reqdate = <% = dataEadd (m, 1, currentdate)%>'>

</td>

</tr>

<tr align = Center bgColor = # cccccc>

<td largeur = 14% de hauteur = 19> jour </td>

<td largeur = 14%> 1 </td>

<td width = 14%> 2 </td>

<td width = 14%> trois </td>

<td width = 14%> 4 </td>

<td largeur = 14%> cinq </td>

<td largeur = 14%> six </td>

</tr>

<tr align = Center bgcolor = ffffff height = 19>

<%

«Puisqu'il n'y a aucune fonction dans ASP pour obtenir le nombre de jours dans un mois spécifié, nous devons l'obtenir via d'autres algorithmes. L'algorithme est en fait très simple, qui est de calculer le nombre de jours de la différence entre le 1er jour du mois et le 1er jour du mois suivant.

FORDATE = FORMATDATETIME (MOIS (CurrentDate) & / 1 / Année (CurrentDate))

todate = formatDateTime (dataEadd (m, 1, FromDate))

'Obtenez le premier jour du mois pour montrer la semaine

nunmonthstart = weekday (from date) -1

'Obtenez la différence totale entre le 1er jour jusqu'au 1er jour du mois prochain (combien de jours y a-t-il dans le mois)

nunmonthend = datediff (d, FromDate, todate)

'Combien de rangées de tables doivent être affichées pour déterminer le calendrier (7 jours par rangée)

Si Nunmonthstart nunmonthend <36 alors

maxi = 36

autre

maxi = 43

terminer si

'Changer pour générer la table et l'afficher

i = 1

faire pendant que je <maxi

iv = i-nunmonthstart

Si i> nunmonthstart et i <= nunmonthend nunmonthstart alors

'S'il est affiché aujourd'hui, utilisez un fond rouge

si iv = jour (maintenant) et mois (maintenant) = pmonth et année (maintenant) = pyear alors

Response.Write (<TD Align = Center BgColor = FFAAA> <a href = '#' Target = _blank> & iv & </a> </td>)

autre

réponse.write (<td align = Center> <a href = '#' cible = _blank> & iv & </a> </td>)

terminer si

autre

réponse.write (<td> </td>)

terminer si

'S'il peut être divisé par 7 (7 sont affichés par ligne), émettez une nouvelle ligne

Si je mod 7 = 0 alors

Response.Write (</tr> <tr align = Center bgcolor = ffffff height = 19>)

terminer si

i = i 1

boucle

%>

</ table>

</docy>