最新更新 sitemap 网站制作设计本站搜索
网页设计
国外网站 韩国网站 个人主页 手提袋设计 CSS 网页特效 平面设计 网站设计 Flash CMS技巧 服装网站 php教程 photoshop 画册 服务器选用 数据库 Office
虚拟主机 域名注册 云主机 网页设计 客服QQ:8208442
当前位置:首页 > 编程开发 > asp教程

asp如何判断浏览器及版本号

日期:09-11    来源:网页设计秀    作者:cnwebshow.com

程序代码xur中国设计秀
<%xur中国设计秀
Dim Agent,Browser,version,tmpstrxur中国设计秀
Agent=Request.ServerVariables("HTTP_USER_AGENT")xur中国设计秀
Agent=Split(Agent,";")xur中国设计秀
If InStr(Agent(1),"MSIE")>0 Thenxur中国设计秀
Browser="MS Internet Explorer "xur中国设计秀
version=Trim(Left(Replace(Agent(1),"MSIE",""),6))xur中国设计秀
ElseIf InStr(Agent(4),"Netscape")>0 Then xur中国设计秀
Browser="Netscape "xur中国设计秀
tmpstr=Split(Agent(4),"/")xur中国设计秀
version=tmpstr(UBound(tmpstr))xur中国设计秀
ElseIf InStr(Agent(4),"rv:")>0 Thenxur中国设计秀
Browser="Mozilla "xur中国设计秀
tmpstr=Split(Agent(4),":")xur中国设计秀
version=tmpstr(UBound(tmpstr))xur中国设计秀
If InStr(version,")") > 0 Then xur中国设计秀
tmpstr=Split(version,")")xur中国设计秀
version=tmpstr(0)xur中国设计秀
End Ifxur中国设计秀
End Ifxur中国设计秀
response.Write(""&Browser&"  "&version&"")xur中国设计秀
%>xur中国设计秀

本文引用地址:/bc/article_46266.html
网站地图 | 关于我们 | 联系我们 | 网站建设 | 广告服务 | 版权声明 | 免责声明