Cambiare immagine di sfondo ogni ora


 

Cari amici, oggi voglio farvi un regalo.
Condivido con voi questo script da me creato e pronto all'uso che consente di cambiare l'immagine di background del vostro sito ogni ora, ma è possibile comunque personalizzare l'orario a vostro piacimento.

Dovete solo intervenire in 2 punti.

1. Dovete modificare il percorso delle vostro immagini (vi consiglio ad alta risoluzione ed almeno 1200x800 pixel e max 300Kb)

"images/background/1.jpg" = sostituite con il vostro percorso

2. per quanto riguarda l'orario da voi scelto:

ElseIf ora >= 1 AND ora < 2 Then = questa immagine sarà mostrata dalle 1 alle 1.59 di notte, quindi modificare l'orario se volete ad esempio mostrarla dalle 6 del mattino alle 15 del pomeriggio, quindi: ElseIf ora >= 6 AND ora < 15 Then

Ecco il codice da incollare nella pagina di configurazione del vostro sito oppure nel footer, l'importante è che questo codice sia "incluso" in ogni pagina del vostro sito.
Insieme al codice asp trovate anche la parte css che potete sostituire con il vostro css già configurato.

<%
Dim SetBackgroundImg
ora = Hour(Now)
If ora >= 24 AND ora < 1 Then
SetBackgroundImg = "images/background/1.jpg"
ElseIf ora >= 1 AND ora < 2 Then
SetBackgroundImg = "images/background/2.jpg"
ElseIf ora >= 2 AND ora < 3 Then
SetBackgroundImg = "images/background/3.jpg"
ElseIf ora >= 3 AND ora < 4 Then
SetBackgroundImg = "images/background/4.jpg"
ElseIf ora >= 4 AND ora < 5 Then
SetBackgroundImg = "images/background/5.jpg"
ElseIf ora >= 5 AND ora < 6 Then
SetBackgroundImg = "images/background/6.jpg"
ElseIf ora >= 6 AND ora < 7 Then
SetBackgroundImg = "images/background/7.jpg"
ElseIf ora >= 7 AND ora < 8 Then
SetBackgroundImg = "images/background/8.jpg"
ElseIf ora >= 8 AND ora < 9 Then
SetBackgroundImg = "images/background/9.jpg"
ElseIf ora >= 9 AND ora < 10 Then
SetBackgroundImg = "images/background/10.jpg"
ElseIf ora >= 10 AND ora < 11 Then
SetBackgroundImg = "images/background/11.jpg"
ElseIf ora >= 11 AND ora < 12 Then
SetBackgroundImg = "images/background/12.jpg"
ElseIf ora >= 12 AND ora < 13 Then
SetBackgroundImg = "images/background/13.jpg"
ElseIf ora >= 13 AND ora < 14 Then
SetBackgroundImg = "images/background/14.jpg"
ElseIf ora >= 14 AND ora < 15 Then
SetBackgroundImg = "images/background/15.jpg"
ElseIf ora >= 15 AND ora < 16 Then
SetBackgroundImg = "images/background/16.jpg"
ElseIf ora >= 16 AND ora < 17 Then
SetBackgroundImg = "images/background/17.jpg"
ElseIf ora >= 17 AND ora < 18 Then
SetBackgroundImg = "images/background/18.jpg"
ElseIf ora >= 18 AND ora < 19 Then
SetBackgroundImg = "images/background/19.jpg"
ElseIf ora >= 19 AND ora < 20 Then
SetBackgroundImg = "images/background/20.jpg"
ElseIf ora >= 20 AND ora < 21 Then
SetBackgroundImg = "images/background/21.jpg"
ElseIf ora >= 21 AND ora < 22 Then
SetBackgroundImg = "images/background/22.jpg"
ElseIf ora >= 22 AND ora < 23 Then
SetBackgroundImg = "images/background/23.jpg"
ElseIf ora >= 23 AND ora < 24 Then
SetBackgroundImg = "images/background/24.jpg"
Else
SetBackgroundImg = "images/background/1.jpg"
End If
%>

 

NEL VOSTRO CSS
Note: Per il corretto funzionamento è necessario che questa porzione di css sia inclusa nel file asp oppure intervenire tramite session o cookie per memorizzare la variabile SetBackgroundImg

body {
background: url(<%=SetBackgroundImg%>) #d0d9dd no-repeat fixed left top;

}

 

 

Buon lavoro!