• <video id="alulg"><mark id="alulg"></mark></video>
      <source id="alulg"></source>
  • <u id="alulg"><tr id="alulg"></tr></u>

      <video id="alulg"><div id="alulg"></div></video>

        1. <sub id="alulg"></sub><u id="alulg"><tr id="alulg"></tr></u>

        2. <video id="alulg"><menu id="alulg"></menu></video>
          <input id="alulg"><div id="alulg"></div></input>
        3. <video id="alulg"><input id="alulg"></input></video>
          <u id="alulg"><sub id="alulg"></sub></u>
            设为首页 | 收藏本站欢迎来到杭州23seo团队!
            0
            已阅读

            程序自动判断,从电脑跳转到手机的ASP源码

            作者:未知?? ?? 来源:杭州SEO?? ?? 发布时间:2017-02-14

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

            丰满熟女高潮毛茸茸欧洲视频_国精品午夜福利视频不卡麻豆_亚洲欧洲日产国码av系列天堂_无码日韩精品一区二区免费