asp网站求自动识别手机还是电脑并跳转?

asp网站求自动识别手机还是电脑并跳转?手机转到网站一目录下

2025-04-14 02:38:05

推荐回答（1个）

回答（1）：

只要在首页代码顶部引用call Check_Wap()，用正则判断方便简洁。

Sub Check_Wap() 
 dim MoblieUrl,reExp,MbStr 
 MoblieUrl="/3g/index.asp"''手机网站路径 
 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