Como utilizar ASP para obter a resolução da tela do cliente, podemos consegui-lo das seguintes formas:
Ao acessar uma página web, use js para obter a resolução do navegador, depois redirecione para esta página web e passe a resolução, depois receba a resolução e armazene-a na sessão, e finalmente redirecione para a página web anterior.
Código:
<%
'Se ele mudou automaticamente para executar esta instrução condicional
se Bint(trim(request(sw))) > 0 então
session(LarguraMinhaTela)=Bint(trim(request(sw)))
sessão(MinhaAlturaTela) = Bint(trim(solicitação(sh)))
resposta.Redirect(sessão(FrontUrl))
terminar se
%>
<%
'Visite a página da web pela primeira vez
se Bint(sessão(LarguraMinhaTela))=0 então
se Bint(trim(request(sw))) = 0 então
sessão(FrontUrl) = GetUrl()
terminar se
resposta.Write(<scr&ipt>)
se Instr(GetUrl(),?) > 0 então
resposta.Write(window.location='&GetUrl()&&sw='+screen.width+'&sh='+screen.height;)
outro
resposta.Write(window.location='&GetUrl()&?sw='+screen.width+'&sh='+screen.height;)
terminar se
resposta.Write(</scr&ipt>)
terminar se
%>
<%=Sua resolução é: &session(MyScreenWidth)&*&session(MyScreenHeight)%>
<%
'A seguir estão várias funções
Função Bint(str)
Se forNumeric(str) então
Bint = Clng(str)
Elseif IsEmpty(str)então
Bint = 0
Caso contrário, é nulo (str) então
Bint = 0
Outro
Bint = 0
Terminar se
Função final
Função GetUrl()
sUrl = Request.ServerVariables(URL)
sQueryString =
Para cada x em Request.QueryString
sQueryString = sQueryString & & & x & = & Server.URLEncode(Request(x))
Próximo
se len(sQueryString)>0 então
sQueryString = direita(sQueryString,len(sQueryString)-1)
outro
sQueryString =
terminar se
se len(sQueryString)>0 então
GetUrl = sUrl & ? & sQueryString
outro
GetUrl=sUrl
terminar se
Função final
%>