熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp 判斷客戶端操作系統

2013-11-13 10:39:40  來源: .NET編程 

  判斷客戶端操作系統
 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.