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

轉載于:https://www.cnblogs.com/chaozhijinlong/p/3324373.html