您所在的位置:小祥子 » 编程 » ASP » 正文

ASP判断用户是否为安卓/苹果手机客户端

时间:2015-03-21 编辑:本站 来源:本站原创

本站也提供过一个JS判断的,现在提供一个通过ASP判断用户是否为手机客户端。

使用方法

if CheckMobile then  '如果是手机浏览器那么就跳转到手机客户端
 response.redirect  “http://m.xiaoxiangzi.com”
 response.end
end if

方法如下

Function CheckMobile()
 if InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml")>0 then 
  CheckMobile=True:Exit Function 
 end if
 
 '是否专用wap浏览器 
 If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")), "application/vnd.wap.xhtml+xml") Or Not IsEmpty(Request.ServerVariables("HTTP_X_PROFILE")) Or Not IsEmpty(Request.ServerVariables("HTTP_PROFILE")) Then 
   CheckMobile=True:Exit Function 
 End If  
 
 '是否(智能)手机浏览器 
 Dim MobileBrowser_List,PCBrowser_List,UserAgent 
 Set MobileBrowser_List = New RegExp '建立正则表达式 
 Set PCBrowser_List = New RegExp '建立正则表达式 
 MobileBrowser_List.Pattern ="up.browser|up.link|mmp|iphone|android|wap|netfront|java|opera\smini|ucweb|windows\sce|symbian|series|webos|sonyeriCSSon|sony|blackberry|cellphone|dopod|nokia|samsung|palmsource|palmos|pda|xphone|xda|smartphone|pieplus|meizu|midp|cldc|brew|tear" 
 PCBrowser_List.Pattern="mozilla|chrome|safari|opera|m3gate|winwap|openwave" 
 UserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT")) 
 
 If MobileBrowser_List.Test(UserAgent) Then 
    CheckMobile=True:Exit Function 
 ElseIf PCBrowser_List.Test(UserAgent) Then '未知手机浏览器,其UA标识为常见浏览器,不跳转 
    CheckMobile=False:Exit Function 
 Else  
    CheckMobile=False  
 End If 

End Function