网站是asp,加什么代码可以让网站自动识别手机访问跳转至手机网站?
1个回答
展开全部
只要把下面代码放到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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |