操作系统与浏览器的判断

最新推荐文章于 2024-08-26 11:03:45 发布

zhaohh

最新推荐文章于 2024-08-26 11:03:45 发布

阅读量725

点赞数

分类专栏： asp 文章标签：浏览器 windows function opera linux user

本文链接：https://blog.csdn.net/zhaohh/article/details/238184

版权

asp 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

Function getBrowser(ByVal logstr)
    logstr = Request.ServerVariables("HTTP_USER_AGENT")
    If InStr(logstr, "MSIE 6") <> 0 Then
        getBrowser = "IE 6.xx"
    ElseIf InStr(logstr, "MSIE 5") <> 0 Then
        getBrowser = "IE 5.xx"
    ElseIf InStr(logstr, "MSIE 4") <> 0 Then
        getBrowser = "IE 4.xx"
    ElseIf InStr(logstr, "Mozilla/3") <> 0 Then
        getBrowser = "NetScape 3"
    ElseIf InStr(logstr, "[en]") <> 0 Then
        getBrowser = "NetScape 4"
    ElseIf InStr(logstr, "Opera") <> 0 Then
        getBrowser = "Opera"
    ElseIf InStr(logstr, "NetAnts") <> 0 Then
        getBrowser = "NetAnts"
    ElseIf InStr(logstr, "Teleport") <> 0 Then
        getBrowser = "Teleport"
    ElseIf InStr(logstr, "WebTran") <> 0 Then
        getBrowser = "WebTran"
    ElseIf InStr(logstr, "WebZIP") <> 0 Then
        getBrowser = "WebZIP"
    Else
        getBrowser = "Other"
    End If
End Function

Function GetOS(ByVal logstr)
    logstr = Request.ServerVariables("HTTP_USER_AGENT")
    If InStr(logstr, "Windows 95") <> 0 Or InStr(logstr, "Win95") <> 0 Then
        GetOS = "Windows 95"
    ElseIf InStr(logstr, "Windows 98") <> 0 Or (InStr(logstr, "Win95") <> 0 And InStr(logstr, "Mozilla/4.0") <> 0) Then
        GetOS = "Windows 98"
    ElseIf InStr(logstr, "Win32") <> 0 Or InStr(logstr, "Windows 3") <> 0 Then
        GetOS = "Windows 3.x"
    ElseIf InStr(logstr, "Win98") <> 0 Then
        GetOS = "Windows 98"
    ElseIf InStr(logstr, "Windows NT 5.0") <> 0 Then
        GetOS = "Windows 2000"
    ElseIf InStr(logstr, "Windows NT") <> 0 Then
        GetOS = "Windows NT4"
    ElseIf InStr(logstr, "SUNOS") <> 0 Then
        GetOS = "SUN"
    ElseIf InStr(logstr, "Linux") <> 0 Then
        GetOS = "Linux"
    ElseIf InStr(logstr, "Mac_PowerPC") <> 0 Then
        GetOS = "Mac"
    Else
        GetOS = "Other"
    End If
End Function