<blockquote id="kseem"></blockquote>
<samp id="kseem"><label id="kseem"></label></samp>
  • <blockquote id="kseem"><samp id="kseem"></samp></blockquote>
    <input id="kseem"></input>
    <samp id="kseem"><object id="kseem"></object></samp>
  • 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

    打印 | 關閉

    午夜男欢女爱免费视频,免费阿V网站在线观看G,国产六月婷婷爱在线观看,免费啪视频完整版在线观看,日本又色又爽又黄观看