ASP pc+wap自动转向,电脑手机端自动跳转

2017-01-17 13:37:13 归档 0 0

ASP pc+wap自动转向,电脑手机端自动跳转

<%call Check_Wap()Sub Check_Wap()  dim MoblieUrl,reExp,MbStr  MoblieUrl="/m/" 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%>