07 novembre 2006 alle 09:06:39 Se a qualcuno puo' interessare ho fatto una piccola modifica molto elementare al file manager-inc.asp: avevo bisogno di far cambiare grafica al tema principale durante certi periodi dell'anno (natale, estate, inverno, etc etc) senza dover stare dietro al calendario per cambiare manualmente.
Allroa ho proceduto cosi':
ho creato altri temi nella cartella themes, del tipo "estate", "natale" e altre. In queste ho messo i temi personalizzati per il periodo scelto, e nel file manager-inc.asp nella routine Sub ReadApplicationFromXML() ho aggiunto il codice, tra le righe
if sDefaultTheme = "" then sDefaultTheme = "default" end if
. Questo il codice (mooolto sporco, ma lo devo ancora limare):
Dim Giorno, MeseNow, Festa, dt dt=Now() Giorno = day(dt) MeseNow = month(dt)
select case MeseNow case 1 : Festa="Gennaio" If giorno <= 6 Then sDefaultTheme = "capodanno" elseif giorno > 6 Then sDefaultTheme = "inverno" end if case 2 : Festa="Febbraio" sDefaultTheme = "inverno" case 3 : Festa="Marzo" If giorno < 21 Then sDefaultTheme = "inverno" else sDefaultTheme = "primavera" end if case 4 : Festa="Aprile" sDefaultTheme = "primavera" case 5 : Festa="Maggio" sDefaultTheme = "primavera" case 6 : Festa="Giugno" If giorno < 21 Then sDefaultTheme = "primavera" else sDefaultTheme = "estate" end if case 7 : Festa="Luglio" sDefaultTheme = "estate" case 8 : Festa="Agosto" sDefaultTheme = "estate" case 9 : Festa="Settembre" If giorno < 23 Then sDefaultTheme = "estate" else sDefaultTheme = "autunno" end if case 10: Festa="Ottobre" sDefaultTheme = "autunno" case 11: Festa="Novembre" sDefaultTheme = "autunno" case 12: Festa="Dicembre" If giorno < 22 Then sDefaultTheme = "autunno" elseif giorno >=24 and giorno<= 26 then sDefaultTheme = "natale" elseif giorno >= 29 and giorno<= 31 Then sDefaultTheme = "vigilia" else sDefaultTheme = "inverno" end if case else sDefaultTheme = "default" end select
Ovviamente funziona solo se avete creato tanti temi quanti ne avete indicati nello script.
Fatemi sapere se vi e' utile.
--------------- *** KawaShi ***
Log in
Cerca
Sostieni AspNuke
Un piccolo gesto per aiutarci a mantenere AspNuke.it online
Promo
MusicWebItalia.it Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.
Visitatori
Visitatori Correnti : 177 Membri : 0
Anna
Iscritti
Utenti: 18940
Ultimo iscritto : glauco Lista iscritti Messaggi privati: 3373Commenti: 2210Immagini: 39Downloads: 144Articoli: 49Pagine: 101Siti web: 558Notizie: 180Sondaggi: 11Preferiti: 5684716Post sui forum: 51195Libro degli ospiti: 4Eventi: 7