- 用一套论坛程序架设多个论坛
- ASP Ping通知Feed烧制中心更新
- ASP文件操作--列出目录及文件
- ASP中操作UTF-8格式的文件
- 网页之定时器详解
- 网页在线人数统计的做法
- ASP与JSP的比较(二)
- ASP将两个数组合并为一个数组函数 array_merge()
- ASP编程中15个非常有用的例子（一）
- 我的WebGIS历程一
- 用ASP实现一个真正的注册页面
- 净化网络环境 ASP程序实现过滤脏话
- String添加trim,ltrim,rtrim
- 【.Net Micro Framework PortingKit – 09】串口驱动
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （五）
- 亲密接触ASP.Net(6)
- 运用asp结合vbscript模拟股票滚屏
- [视频教程]Dreamweaver与ASP动态网页设计教程 - 第四章 数据库之1 数据库基本概念
- ASP操作Excel技术总结
- ASP十步进阶
- 如何使ASP程序暂停指定的时间后再继续执行
- javascript做的数据校验（校验IP地址等）
- 跨站Script攻击（三）
- Asp的安全管理（11）
- 用ASP实现远程批量文件改名
- 一个功能完善的专栏管理的程序->这是asp.net的第二个应用(五)
- ASP读取XML数据文件的方法
- 正则表达式——极速入门
- Asp组件中级入门与精通系列
- ASP实现不存在的网页就自动发送邮件
asp判断浏览器及版本号
作者：佚名 ASP网站建设编辑：admin 更新时间：2022-07-23
程序代码
<%
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&"")
%>
<%
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&"")
%>
- 上一篇文章： ASP数字加词缀转成英文序数词
- 下一篇文章： Response.AddHeader使用实例收集