您正在使用 IPV4 [54.225.35.224] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp判断浏览器及版本号
内容摘要: 程序代码 % 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 ' vers......
程序代码

<%

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随机涵数生成100条8位字母和数字混合密码

 

下一篇:ASP判断字符串是否全部为中文

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:7
录  入:齐天大圣
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....