随着现在移动设备上网的越来越多，我们需要判断客户来源，如是手机浏览应该自动专跳到手机页面，提高网站客户体验度，下面青岛星网跟大家分享：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只要把以上函数放在包含文件里，在页面顶部文件调用下即可实现判断。
在线QQ：
