ASP中如何判斷PC用戶訪問還是手機用戶訪問

時間:2017/4/9 14:59:44,點擊:0

Dim HTTP_ACCEPT: HTTP_ACCEPT=Request.ServerVariables("HTTP_ACCEPT") '獲取瀏覽器信息  
Dim HTTP_USER_AGENT: HTTP_USER_AGENT=LCase(Request.ServerVariables("HTTP_USER_AGENT")) '獲取AGENT  
Dim HTTP_X_WAP_PROFILE: HTTP_X_WAP_PROFILE=Request.ServerVariables("HTTP_X_WAP_PROFILE") 'WAP特定信息 品牌機自帶瀏覽器都會有  
Dim HTTP_UA_OS: HTTP_UA_OS=Request.ServerVariables("HTTP_UA_OS") '手機系統 電腦為空  
Dim HTTP_VIA: 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  
Dim default_skin
If WAPstr=True Then      
default_skin = "mobile"
else    
default_skin = "default"
End if

打印 | 關閉

新疆18选7开奖公告 大发快三骗局揭秘 河内一分彩后一论坛 双色球开奖历史第一期 短期趋势持续时间 房地产股票推荐 欢乐彩票下载app腾牛网 云南十一选五走势图表 新疆11选5开奖号 股票停牌最长时间 pk10杀码计划在线 内蒙古快三快3豹子玩法 河北体彩11选规则五 湖北快3开奖结果查询 北京pk拾计划群 深圳风采基本走势图 云跟投配资