会员投稿
投稿指南 
RSS订阅栏目导航
热点推荐
- ASP下批量删除数据的两种方法
- 关于二级域名共享cookies
- ASP错误代码大全
- ASP代码实现show.asp?id=26变成s
- ASP错误信息解决:IIS启用父路径
- 一些常用的正则表达式大全
- ASP超级链接和HTML函数正则表达
- ASP隐藏下载地址及防盗代码
- 最常用的正则表达式示例
- ASP程序数据库被挂马的处理方法
- ASP生成html的新方法
- 精通ASP错误提示大全
阅览排行
asp判断浏览器及版本号
www.jz123.cn 2009-05-08 来源: 中国建站 责任编辑(袁袁) 我要投递新闻
| <% 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&"") %> |
0
上一篇：Response.AddHeader使用实例收集 下一篇：ASP绝对保证上传图片安全的图片检测函数 ChkImg()