文章分类 Classification
asp判断浏览器
稿件来源: 太阳光网页设计 撰稿作者: 太阳光 发表日期: 2009-05-11 21:03:38 阅读次数: 433 查看权限: 游客查看
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
2
高兴0
支持0
搞笑0
不解0
谎言0
枪稿0
震惊0
无奈0
无聊0
反对0
愤怒
100%(2)
0%(0)
- 暂无评论
文章图片 article Pictrue
网友评论