Usar HTTP_USER_AGENT para distinguir iOS, Windows Phone e Android

[ConteudoAnimal.com.br 0]

Ola Pessoal,

 

A idéia do código abaixo é levar quem acessa via smartphone para a loja do aplicativo respectivo

 

Estou usando o HTTP_USER_AGENT para distinguir o sistema. Isso é adequado ? ou tem coisa melhor ?

 

Para Android funciona 100%

 

Agora preciso descobri como redirecionar para windows phone 8.1 ou anterior ... e outro link para windows phone 10

Ainda não tenho app para iOS

 

Agradeço quem puder me ajudar

Marcos
www.conteudoanimal.com.br

 

<%
Function isMobile()
Dim sys : sys = "android"
v = InStr(lCase(Request.ServerVariables("HTTP_USER_AGENT")),sys)
if v <> 0 then : isMobile = true : exit function : else : isMobile = false
End function
if isMobile() then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", "https://play.google.com/store/apps/details?id=com.Conteudo_Animal"
End if
Function isMobile2()
Dim sys : sys = "windows phone OS 10"
v = InStr(lCase(Request.ServerVariables("HTTP_USER_AGENT")),sys)
if v <> 0 then : isMobile2 = true : exit function : else : isMobile2 = false
End function
if isMobile2() then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", "https://www.microsoft.com/store/apps/9nblggh6b771"
End if
Function isMobile3()
Dim sys : sys = "Windows Phone 8"
v = InStr(lCase(Request.ServerVariables("HTTP_USER_AGENT")),sys)
if v <> 0 then : isMobile3 = true : exit function : else : isMobile3 = false
End function
if isMobile3() then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", "http://windowsphone.com/s?appid=9ff644d3-fc1d-438d-bb57-5ec25364b5f7"
End if
Function isMobile4()
Dim sys : sys = "Windows Phone 7"
v = InStr(lCase(Request.ServerVariables("HTTP_USER_AGENT")),sys)
if v <> 0 then : isMobile4 = true : exit function : else : isMobile4 = false
End function
if isMobile4() then
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", "http://windowsphone.com/s?appid=9ff644d3-fc1d-438d-bb57-5ec25364b5f7"
End if
%>

[xanburzum 169]

Desktop

Mozilla/5.0 (Windows NT 10.0; <64-bit tags>) AppleWebKit/<WebKit Rev> (KHTML, like Gecko) Chrome/<Chrome Rev> Safari/<WebKit Rev> Edge/<EdgeHTML Rev>.<Windows Build>

 

Mobile

Mozilla/5.0 (Windows Phone 10.0; Android <Android Version>; <Device Manufacturer>; <Device Model>) AppleWebKit/<WebKit Rev> (KHTML, like Gecko) Chrome/<Chrome Rev> Mobile Safari/<WebKit Rev> Edge/<EdgeHTML Rev>.<Windows Build>

    <%

    Function IsMobileDevice()
        'Declarações
        Dim objER
        Dim Retorno
        Dim UserAgent
     
        'Inicialização
        Set objER    = New RegExp
        Retorno        = False
        UserAgent    = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
     
        'Configurando o objeto de Expressão Regular
        objER.IgnoreCase    = True
        objER.Global        = True
        objER.Pattern       = "android|avantgo|blackberry|blazer|compal|elaine|fennec|hiptop|ip(hone|od|ad)|iris|kindle|lge |maemo|midp|mmp|mobile|o2|opera m(ob|in)i|palm( os)?|p(ixi|re)/|plucker|pocket|psp|smartphone|symbian|treo|up.(browser|link)|vodafone|wap|windows ce; (iemobile|ppc)|xiino1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw-(n|u)|c55/|capi|ccwa|cdm-|cell|chtm|cldc|cmd-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc-s|devi|dica|dmob|do(c|p)o|ds(12|-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(-|_)|g1 u|g560|gene|gf-5|g-mo|go(.w|od)|gr(ad|un)|haie|hcit|hd-(m|p|t)|hei-|hi(pt|ta)|hp( i|ip)|hs-c|ht(c(-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i-(20|go|ma)|i230|iac( |-|/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |/)|klon|kpt |kwc-|kyo(c|k)|le(no|xi)|lg( g|/(k|l|u)|50|54|e-|e/|-[a-w])|libw|lynx|m1-w|m3ga|m50/|ma(te|ui|xo)|mc(01|21|ca)|m-cr|me(di|rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|-([1-8]|c))|phil|pire|pl(ay|uc)|pn-2|po(ck|rt|se)|prox|psio|pt-g|qa-a|qc(07|12|21|32|60|-[2-7]|i-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55/|sa(ge|ma|mm|ms|ny|va)|sc(01|h-|oo|p-)|sdk/|se(c(-|0|1)|47|mc|nd|ri)|sgh-|shar|sie(-|m)|sk-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h-|v-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl-|tdg-|tel(i|m)|tim-|t-mo|to(pl|sh)|ts(70|m-|m3|m5)|tx-9|up(.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|xda(-|2|g)|yas-|your|zeto|zte-"
        'Validando
        Retorno        = objER.Test(UserAgent)
     
        'Retornando a função
        IsMobileDevice = Retorno
        
        'Destruindo
        Set objER           = Nothing
    End Function
     
    '-----------------------------------------------------
    'Exemplo de chamada da função
    '-----------------------------------------------------
    Response.Write "Estou em um dispositivo móvel: " & IsMobileDevice()
    %>