asp判断浏览器

稿件来源: 太阳光网页设计   撰稿作者: 太阳光   发表日期: 2009-05-11 21:03:38   阅读次数: 362   查看权限: 游客查看

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&"")
%>

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

关键词: asp,浏览器   编辑时间: 2010-09-17

  • 感到高兴

    0

    高兴
  • 感到支持

    0

    支持
  • 感到搞笑

    0

    搞笑
  • 感到不解

    0

    不解
  • 感到谎言

    0

    谎言
  • 感到枪稿

    0

    枪稿
  • 感到震惊

    0

    震惊
  • 感到无奈

    0

    无奈
  • 感到无聊

    0

    无聊
  • 感到反对

    0

    反对
  • 感到愤怒

    0

    愤怒
100%(1)
0%(0)
共有0 条评论 发言请遵守【相关规定

网友评论

会员头像
发 表同步腾讯微博    验证码:  点击更新请先登陆
  • 暂无评论
关闭模块文章图片 article Pictrue
  • 我的妈妈爸爸
  • 基于koa2+mysql+vue2.0+Element阳光内容管理系统
  • 代码覆盖率工具 Istanbul 入门教程
  • 全栈工程师的武器——MEAN
  • 9款超炫的 CSS3 复选框(Checkbox)
  • 微信开发在线翻译功能
  • CSS3那些不为人知的高级属性
  • 给easyui的datebox添加清空事件
  • flash写字效果
  • kendoUI系列教程之DropDownList下拉菜单
  • kendoUI系列教程之datetimepicker日期时间选择
  • kendoUI系列教程之datepicker日期选择
  • kendoUI系列教程之combobox下拉列表框
  • kendoUI系列教程之colorpicker
  • kendoUI系列教程之calendar日历表
  • kendoUI系列教程之autocomplete自动补齐