Ir para conteúdo

POWERED BY:

Arquivado

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

Mateus Santos Barros

Identificar Navegador

Recommended Posts

ele vai retornar o http_user_agent, e retorna o nome do browser. Você também pode usar essa função para verificar qual mobile é

<%
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.seu_site.com/</a>"
End if
%>

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.