Calendario
Script che permette di creare un calendario che visualizza il mese e il giorno corrente:
<% Giorno = day(now) Mese = month(now) Anno = year(now) MeseNow = month(now) %> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%"> <% 'creo la data iniziale del mese DataInizio= "01/" & Mese & "/" & Anno Mese = DatePart("M",DataInizio) 'inizializzo il contatore dei giorni del mese CounterDay = 1 'ciclo scansione settimane for Week=0 to 5 Response.Write("<tr>") 'ciclo che scandisce i giorni della settimana for DayX = 1 to 7 DayAttuale=Datepart("w",DataInizio,2) '2 indica che Lunedi if DayAttuale = DayX then if Mese=Month(DataInizio) then %> <% 'generazione cella calendario if CounterDay = Giorno and Mese = Mese then ' Coloro la cella per data odierna Response.Write ("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#6098D0'>") Response.Write ("<b><font face='Verdana' size='2' color='#FFFFFF'><center>" & CounterDay & "</center></font></b>") Response.Write ("<br>") else Response.Write("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#EFF3F6'>") Response.Write ("<b><font face='Verdana' size='2' color='#336699'><center>" & CounterDay & "</center></font></b>") Response.Write ("<br>") end if %> <% 'Chiudo la cella del calendario Response.Write ("</td>") %> <% 'Continuo con un altro giorno DataInizio=dateadd("d",1,DataInizio) CounterDay=CounterDay+1 else 'se il mese del giorno non e uguale a quello 'attuale allora il calendario h terminato esco 'dal ciclo ponendo Week = 5 Week=5 end if else 'se il giorno non fa parte del mese 'attuale stampo una cella vuota Response.Write("<td width='100' height='100'>&nbsp;</td>") end if next %> <% 'Chiudo la settimana Response.Write("</tr>") next %> <% 'Chiudo il calendario Response.Write("</tr>") Response.Write("</table>") %>
Script ASP
-
ASP.NET
Contatori (ASP)
Chat (ASP)
Database
Date e Ore -
Email (ASP)
File ASP
Gestione banner
Grafica e Layout
Script matematici
Articoli ASP | Libri ASP | Manuale ASP
Guadagna con i sondaggi!
Iscriviti adesso e potrai guadagnare qualche soldino partecipando ai sondaggi online!
Motori di ricerca & Marketing
Indispensabile a chiunque voglia imparare lo splendido lavoro del Web Marketer!
Linux
Guida al sistema operativo open-source, completamente gratuito e potente.
Fai fruttare il tuo sito!
Diventa oggi stesso un affiliato Trade Doubler e guadagna qualche soldino con il tuo sito web.
- Flash MX e Action Script
Corso di programmazione ActionScript per rendere interattivi i filmati Flash. - Visual Basic 6
Imparare a programmare col noto linguaggio di casa Microsoft. - MS Access
Il noto database attraverso la sua interfaccia visuale ed il linguaggio SQL. - MySQL
Corso completo sul famoso DBMS open-source. - ASP Completo
Corso completo per imparare a fondo lŽASP con lŽutilizzo del VBScript. - ASP.Net
Realizzazione di applicazioni Web con la nuova tecnologia di casa Microsoft. - Front Page
Corso completo sul noto editor HTML della Microsoft.