超準確的自動判斷手機瀏覽器而從電腦站跳轉到手機站的ASP源碼

我們知道，用js做手機站跳轉到電腦站速度會慢，而直接使用服務器語言比較準確而且跳轉速度快，除了因為偽靜態原因而沒有辦法做asp或php跳轉的情況，我們都是建議用程序來做跳轉。

這里是野狼經常用的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團隊使用的手機跳轉代碼，因為編輯器限制，復制之后需要把漢語的注釋去掉，要不會報錯。為了讓程序小白正常使用，下邊會有下載鏈接，源碼無錯，如果不會部署，可以找野狼，任何程序問題都能輕松解決！

判斷手機瀏覽跳轉到手機站的asp源碼