ASP正则判断手机访问并转跳

随着现在移动设备上网的越来越多，我们需要判断客户来源，如是手机浏览应该自动专跳到手机页面，提高网站客户体验度，下面编程之家跟大家分享：ASP正则判断手机访问并转跳。

ASP正则判断手机访问并转跳函数

Sub Check_Wap()

 dim MoblieUrl,reExp,MbStr

 MoblieUrl="手机域名路径"''手机网站路径

 Set reExp = New RegExp

 MbStr="Android|iPhone|UC|Windows Phone|webOS|BlackBerry|iPod"

 reExp.pattern=".*("&MbStr&").*"

 reExp.IgnoreCase = True

 reExp.Global = True

 If reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then

  response.redirect MoblieUrl

  response.End

 End If

End Sub

只要把以上函数放在包含文件里，在页面顶部文件调用下即可实现判断。