asp版手机站与pc站智能识别与跳转
发表日期:2015/12/4 作者:勤快牛网络 浏览:
目前使用手机上网的朋友越来越多,使用的手机浏览网站的已不是少数,所以很多企业都对移动网站的重视度已经非常高了。但很多的企业虽然有了移动网站和pc站,但两个网站不能实现智能跳转。
什么是智能跳转?
使用手机上网的朋友打开网站时,自动跳转到手机站;使用pc电脑打开网站时默认打开手机站。
安平县云天科技有限公司,为了让同行朋友或喜欢开发的朋友少走些弯路,把跳转的方式分享给大家:
实现跳转可以采用两种方法:
方法1:
在pc站页面中添加如下代码,即可实现手机浏览网站,自动跳转到手机站
<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="http://wap.hbap.net" '手机网站地址
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
Check_Wap()
%>
在手机站页面添加如下代码,即可实现电脑打开手机站自动跳转到pc站
<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="http://www.hbap.net" 'pc网站地址
Set reExp = New RegExp
MbStr="Android|iPhone|UC|Windows Phone|webOS|BlackBerry|iPod"
reExp.pattern=".*("&MbStr&").*"
reExp.IgnoreCase = True
reExp.Global = True
If not reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then
response.redirect MoblieUrl
response.End
End If
End Sub
Check_Wap()
%>
方法二:
使用js脚本实现pc与手机间的跳转 http://siteapp.baidu.com/static/webappservice/uaredirect.js ,这种方法没测试过,有时间测试一下。