[Resolvido] Tipo de broswer

[xanburzum 169]

Este é um script que que olha qual o tipo de broswer que o visitante esta usando e redireciona para um lugar aonde a pagina terá suporte para seu broswer. Código muito facil de entender.

 

<% @ language="vbscript" %>
<% Option Explicit %>
<% Response.Buffer = True %>
<%
' Sniffer em Navegador é fácil em ASP

Dim RedirUrl, Extension, browser, temp

'Url do site que você desejar para redirecionar  (incluindo sub-diretório se aplicável): (deve ter barra invertida)
RedirUrl = "http://www.seu_site.com.br/"

'Esta é a extensão das páginas que você está usando (para a página redirecionada): (htm, html, php,shtml, asp etc....)
extension = ".htm"

'Não alterar ABAIXO DESTA LINHA
'*****************************
'Primeiro - vamos obter o tipo de browser a partir do conjunto variável de servidor

temp = Request.ServerVariables("HTTP_USER_AGENT")
if InStr(1, temp, "Opera", 1)<>0 Then
browser = "opera"
Else If InStr(1, temp, "MSIE", 1)<>0 Then
browser = "ie"  
Else If InStr(1, temp, "WebTV", 1)<>0 Then
browser = "webtv"  
Else If InStr(1, temp, "Mozilla/4", 1)<>0 Then
browser = "nn4"
Else If InStr(1, temp, "Mozilla/5", 1)<>0 Then
browser = "nn6"
Else If InStr(1, temp, "Lynx", 1)<>0 Then
browser = "lynx"
Else If InStr(1, temp, "w3m", 1)<>0 Then
browser = "w3m"
Else browser = "desconhecido"
End If
End If
End If
End If
End If
End If
End If
' Então vamos fazer o redirecionamento
temp = RedirUrl & browser & extension
Response.Redirect temp
Response.Write temp
%>