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

xuanxiao · 发表于 2021-12-20 22:47:42

function OS_Type()
userAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
Dim mobile, c, rV
mobile = Split("windows|iphone|ipad|ipod|android|blackberry|mini|windowssce|palm", "|")
rV = "其他系统"
For c = 0 To UBound(mobile, 1)
If Instr(userAgent, mobile(c)) > 0 Then
rV = mobile(c)
Exit For
End If
Next
OS_Type = rV
End Function
function Get_OS_Chinese(str)
select case str
case "windows"
Get_OS_Chinese="Window"
case "iphone"
Get_OS_Chinese="苹果"
case "android"
Get_OS_Chinese="安卓"
case "ipad"
Get_OS_Chinese="苹果平板"
case "blackberry"
Get_OS_Chinese="黑莓"
case "ipad"
Get_OS_Chinese="苹果平板"
case else
Get_OS_Chinese="未知"
end select
End Function

复制代码

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)