<p> <style> td {Font-Family: "安体"; Font-size: 9pt} </style> <body bgcolor = "eeeeeeee"> <table cellPadding = "0" cellPacing = "1" bgcolor = "ddddddd" alineando = Center> <%'Los siguientes son los códigos específicos implementados en ASP a través de este calendario algorithm </p>' 'P>' Determinan primero si un año y un año se especifican, y si se especifican, y si se especifican, y si no se especifican, y si no se especifican, y no se especifican un año, y si no se especifican, y si no se especifican un año, y si no se especifican, y no se especifican un año, y si no se especifican, y no se especifican un año, y no se especifican un año, y si no se especifican un año, y si no se especifican un año, y si no se especifican un año, y no se especificarán. se muestra en función del año y el mes en curso. Si request ("reqdate") = "" entonces currentDate = date else currentDate = trim (request ("reqDate")) final si pyear = año (currentDate) pMonth = mes (currentDate) </p> <p> 'El siguiente código genera el contenido del encabezado de la tabla para la pantalla de calendar %> <tr align = "izquierda" bgcolor = "#dddddd" tddd " align = "Center"> <input type = "Button" value = "<<" onClick = "javascript: ubicación.href = '? reqdate = <%= dataadd (" m ",-1, actualDate)%>'"> </td> <td colspan = "5" align = "Center"> <%= pyear%> año <%= pMonth%> 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> dos </td> <td> tres </td> <td> cuatro </td> <td> cinco </td> <td> Six </td> </tr> <tr align = Center bgcolor = ffffff height = 19> <% 'Dado que no hay función en ASP que especifica cuántos días hay en total para el mes específico, debemos obtener el mes, debemos obtener el tiempo. The algorithm is actually very simple, which is to calculate how many days there is in total between the 1st day of the month to be displayed fromDate = FormatDateTime(month(CurrentDate) & "/1/" & year(CurrentDate)) toDate = FormatDateTime(DateAdd("m",1,fromDate)) 'Get the week of the month to be displayed nunmonthStart = Weekday (Fundate) -1 'Obtenga el total entre el primer día del mes que se exhibirá desde el primer día hasta el primer día del próximo mes que se exhibirá (cuántos días hay en total) nunmonthend = datediff ("d", fronDaTate, Toda)' para determinar cuántas hojas se necesitan para mostrar el calendario (7 días por fila) si) si)) nunmonthstart+nunmonthend<36 then maxi=36 else maxi=43 end if 'Change to generate the table and display i=1 do while i<maxi iv=i-nunmonthstart if i>nunmonthstart and i<=nunmonthend+nunmonthstart then 'If iv=Day(now) and month(now)=pmonth and year(now)=pyear then response.write( "<td align = Center bgcolor = ffaaa>" & iv & "</td>") else Response.Write ("<td align = center>" & iv & "</td>") end si la respuesta.write ("<td> </td>") end si </p> <p> 'si puede divisible en 7 (7 se muestra por línea), sale 7. Response.Write ("</tr> <tr align = Center bgcolor = ffffff height = 19>") final si i = i+1 bucle%> </body> [Ctrl+A Seleccionar todo nota: si necesita introducir JS externo, debe actualizarse para ejecutar]
