最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 判断客户端操作系统
时间:2010-04-10 编辑:简简单单 来源:一聚教程网
Function GetOs(content,systemOrBrowser)
Dim temp
temp = Split(content,";")
Select Case systemOrBrowser
Case 0
If InStr(Content,"Windows NT 6.0") Then
GetOs = "Windows Vista"
ElseIf InStr(Content,"Windows NT 5.2") Then
GetOs = "Windows 2003"
ElseIf InStr(Content,"Windows NT 5.1") Then
GetOs = "Windows XP"
ElseIf InStr(Content,"Windows NT 5.0") Then
GetOs = "Windows 2000"
ElseIf InStr(Content,"Windows NT") Then
GetOs = "Windows NT"
ElseIf InStr(Content,"Windows 9") Then
GetOs = "Windows 9x"
ElseIf InStr(Content,"unix") Then
GetOs = "Unix"
ElseIf InStr(Content,"linux") Then
GetOs = "Linux"
ElseIf InStr(Content,"SunOS") Then
GetOs = "SunOS"
ElseIf InStr(Content,"BSD") Then
GetOs = "BSD"
ElseIf InStr(Content,"Mac") Then
GetOs = "Mac"
Else
GetOs = "Other"
End If
Case 1
If InStr(content,"Opera") Then
GetOs = Replace(Left(content,InStr(content,"(") - 1),"/"," ")
ElseIf InStr(content,"MSIE") > 0 Then
GetOs = Trim(temp(1))
Else
GetOs = Replace(Right(temp(4),Len(temp(4)) - InstrRev(temp(4)," ")),"/"," ")
End if
End Select
End Function
-
上一个: asp 验证组件是否安装
-
下一个: asp无法删除黑客文件处理方法
相关文章
- asp中的客户端打印问题(建议加入精华区) 01-18
- 客户端用ASP+rds+VBA参生报表(高级篇) 01-12
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16