Filoweb.it

fare un calendario con asp


FB TW Pinterest whatsapp RSS FEED News letter
ASP
fare un calendario con asp


<%

Session.LCID = 1040



' se non passiamo nessun valore parte dalla data odierna

If Request(" data" ) =" " then

data = Date()

else

data = CDate(Request(" data" ))

end if



mese = Month(data)

anno = Year(data)



' conta il numero di giorni in un mese

function giornidelmese(mese, anno)

DataInizio = CDate(" 01/" & mese & " /" & anno)

DataFine = DateAdd(" m" , 1, DataInizio)

giornidelmese = DateDiff(" d" , DataInizio, DataFine)

end function



%>

<table border=" 1" cellpadding=" 0" cellspacing=" 0" bordercolor=red width=" 300" >

<tr>

<td><a href=" calendar.asp?data=<%=DateAdd(" m" , -1, data)%>

" ><</td>

<td colspan=" 5" align=" center" ><%=MonthName(Month(data)) & " " & Year(data)%></td>



<td align=" righ" ><a href=" calendar.asp?data=<%=DateAdd(" m" , 1, data)%>

" >></td>

</tr>

<tr bgcolor=" #C0C0C0" ><td>D</td><td>L</td><td>M</td><td>M</td>

<td>G</td><td>V</td><td>S</td></tr>

<%

DataInizio = CDate(" 01/" & mese & " /" & anno)



' saltiamo primi giorni della settimana

for i = 1 to WeekDay(DataInizio)-1

if i = 1 then Response.Write " <tr>"

Response.write " <td bgcolor=gray> </td>"

next



' mostriamo il calendario

for i = 1 to giornidelmese(mese,anno)

data = Cdate(( i & " /" & mese & " /" & anno))

if WeekDay(data) = 1 then Response.Write " <tr>"

Response.Write(" <td align=" " center" " >" & i & " </td>" )

if WeekDay(data) = 7 then Response.Write " </tr>"

next



' saltiamo primi giorni della settimana

for j = WeekDay(Data)+1 to 7

Response.write " <td bgcolor=gray> </td>"

if j mod 7 = 0 then Response.Write " </tr>" : exit for

next





%>

</table>
FB TW Pinterest whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:fare un calendario con asp. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it