<p> <style> td {font-family: "安体"; размер шрифта: 9pt} </style> <body bgcolor = "eeeeeeee"> <table cellpadding = "0" cellpacing = "1" bgcolor = "dddddddd" align = center> <%'. Ниже приведены специфические коды, внедренные в ASP в этом календаре. На основании текущего года и месяца. If request ("reqdate") = "" thercydate = date else currentdate = trim (request ("reqdate"))) end if pyear = year (currentdate) pmonth = месяц (currentdate) </p> <p> 'Следующий код генерирует содержание заголовка таблицы для календарного отображения %> <tr align = "bgcolor ="#ddd "#ddd"#ddd " align = "center"> <input type = "button" value = "<<" onclick = "javascript: location.href = '? reqdate = <%= dateAdd (" m ",-1, currentdate)%>'"> </td> <td colspan = "5" Align = "center"> <%= pyear%> year <%= pmontth%</td> momon> monem> </td> momon> momon> momon> mom monem> </pyear%> <%= pmon> momon> momon> mom monem> </td> momon> momon> mom monem </td> momon> momon> momon> mom monem </td> momon> momon> momon> momon> </td. align="center"> <input type="button" value=">>" onclick="JavaScript:location.href='?ReqDate=<%=DateAdd("m",1,CurrentDate)%>'"></td> </tr> <tr align="center" bgcolor="#CCCCCC"> <td>Day</td> <td>one</td> <Td> два </td> <td> три </td> <td> четыре </td> <td> пять </td> <td> шесть </td> </tr> <tr align = center bgcolor = ffffff host = 19> <% ', так как в ASP нет функции, что многие дни существует в целом для определенного месяца, мы не нуждаемся в этом. Алгоритм на самом деле очень прост, который состоит в том, чтобы вычислить, сколько дней в общей сложности между 1 -м днем месяца будет отображаться из отдачи = formatDateTime (месяц (CurrentDate) и "/1/" & Year (CurrentDate)) toDate = FormatDateTime (DateAdd ("M", 1, отдачи)) ' NunmonthStart = Weekday (FromDate) -1 'Получите общую сумму между 1-м днем месяца, который будет отображаться с 1-го дня до 1-го дня следующего месяца (сколько дней в общей сложности) Nunmonthend = Datediff («D», FromDate, Todate), чтобы определить, сколько рядов таблиц, чтобы показать календарь (7 дней, на 7-й день), если добыча), если добыча), если добыча). NunmonthStart+Nunmonthend <36, затем maxi = 36 else maxi = 43 end, если «изменение, чтобы генерировать таблицу и отображение i = 1 do, пока я <maxi iv = i-nunmonthStart, если я nunmonthStart и i <= Nunmonthend+Nunthstart then 'if = day (теперь) и месяц (теперь) = pmonthend+nunthstart' if = ype = montaving) = pmonthend). "<td align = center bgcolor = ffaaaa>" & iv & "</td>") else response.write ("<td align = center>" & iv & "</td>") end esponse.write. response.write ("</tr> <tr align = center bgcolor = ffffff height = 19>") end if i = i+1 loop%> </table> </body> [Ctrl+A Select All Note: Если вам нужно представить внешний JS, вам нужно обновить, чтобы выполнить]