中文字幕人妻中文AV不卡专区,狠狠色狠狠色综合日日不 国产激情一区二区三区在线观看_日韩精品免费电影_亚洲

專業(yè)的廣州網站建設、廣州網站制作公司為您服務，電話：020-85548809，29883069 手機訪問
微信關注
關注奇億廣州網站建設微信
 網站導航
新聞中心
首頁>新聞中心>建站指南

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

添加時間：2014/5/3 22:24:41    編輯：奇億網站建設公司

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

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

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

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

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

本次小編所分享的內容就是，在PC+手機二合一的網站中，網站如何能夠正確判斷用戶是從PC端還是移動端的來訪，并且根據用戶的來訪路徑來決定是分配手機網站還是PC網站。經過一段時間的研究及摸索，奇億網絡已經完全掌握了其規(guī)律，今天就將辦法分享給大家。很簡單的方式，只要一段簡單的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")                   ’手機系統(tǒng) 電腦為空 
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

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