Cómo utilizar ASP para obtener la resolución de la pantalla del cliente, podemos lograrlo de las siguientes maneras:
Al acceder a una página web, use js para obtener la resolución del navegador, luego redirija a esta página web y pase la resolución, luego reciba la resolución y guárdela en la sesión, y finalmente redirija a la página web anterior.
Código:
<%
'Si ha cambiado automáticamente para ejecutar esta declaración condicional
si Bint(trim(solicitud(sw))) > 0 entonces
sesión(MyScreenWidth)=Bint(trim(solicitud(sw)))
sesión(MyScreenHeight) = Bint(trim(solicitud(sh)))
respuesta.Redirect(sesión(FrontUrl))
terminar si
%>
<%
'Visita la página web por primera vez
si Bint(sesión(MyScreenWidth))=0 entonces
si Bint(trim(solicitud(sw))) = 0 entonces
sesión(Url frontal) = ObtenerUrl()
terminar si
respuesta.Escribir(<scr&ipt>)
si Instr(GetUrl(),?) > 0 entonces
respuesta.Write(window.location='&GetUrl()&&sw='+screen.width+'&sh='+screen.height;)
demás
respuesta.Write(window.location='&GetUrl()&?sw='+screen.width+'&sh='+screen.height;)
terminar si
respuesta.Escribir(</scr&ipt>)
terminar si
%>
<%=Su resolución es: &session(MyScreenWidth)&*&session(MyScreenHeight)%>
<%
'Las siguientes son varias funciones
Función Bint(cadena)
Si es numérico (cadena) entonces
Bint = Clng(cadena)
Elseif está vacío (cadena) entonces
Bint = 0
Elseif es nulo (cadena) entonces
Bint = 0
Demás
Bint = 0
terminar si
Función final
Función ObtenerUrl()
sUrl = Solicitud.VariablesdelServidor(URL)
sQueryString =
Para cada x en Request.QueryString
sQueryString = sQueryString & & & x & = & Server.URLEncode(Solicitud(x))
Próximo
si len(sQueryString)>0 entonces
sQueryString = derecha(sQueryString,len(sQueryString)-1)
demás
sQueryString =
terminar si
si len(sQueryString)>0 entonces
ObtenerUrl = URL & ?
demás
ObtenerUrl = URL
terminar si
Función final
%>