asp获得浏览器agent信息代码

<%dim aa = Browsrif InStr( a, "MSIE" ) then   ' browser is Internet Explorerelse   ' 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 %>