搜索:
首页 >> Asp教程 >> Asp实例教程 >> asp让网站自动识别手机访问跳转至手机网站

asp让网站自动识别手机访问跳转至手机网站

2014-12-6 asp之家 网友评论投递文章

只要把下面代码放到index.asp或者default.asp中,只要在首页代码顶部引用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
Tags:asp  手机 
上一篇:asp中判断是否是手机浏览器以及手机类型  下一篇:没有了!
相关文章
loading 请稍等,评论加载中...

手机版 Asp实例教程 Asp之家 Aspxhome.com
闽ICP备06017341号