asp 判斷客戶端操作系統

　　判斷客戶端操作系統
 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

From:http://tw.wingwit.com/Article/program/net/201311/14241.html