指尖网络推广

咨询热线:18979518501

课程设置

联系我们

地址:

邮箱:

2890389384@qq.com

电话:

传真:

SEO运营

>>当前位置:主页 > SEO运营 >

SEO运营要知道从电脑跳转到手机的ASP源码

文章来源:未知 添加时间:2018/06/04

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

  这里是杭州SEO经常用的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

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

上一篇:直播现在都那么火为什么还一直坚持做网站推广

下一篇:没有了

返回

地址:杭州拱墅区湖墅南路美达丽阳国际商务中心19楼 电话:18979518501 传真:

Copyright © 2002-2017 指尖培训机构 版权所有 Power by DeDe58 技术支持:指尖科技 ICP备案编号: