判断客户端操作系统
Function GetOs(contentsystemOrBrowser)
Dim temp
temp = Split(content";")
Select Case systemOrBrowser
Case
If InStr(Content"Windows NT ") Then
GetOs = "Windows Vista"
ElseIf InStr(Content"Windows NT ") Then
GetOs = "Windows "
ElseIf InStr(Content"Windows NT ") Then
GetOs = "Windows XP"
ElseIf InStr(Content"Windows NT ") Then
GetOs = "Windows "
ElseIf InStr(Content"Windows NT") Then
GetOs = "Windows NT"
ElseIf InStr(Content"Windows ") Then
GetOs = "Windows x"
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
If InStr(content"Opera") Then
GetOs = Replace(Left(contentInStr(content"(") )"/"" ")
ElseIf InStr(content"MSIE") > Then
GetOs = Trim(temp())
Else
GetOs = Replace(Right(temp()Len(temp()) InstrRev(temp()" "))"/"" ")
End if
End Select
End Function
