asp获得浏览器agent信息代码

<%
dim a
a = Browsr
if InStr( a, "MSIE" ) then
   ' browser is Internet Explorer
else
   ' browser is some other type...
end if
%>

<%
Private Function Browsr()
  Browsr = Request.ServerVariables("HTTP_USER_AGENT")
End Function
%>

<% 
dim ua 
ua=Request.ServerVariables("HTTP_USER_AGENT") 
response.write ua 
%>