<noframes id="9rfbv">

    <form id="9rfbv"><nobr id="9rfbv"><progress id="9rfbv"></progress></nobr></form><address id="9rfbv"><address id="9rfbv"><listing id="9rfbv"></listing></address></address>
        <em id="9rfbv"></em>
          <dfn id="9rfbv"><dl id="9rfbv"><cite id="9rfbv"></cite></dl></dfn>
          <address id="9rfbv"></address>

          <address id="9rfbv"></address>

          <address id="9rfbv"></address>

            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

            打印 | 關閉

            日本字幕有码中文字幕