asp 判斷!客戶端操作系統

2019-11-02 15:30:57

字體：大中小

來源：轉載

供稿：網友

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

歐美電影[www.aikan.tv/xzhtml/10/]

Os = "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 一個簡單生,成隨機數程序

下一篇：ORA -01455報錯的問題探究