手机自动跳转到手机页面,一个网址区分普通访问与手机访问

沽渡 2013-10-09

展开全文

手机自动跳转到手机页面,一个网址区分普通访问与手机访问

目标: 实现手机与电脑访问同一个网址,跳转到不同的服务页面. 电脑访问abc.com 跳转到www.abc.com ,手机访问abc.com,跳转到wap.abc.com

原理: 通过获取浏览器信息,来做跳转,首先用一个测试页面,获取不同的浏览器信息,从而做出判断.例如做一个show.asp

<%=Request.ServerVariables("ALL_HTTP")%>

得到如下,可以获得很多其他的信息,通过查找这些信息中特定的字符串,从而判断客户端所用的浏览器.

HTTP_CONNECTION:keep-alive 
HTTP_ACCEPT:application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5 
HTTP_ACCEPT_CHARSET:GBK,utf-8;q=0.7,*;q=0.3 
HTTP_ACCEPT_ENCODING:gzip,deflate,bzip2 
HTTP_ACCEPT_LANGUAGE:zh-CN,zh;q=0.8 
HTTP_COOKIE:rtime=10; ltime=1282112304536; cnzz_eid=80966359-1279618951-http%3A//220.232.136.162/; ASPSESSIONIDACQRASRR=KMIJPFOCDAPFJMLMBPLFJMAJ HTTP_HOST:www.securepro.com.hk 
HTTP_USER_AGENT:Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/531.0 (KHTML, like Gecko) Chrome/3.0.195.0 Safari/531.0 SE 2.X

具体实现代码如下:

<%
    If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml") > 0  Then 
        Response.Redirect "big5/index.htm"
    Elseif InStr(LCase(Request.ServerVariables("HTTP_USER_AGENT")),"iphone") > 0  Then
        Response.Redirect "big5/index.htm"
    else
        Response.Redirect "index.html"
    end if
%>