簡單ASP判斷是否手機訪問自動進入手機站

發(fā)布日期：[2014/4/29] 編輯：奇億廣州網(wǎng)站建設

隨著移動互聯(lián)網(wǎng)的發(fā)展加速，互聯(lián)網(wǎng)巨頭仍未停止移動終端入口的爭奪戰(zhàn)，眾多企業(yè)對于移動互聯(lián)網(wǎng)的速度也在不斷加快。而作為網(wǎng)絡營銷的主要載體，網(wǎng)站建設的核心也正在逐漸向手機終端遷移。最具有代表性的莫過于企業(yè)在網(wǎng)站建設選擇中開始考慮手機網(wǎng)站、手機APP、微商城等形式，而并非單一的PC網(wǎng)站。

雖然目前沒有任何一家互聯(lián)網(wǎng)公司能夠?qū)σ苿踊ヂ?lián)網(wǎng)網(wǎng)站建設以及搜索引擎規(guī)則能夠做出全部正確的解釋，就連中文搜索第一入口的百度搜索也仍然在移動互聯(lián)網(wǎng)上使用PC端的搜索法則，但不可否認的是，移動互聯(lián)網(wǎng)時代已經(jīng)到來。

在2014年互聯(lián)網(wǎng)白皮書中，百度首次將移動網(wǎng)站與PC網(wǎng)站分開敘述，并且對手機網(wǎng)站的建設提出了初步的建議，當然，這些建議大多數(shù)是相對網(wǎng)站建設本身而言。這其中就包括支持使用優(yōu)質(zhì)的HTML5資源，對百度split做適配跳轉(zhuǎn)，使用獨立域名等。

雖然一些網(wǎng)站建設企業(yè)打出了精通各種手機網(wǎng)站建設，甚至能夠設計出PC+手機+微信+APP+平板等四合一或五合一的“全能型網(wǎng)站”來，但從居高不下的手機網(wǎng)站造價來看，我們就知道，其實移動網(wǎng)站的建設技術仍未成熟，移動互聯(lián)網(wǎng)如何發(fā)展，如何搶占移動終端的先機，仍然是困擾所有互聯(lián)網(wǎng)企業(yè)的一個難題。

在這種背景下，一些希望獲得移動終端先機的企業(yè)會在經(jīng)過權衡之后，會通過轉(zhuǎn)碼或者建設PC+手機二合一的方式網(wǎng)站來進行運營。但搜索引擎本身的轉(zhuǎn)碼有時候并不能為網(wǎng)站作很好的呈現(xiàn)，并且會在網(wǎng)站上加上搜索引擎合作方的廣告，因而，PC+移動二合一的方式就是移動網(wǎng)站的首選。

本次小編所分享的內(nèi)容就是，在PC+手機二合一的網(wǎng)站中，網(wǎng)站如何能夠正確判斷用戶是從PC端還是移動端的來訪，并且根據(jù)用戶的來訪路徑來決定是分配手機網(wǎng)站還是PC網(wǎng)站。經(jīng)過一段時間的研究及摸索，奇億網(wǎng)絡已經(jīng)完全掌握了其規(guī)律，今天就將辦法分享給大家。很簡單的方式，只要一段簡單的ASP代碼即可。代碼如下：

<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl= 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
%>
調(diào)用<%call Check_Wap()%>

這段代碼經(jīng)過奇億網(wǎng)絡的多次測試，100%有用。<%
Sub Check_Wap()
dim MoblieUrl,reExp,MbStr
MoblieUrl="http://www.stud.net.cn"''手機網(wǎng)站路徑
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
%>

另外網(wǎng)絡收集另一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")                   ’手機系統(tǒng) 電腦為空
HTTP_VIA=LCase(Request.ServerVariables("HTTP_VIA"))                ’網(wǎng)關信息
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

本次的分享到這里結(jié)束。手機網(wǎng)站會在一定時期成為互聯(lián)網(wǎng)發(fā)展的潮流。當然，在更遠的未來，能夠適應各種設備瀏覽，無論是PC、平板電腦還是各種分辨率的手機都能夠得到最佳程度展現(xiàn)的網(wǎng)站建設類型才會是眾望所歸。我們?nèi)匀辉谶@條路上努力探索，并且會不定時跟大家分享我們的成果。如果你希望和我們一起分享或者有一些更好的建議，歡迎聯(lián)系我們。