Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lezão

Denovo Resolução automatica

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola Xan esse codigo ainda naun entendi cara

 

terei q fazer duas paginas uma screen.asp e outra default.asp

 

em q lugar da pagina default.asp coloco este codigo

<% 
screenRes = Request.QueryString("res") %>

  <% Session("scr") = screenRes%>

   <%
if Session("scr") = "800x600" then Session("fontsize") = "1" 
if Session("scr") = "640x480" then Session("fontsize") = "1" 
if Session("scr") = "1024x768" then Session("fontsize") = "2"
if Session("scr") = "1152x864" then Session("fontsize") = "2" 
if Session("scr") = "1280x720" then Session("fontsize") = "2" 
if Session("scr") = "1280x1024" then Session("fontsize") = "2"
   %>

dentro das tag <head> </head> ?????????

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Este código resolve o problema de capturar uma resolução de tela dos usuários e joga dentro da variavel, para alterar o tamanho das letras na página, dependendo da resolução de tela do usuário com 800x600 reorientando-os para uma versão da página

 

Este script é dividido em dois arquivos ...

screen.asp 

<script language="javascript">
scr = "&res="+screen.width+"x"+screen.height+"&d="+screen.colorDepth
location.href="default.asp?screen=check"+res
</script>

default.asp é a página que irá redirecionar

esta página capta a resolução

<% screenRes = Request.QueryString("res") %>

  <% Session("scr") = screenRes%>

   <%
if Session("scr") = "800x600" then Session("fontsize") = "1" 
if Session("scr") = "640x480" then Session("fontsize") = "1" 
if Session("scr") = "1024x768" then Session("fontsize") = "2"
if Session("scr") = "1152x864" then Session("fontsize") = "2" 
if Session("scr") = "1280x720" then Session("fontsize") = "2" 
if Session("scr") = "1280x1024" then Session("fontsize") = "2"


   %>

ou você pode usar este code

<%@ Language=VBScript %>
	<script Language=VBScript>
		Sub window_onload
		if screen.height = 480 Then
			window.navigate ("http://seusite/640480/default.asp")	
		End if
			if screen.height = 600 Then
				window.navigate ("http://seusite/800600/default.asp")
			End if
				if screen.height = 768 Then
					window.navigate ("http://seusite/1024768/default.asp")
				End if
		End Sub	
	</SCRIPT>

 

lembrando que você pode usar o Request.ServerVariables("HTTP_UA_PIXELS")

<% 
If Request.ServerVariables("HTTP_UA_PIXELS") = "640x480" Then
Response.Redirect "640.asp"
Else
Response.Redirect "800.asp"
End If
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito