求asp检测代码

要求，赋值到sever_Browser变量内。

能检测出，IE5,IE6,IE7,IE8,opera,Netscape,FF(火狐)等多个浏览器的功能。

并最好简单标一下注释。（简单说一说大概明白就可以了~）

<%
Dim Agent,Browser,version,tmpstr
Agent = Request.ServerVariables("HTTP_USER_AGENT")
Agent = Split(Agent,";")

'判断是不是IE

If InStr(Agent(1),"MSIE")>0 Then
Browser="MS Internet Explorer "

'取版本号
version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
'判断是不是Netscape

ElseIf InStr(Agent(4),"Netscape")>0 Then
Browser="Netscape "
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(""&Browser&" "&version&"")
%>

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息