ASP网站识别手机访问 首页内页实现自动跳转和取消跳转
ASP网站识别手机访问 首页内页实现自动跳转和取消跳转
很多ASP网站站长都知道，ASP网站自带了手机访问首页实现自动跳转移动手机站首页的功能，可是没有手机移动端访问内页时，自动跳转到对应的手机移动端内页的功能。经过研究，电商博客就自己的方法分享给大家，轻松实现ASP网站识别手机移动端访问， 首页和内页分别实现自动跳转到对应手机移动端页面的功能。
方法1：ASP网站首页识别手机访问实现自动跳转
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="http://m.xmzyfx.com"'此为手机网站路径，各位在复制代码时只要将此路径修改成指定手机网站的路径即可。推荐使用独立手机网站域名。
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
方法2：ASP网站内页识别手机访问实现自动跳转
Sub PageCheck_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="http://m.cqfoxconnjob.com"&GetLocationURL
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
Function GetLocationURL()
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString
ServerName = Request.ServerVariables("SERVER_NAME")
ServerPort = Request.ServerVariables("SERVER_PORT")
ScriptName = Request.ServerVariables("SCRIPT_NAME")
QueryString = Request.ServerVariables("QUERY_STRING")
Url=ServerName
If ServerPort <> "80" Then Url = Url & ":" & ServerPort
Url=ScriptName
If QueryString <>"" Then Url=Url&"?"& QueryString
GetLocationURL=Url
End Function
那怎么取消判断手机流量跳转的代码的？很多这些代码都是写在了JS文件里面，里面代码代替不容易找到，
其实比较简单的方法就是查找几个判断手机系统的代码就可以找到了，
那怎么取消判断手机流量跳转的代码的？很多这些代码都是写在了JS文件里面，里面代码代替不容易找到，
其实比较简单的方法就是查找几个判断手机系统的代码就可以找到了，
比如：if((navigator.userAgent.toLowerCase().match(/(iPhone|iPod|Android|ios)/i))){if(typeof(murl)=="undefined"){var murl="";}location.href=webroot+murl;}
这些红色的查找一下，然后删除这些代码就可以了！
这些红色的查找一下，然后删除这些代码就可以了！
版权声明：
本站资源和文章内容大部分收集于网络，
本站所有资源的版权均属于原作者所有，
本站资源只用于参考学习，请勿直接商用，
若由于商用引起版权纠纷，一切责任均由使用者承担。
若有侵权之处请联系站长我们会第一时间删除
本文由XM技术学习分享发布，如需转载请注明出处。
闽公网安备11000000000001号