合肥做网站,选择疯狗科技,专业、敬业的合肥网络公司
首页 > 网站SEO优化 > 详情

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

2019-08-22 16:56:05   来源:转载   浏览:  次
我们知道,用js做手机站跳转到电脑站速度会慢,而直接使用服务器语言比较准确而且跳转速度快,除了因为伪静态原因而没有办法做asp或php跳转的情况,我们都是建议用程序来做跳转。这里是SEO经常用的asp版本手机判断跳转的源代码

我们知道,用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

相关热词搜索:程序自动判断 上一篇:栏目页如何布局优化核心关键词排名? 下一篇:企业做SEO为什么必须选择精准关键字