野狼SEO团队,纯白帽SEO倡导者!13年专注网站优化服务,支持月付!  [点击查看公司宣传册]
专注纯白帽、整站正规优化
让你排名上升,流量上涨!
网站优化服务电话
0371-56789-390
详细内容
当前位置:首页 > 技术资料 > ASP程序开发 > 详情

超准确的自动判断手机浏览器而从电脑站跳转到手机站的ASP源码

发布时间:2017-02-14 来源:本站原创 作者:野狼SEO团队 阅读:527

我们知道,用js做手机站跳转到电脑站速度会慢,而直接使用服务器语言比较准确而且跳转速度快,除了因为伪静态原因而没有办法做asp或php跳转的情况,我们都是建议用程序来做跳转。

这里是野狼经常用的asp版本手机判断跳转的源代码:


HTTP_ACCEPT=Request.ServerVariables("HTTP_ACCEPT")                获取浏览器信息

HTTP_USER_AGENT=LCase(Request.ServerVariables("HTTP_USER_AGENT"))  获取AGENT
HTTP_X_WAP_PROFILE=Request.ServerVariables("HTTP_X_WAP_PROFILE")   WAP特定信息 品牌机自带浏览器都会有
HTTP_UA_OS=Request.ServerVariables("HTTP_UA_OS")                   手机系统 电脑为空
HTTP_VIA=LCase(Request.ServerVariables("HTTP_VIA"))                网关信息
Dim WapStr
WAPstr=False
If ubound(split(HTTP_ACCEPT,"vnd.wap"))>0 Then WAPstr=True
If HTTP_USER_AGENT="" Then  WAPstr=True
If HTTP_X_WAP_PROFILE<>"" Then  WAPstr=True
If HTTP_UA_OS<>"" Then  WAPstr=True
IF ubound(split(HTTP_VIA,"wap"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"netfront"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"iphone"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"opera mini"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"ucweb"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"windows ce"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"symbianos"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"java"))>0 Then  WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"android"))>0 Then  WAPstr=True
If WAPstr=True Then    
response.redirect "http://m.390seo.com/"
response.end
End if

以上是野狼SEO团队使用的手机跳转代码,因为编辑器限制,复制之后需要把汉语的注释去掉,要不会报错。为了让程序小白正常使用,下边会有下载链接,源码无错,如果不会部署,可以找野狼,任何程序问题都能轻松解决!

判断手机浏览跳转到手机站的asp源码 判断手机浏览跳转到手机站的asp源码

访客头像访 客3.236***
新评论

还没有人评论,快来抢个沙发!