-- screensize.asp --
<%
'Verifichiamo se i cookie sono abilitati
If Not Request.ServerVariables("HTTP_COOKIE") = "" Then
'Leggiamo il cookie e lo memorizziamo
ScreenSize = Request.Cookies("ScreenSize")
'Se il cookie non esiste allora lanciamo
'il codice javascript che ricava le dimensioni
'dello schermo e le scrive nel cookie
If ScreenSize = "" OR IsNull(ScreenSize) Then
Response.Redirect "screensize_js.asp"
End If
'Separiamo le due informazioni contenute
'nel cookie unite dal carattere -
ScreenX = Split(ScreenSize, "-")(0)
ScreenY = Split(ScreenSize, "-")(1)
'Visualizziamo le dimensioni dello schermo
Response.Write "Larghezza schermo: " & ScreenX
Response.Write "
"
Response.Write "Altezza schermo: " & ScreenY
'Cancelliamo il cookie
Response.Cookies("ScreenSize").Expires = Date - 3
'Cookie non supportati
Else
Response.Write "Spiacenti, i cookie non sono abilitati"
End If
%>
-- screensize_js.asp --