简单ASP判断是否手机访问自动进入手机站

发布日期：[2014/4/29] 编辑：奇亿广州网站建设

随着移动互联网的发展加速，互联网巨头仍未停止移动终端入口的争夺战，众多企业对于移动互联网的速度也在不断加快。而作为网络营销的主要载体，网站建设的核心也正在逐渐向手机终端迁移。最具有代表性的莫过于企业在网站建设选择中开始考虑手机网站、手机APP、微商城等形式，而并非单一的PC网站。

虽然目前没有任何一家互联网公司能够对移动互联网网站建设以及搜索引擎规则能够做出全部正确的解释，就连中文搜索第一入口的百度搜索也仍然在移动互联网上使用PC端的搜索法则，但不可否认的是，移动互联网时代已经到来。

在2014年互联网白皮书中，百度首次将移动网站与PC网站分开叙述，并且对手机网站的建设提出了初步的建议，当然，这些建议大多数是相对网站建设本身而言。这其中就包括支持使用优质的HTML5资源，对百度split做适配跳转，使用独立域名等。

虽然一些网站建设企业打出了精通各种手机网站建设，甚至能够设计出PC+手机+微信+APP+平板等四合一或五合一的“全能型网站”来，但从居高不下的手机网站造价来看，我们就知道，其实移动网站的建设技术仍未成熟，移动互联网如何发展，如何抢占移动终端的先机，仍然是困扰所有互联网企业的一个难题。

在这种背景下，一些希望获得移动终端先机的企业会在经过权衡之后，会通过转码或者建设PC+手机二合一的方式网站来进行运营。但搜索引擎本身的转码有时候并不能为网站作很好的呈现，并且会在网站上加上搜索引擎合作方的广告，因而，PC+移动二合一的方式就是移动网站的首选。

本次小编所分享的内容就是，在PC+手机二合一的网站中，网站如何能够正确判断用户是从PC端还是移动端的来访，并且根据用户的来访路径来决定是分配手机网站还是PC网站。经过一段时间的研究及摸索，奇亿网络已经完全掌握了其规律，今天就将办法分享给大家。很简单的方式，只要一段简单的ASP代码即可。代码如下：

<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl=http://www.studstu.com''此为手机网站路径，各位在复制代码时只要将此路径修改成指定手机网站的路径即可。推荐使用独立手机网站域名。
Set reExp = New RegExp
MbStr="Android|iPhone|UC|Windows Phone|webOS|BlackBerry|iPod"
reExp.pattern=".*("&MbStr&").*"
reExp.IgnoreCase = True
reExp.Global = True
If reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then
response.redirect MoblieUrl
response.End
End If
End Sub
%>
调用<%call Check_Wap()%>

这段代码经过奇亿网络的多次测试，100%有用。<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="http://www.stud.net.cn"''手机网站路径
Set reExp = New RegExp
MbStr="Android|iPhone|UC|Windows Phone|webOS|BlackBerry|iPod"
reExp.pattern=".*("&MbStr&").*"
reExp.IgnoreCase = True
reExp.Global = True
If reExp.test(Request.ServerVariables("HTTP_USER_AGENT")) Then
response.redirect MoblieUrl
response.End
End If
End Sub
%>

另外网络收集另一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.Write "我是手机访问"
   ’’ response.redirect "wap.asp"
else
    Response.Write "我是PC访问"
   ’’ response.redirect "Pc.asp"
End if

本次的分享到这里结束。手机网站会在一定时期成为互联网发展的潮流。当然，在更远的未来，能够适应各种设备浏览，无论是PC、平板电脑还是各种分辨率的手机都能够得到最佳程度展现的网站建设类型才会是众望所归。我们仍然在这条路上努力探索，并且会不定时跟大家分享我们的成果。如果你希望和我们一起分享或者有一些更好的建议，欢迎联系我们。