calendario asp

**Pandolfo** · 17-10-2006, 10:10

ho trovato questo script di Luca Rugiero in rete.

come si può fare per modificarlo nel senso di dare la possibilità di far scorrere i mesi all' utente?

codice:

<%@LANGUAGE = VBScript%>
<html>
    <head>
        <title>Un calendario in ASP</title>
        <style>
            td { font: Normal 10px Verdana; }
        </style>
    </head>
<body>

    <%
    ' Determina l'intestazione del box, mese e anno
    Dim intestazione
    ' Determina il giorno del mese
    Dim gg_mese
    ' Determina il giorno della settimana
    Dim gg_sett
    ' Determina il giorno, il mese e l'anno correnti
    Dim gg, mm, aa
    ' Determina il primo giorno del mese
    Dim primo
    ' Determina l'ultimo giorno del mese
    Dim ultimo
    ' Colore di sfondo per il giorno corrente
    Dim colore_gg

    intestazione = UCase(MonthName(Month(Date()))) & " " & Year(Date())
    gg_mese = "01/" & Month(Date()) & "/" & Year(Date())
    gg = 1
%>
<table bgcolor="#FFFFFF" align="center" cellpadding="5" 
    cellspacing="0" border="1" bordercolor="#CCCCCC">
    <tr>
        <td align="center" colspan="7" bgcolor="#EEEEEE">
        <%=intestazione%></td></tr>
        <tr bgcolor="#FFFFCC">
            <td align="center">D</td>
            <td align="center">L</td>
            <td align="center">M</td>
            <td align="center">M</td>
            <td align="center">G</td>
            <td align="center">V</td>
            <td align="center">S</td>
        </tr>
    <%
        ' Verifico se il mese il corso è Dicembre...
        ' in questo caso imposto il mese successivo a Gennaio dell'anno successivo
        ' in caso contrario imposto mese ed anno alla data attuale
        If (Month(Date()) + 1) > 12 Then 
            mm = 1
            aa = Year(Date()) + 1
        Else
            mm = (Month(Date()) + 1)
            aa = Year(Date())
        End if

        ' Calcolo il primo giorno del mese
        primo = "01" & "/" & mm & "/" & aa

        ' Calcolo l'ultimo giorno del mese
        ultimo = DateAdd("d", -1, primo)

        ' Creo dinamicamente la tabella ciclando i giorni
        ' ed interrompendo i cicli in funzione del fatto
        ' che il mese sia ancora in corso o meno
        ' e li associo al giorno della settimana corrispondente
        While (gg < Day(ultimo))
    %>
        <tr>
    <%
            gg_sett = WeekDay(gg_mese)
            For i = 1 To gg_sett - 1
    %>
        <td align="center"> </td>
    <%
            Next
            For i = gg_sett To 7
                ' Imposto il colore di sfondo del giorno corrente
                If gg = Day(Date()) Then
                    colore_gg = "#FFCCCC"
                Else
                    colore_gg = "#FFFFFF"
                End If
    %>
        <td align="center" bgcolor="<%=colore_gg%>"><%=gg%></td>
    <%
                gg = gg + 1
                If gg > Day(ultimo) Then Exit For
            Next
            For i = i + 1 To 7
    %>
        <td align="center"> </td>
    <%
            Next
    %>
        </tr>
    <%
            gg_mese = gg & "/" & Month(Date()) & "/" & Year(Date()) 
        Wend
    %>
</table>

</body>
</html>

**Galex** · 17-10-2006, 10:21

sostituisci tutti i Date() con una variabile DataCalendario che valorizzi con un valore ricavato tramite querystring da due link come questi:

response.write "<a herf='?DataCalendario="&DateAdd("m", 1, DataCalendario)&"'>avanti</a>"
response.write "<a herf='?DataCalendario="&DateAdd("m", -1, DataCalendario)&"'>indietro</a>"

e se DataCalendario = "" allora la valorizzi = Date() in modo che in partenza il calendario mostri la data corrente

**Pandolfo** · 17-10-2006, 10:42

ok grazie!

ultima cosa, in questo modo evidenziava il giorno corrente...

codice:

 If gg = Day(datacalendario) Then
                    colore_gg = "#FFCCCC"
                Else
                    colore_gg = "#FFFFFF"
                End If

ho provato coì ma non va

codice:

 If gg = Day(Date()) AND mm = Month(Date()) Then
                    colore_gg = "#FFCCCC"
                Else
                    colore_gg = "#FFFFFF"
                End If

**Galex** · 17-10-2006, 11:13

fatti dei response dei due confronti con le due variabili e controlla xkè nn si verifica la condizione...

Discussione: calendario asp

Strumenti discussione

Ricerca discussione

Visualizza

calendario asp

Permessi di invio