Verificador (Navegador/Origem de Acesso)

'Verifica navegador e origem de acesso
'Ex.: Call Verifica(TRUE, TRUE)
'Call Verifica(TRUE, FALSE)
'Call Verifica(FALSE, TRUE)
'Call Verifica(FALSE, FALSE)
'<HOST_ORIGEM> = www.asp4developers.com.br

Function Verifica(sNAV, sORIG)
 If sNAV then
  Dim IS_IE, IS_NN, USER_AGENT
  USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT")

  IS_IE = InStr(USER_AGENT,"MSIE")
  IS_NN = InStr(USER_AGENT,"Nav")
  
  If NOT IS_IE then 
   Response.Status = "000 - Somente MSIE 5.x e 6.x"
   Response.Write(Response.Status())
   Response.End
  End If
 End If

 If sORIG then 
  Dim sOrigem
  sOrigem = Request.ServerVariables("HTTP_HOST")
  
  If sOrigem <> "<HOST_ORIGEM>" then
   Response.Status = "403 - Acesso Restrito"
   Response.Write(Response.Status())
   Response.End
  End If
 End If
End Function

Esta matéria foi postada originalmente no ASP4Developers por César M. Conceição (site), que na época era "Analista / Programador Pleno, mais de 4 anos de experiência no desenvolvimento de sistemas online.(HTML/XHTML/ASP/JAVASCRIPT/DHTML/MS SQL/FIREBIRD/INTERBASE/ACCESS)". Hoje, vai saber...