<p> <style> TD {Font-Family: "安体"; Font-Size: 9pt} </ Style> <Body bgColor = "eeeeeeee"> <table cellpadding = "0" Cellpacing = "1" bgcolor = "ddddddd" align = Center> <% 'Les codes spécifiques sont mis en œuvre en Asp via ce calendaire, et si non, il ne sera pas précisé affiché sur la base de l'année et du mois en cours. Si demande ("reqDate") = "" alors currentDate = Date else currentDate = Trim (request ("reqDate")) end if pyear = an (currentDate) pmonth = mois (currentDate) </p> <p> 'Le code suivant génère le contenu de la table de table pour le calendar affiche%> <tr entièrement Align = "Center"> <Input Type = "Button" Value = "<<" OnClick = "JavaScript: Location.Href = '? REQDATE = <% = DATAEADD (" M ", - 1, CurrentDate)%>'"> </td> <td colespan = "5" Align = "Center"> <% = Pyear% année Align = "Center"> <Input Type = "Button" Value = ">>" OnClick = "JavaScript: Location.Href = '? REQDATE = <% = DATAEADD (" M ", 1, CurrentDate)%>'"> </td> </ tr> <tr> <tr Align = "Center" BGCOLOR = "# CCCCC"> <TD> <td> deux </td> <td> trois </td> <td> quatre </td> <td> cinq </td> <td> six </td> </tr> <tr align = Center bgcolor = ffffff height = 19> <% 'car il n'y a pas de fonction dans ASP qui spécifie les autres jours dans le total pour le mois spécifié, nous avons besoin d'obtenir un autre algomith. L'algorithme est en fait très simple, qui est de calculer combien de jours il y a au total entre le 1er jour du mois à afficher FromDate = FormatDatetime (Mois (CurrentDate) & "/ 1 /" & Year (CurrentDate)) TODATE = FormatDateTime (DataEadd ("M", 1, FromDate)) " nunmonthstart = weekday (From Date) -1 'Obtenez le total entre le 1er jour du mois pour être affiché du 1er jour au 1er jour du mois prochain à afficher (combien de jours il y a au total) nunmonthend = Datediff ("D", from, todate)' pour déterminer combien de rangées de tableaux sont nécessaires pour afficher le calise nunmonthstart + nunmonthend <36 alors maxi = 36 else maxi = 43 end if 'changer pour générer le tableau et afficher i = 1 faire pendant que je <= nunmonthend + nunmonthstart "<td align = Center bgColor = ffaaa>" & iv & "</td>") else réponse.write ("<td align = Center>" & iv & "</td>") end if eser réponse.write ("<td> </td>") end if </p> <p> 'si elle peut être divisible par 7 (7 est affichée par ligne), la puissance, si elle peut être divisible par 7 (7 a été affichée par ligne), la production A new a le modordial par 7 (7 (7 est affichée par ligne), la production A newline A News 7 = 0 alors réponse.write ("</tr> <tr align = Center bgcolor = ffffff height = 19>") end if i = i + 1 boucle%> </s table> </ body> [Ctrl + A Sélectionnez All Remarque: Si vous devez introduire un JS externe, vous devez actualiser pour exécuter]
