Ir para conteúdo

Arquivado

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

mzaidan

Redirecionar site para versão mobile

Recommended Posts

olá mzaidan, blza!

 

Veja se isso ajuda:

<%
Function isMobile()
    Dim sys : sys = "android|avantgo|blackberry|bolt|boost|cricket|docomo|fone|hiptop|mini|mobi|palm|phone|pie|tablet|
up.browser|up.link|webos|wos"
              sys = split(sys,"|")
    Dim i : For i=0 to uBound(sys)
        v = InStr(lCase(Request.ServerVariables("HTTP_USER_AGENT")),sys(i))
        if v <> 0 then : isMobile = true : exit function : else : isMobile = false
    Next
End function
if isMobile() then
   Response.Status = "301 Moved Permanently"
   Response.AddHeader "Location", "<a href="/">http://m.meudominio.com</a>"
End if
%>

Pelo http_user_agent, é verificado o nome do browser.

Essa função tb pode verificar qual mobile ou não.

Vc pode usar CSS Media Queries tb.

http://www.devmedia.com.br/utilizando-css-media-queries/27085

Espero ter ajudado,

vlw

Compartilhar este post


Link para o post
Compartilhar em outros sites

ASP

 

<%

Code

%>

 

 

Em PHP tem essa, porém não sei se está perfeita:

 

http://stackoverflow.com/questions/6524301/detect-mobile-browser

 

http://justindocanto.com/products/ismobile/

 

vlw

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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