<% 'Verifichiamo se i cookie sono abilitati If Not Request.ServerVariables("HTTP_COOKIE") = "" Then 'Leggiamo il cookie e lo memorizziamo in una 'variabile ScreenSize = Request.Cookies("ScreenSize") 'Se il cookie non esiste allora lanciamo 'il codice javascript che ricava le dimensioni 'dello schermo e le memorizza 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 "<br>" 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 %>
|