asp判断浏览器

【ASP编程】

下载

新闻

文章

asp判断浏览器

<%
Dim Agent,Browser,version,tmpstr
Agentl=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agentl,";")
If InStr(Agent(1),"MSIE")>0 Then
    Browser="MS Internet Explorer "
    version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
ElseIf InStr(Agent(4),"Netscape")>0 Then 
    Browser="Netscape "
    tmpstr=Split(Agent(4),"/")
    version=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"Firefox/")>0 Then 
    Browser="Firefox "
    tmpstr=Split(Agent(4),"/")
    version=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 Then
    Browser="Mozilla "
    tmpstr=Split(Agent(4),":")
    version=tmpstr(UBound(tmpstr))
      If InStr(version,")") > 0 Then 
      tmpstr=Split(version,")")
      version=tmpstr(0)
      End If
End If
response.Write(Agentl&"<br/>"&Browser&"  "&version&"")
%>

还有很多浏览器没用过,无法测试,如果你知道有不同的浏览器参数不防告诉我们!