Filoweb.it

fare un calendario con asp


FB TW G+ 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 G+ 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 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 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