返回创远网络首页 | 台州创远网络 | 列表 >> 网络编程 >> 浏览主题 版主:
互联资讯 | 站长在线 | SEO搜索 | 网站运营 | 网络编程 | 全部分类
asp判断浏览器及版本号
已阅:2674 / 回复:0(楼主)
<%
Dim Agent,Browser,version,tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")
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),"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&"")
%>

作者:admin (2009-11-7 20:46:09)

目前不允许游客回复,请 登录 注册 发贴.