【ASP】判斷是否是手機訪問

浮生遞迴發表於2018-09-11
<%
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|operasmini|ucweb|windowssce|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
if CheckMobile then
Response.redirect “mobile.asp” 
end if%>


相關文章