ASP获取侦测访问者系统的两个函数

1. function OS_Type()
   
2.     userAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
   
3.     Dim mobile, c, rV
   
4.     mobile = Split("windows|iphone|ipad|ipod|android|blackberry|mini|windowssce|palm", "|")
   
5.     rV = "其他系统"
   
6.     For c = 0 To UBound(mobile, 1)
   
7.         If Instr(userAgent, mobile(c)) > 0 Then
   
8.             rV = mobile(c)
   
9.             Exit For
   
10.         End If
    
11.     Next
    
12.        
    
13.     OS_Type = rV
    
14. End Function
    
15. 
    
16. function Get_OS_Chinese(str)
    
17.    select case str
    
18.              case "windows"
    
19.                          Get_OS_Chinese="Window"
    
20.                          
    
21.                          case "iphone"
    
22.                          Get_OS_Chinese="苹果"
    
23.                          
    
24.                          case "android"
    
25.                          Get_OS_Chinese="安卓"
    
26.                          
    
27.                          case "ipad"
    
28.                          Get_OS_Chinese="苹果平板"
    
29.                          
    
30.                          case "blackberry"
    
31.                          Get_OS_Chinese="黑莓"
    
32.                          
    
33.                          case "ipad"
    
34.                          Get_OS_Chinese="苹果平板"                                                  
    
35.                          
    
36.                          case else
    
37.                          Get_OS_Chinese="未知"                         
    
38.    end select
    
39.    
    
40. 
    
41. End Function

复制代码