Programa de instância do código do calendário implementado por ASP

<estilo>

TD {Font-Family: Font-Family; Size da fonte: 9pt}

</style>

<corpo bgcolor = eeeeee>

<tabela largura = 180 CellPadding = 0 CellPacing = 1 bgcolor = dddddd align = Center>

<%

'O seguinte é o código específico implementado por este algoritmo de calendário em ASP

'Primeiro determine se um ano e mês são especificados e, se não, ele será exibido de acordo com o ano e o mês atual

Se solicitar (reqdate) = então

CurrentDate = Data

outro

CurrentDate = Trim (request (reqdate))

final se

pionear = ano (date current)

PMONTH = Mês (CurrentDate)

'O código a seguir gera o conteúdo do cabeçalho da tabela exibido pelo calendário

%>

<tr alinhe = esquerda bgcolor =#dddddd>

<td width = 14% altura = 19 alinhamento = centro>

<Tipo de entrada = Valor do botão = << OnClick = javascript: location.href = '? reqdate = < %= DATEADD (M, -1, CurrentDate) %>'>

</td>

<td colspan = 5 align = centro>

<%= Pyear%> ano <%= pmonth%> mês

</td>

<td width = 14% align = centro>

<Tipo de entrada = Valor do botão = >> OnClick = JavaScript: Location.href = '? Reqdate = <%= DATADD (M, 1, CurrentDate)%>'>

</td>

</tr>

<tr align = Center bgcolor =#cccccc>

<td width = 14% altura = 19> dia </td>

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

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

<td width = 14%> três </td>

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

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

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

</tr>

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

<%

'Como não há função no ASP para obter quantos dias existe em um mês especificado, precisamos obtê -lo através de outros algoritmos. O algoritmo é realmente muito simples, que é calcular quantos dias a diferença entre o 1º dia do mês e o 1º dia do próximo mês.

FromDate = FormatDateTime (mês (CurrentDate) & / 1 / & Year (CurrentDate))

Todate = FormatDateTime (DataAdd (M, 1, Fromdate))

'Pegue o primeiro dia do mês para mostrar a semana

NUNMONTHSTART = DIA DA SEMANA (FORDATE) -1

'Obtenha a diferença total entre o 1º dia até o 1º dia do próximo mês (quantos dias existem no mês)

NunMonthend = Datediff (D, Fromdate, Todate)

'Quantas fileiras de tabelas são necessárias para serem exibidas para determinar o calendário (7 dias por linha)

Se Nunmonthstart Nunmonthend <36 então

maxi = 36

outro

maxi = 43

final se

'Altere para gerar a tabela e exibi -la

i = 1

Faça enquanto eu <maxi

iv = i-nunmonthstart

Se eu> Nunmonthstart e eu <= NunMonthend Nunmonthstart então

'Se for exibido hoje, use um fundo vermelho

Se iv = dia (agora) e mês (agora) = pmonth e ano (agora) = pio então então

Response.write (<td align = Center bgcolor = ffaaa> <a href = '#' alvo = _blank> & iv & </a> </td>)

outro

Response.Write (<td align = Center> <a href = '#' Target = _blank> & iv & </a> </td>)

final se

outro

Response.Write (<Td> </td>)

final se

'Se puder ser dividido por 7 (7 são exibidos por linha), produza uma nova linha

se eu mod 7 = 0 então

Response.write (</tr> <tr align = Center bgcolor = ffffff altura = 19>)

final se

i = i 1

laço

%>

</tabela>

</body>