ASP 中如何判断PC用户访问还是手机用户访问

  
      
        
          
      <%      
      
     
     
        
          
           
      
      
          
      '判断是否是手机上网      
      
     
     
        
          
           
      
      
          
      'response.write Request.ServerVariables("HTTP_ACCEPT")&"<BR>"     
      
     
     
        
          
           
      
      
          
      'response.write Request.ServerVariables("HTTP_USER_AGENT")&"<BR>"     
      
     
     
        
          
           
      
      
          
           
      
     
     
        
          
           
      
      
          
      URL="http://www.iscripts.org/?mobile=yes"     
      
     
     
        
          
           
      
      
          
      If Request.ServerVariables("HTTP_X_WAP_PROFILE") Then '如果有HTTP_X_WAP_PROFILE则是手机     
      
     
     
        
          
           
      
      
          
      ' response.write "手机用户1"     
      
     
     
        
          
           
      
      
          
      response.redirect URL     
      
     
     
        
          
           
      
      
          
      response.End     
      
     
     
        
          
           
      
      
          
      End If     
      
     
     
        
          
           
      
      
          
           
      
     
     
        
          
           
      
      
          
           
      
     
     
        
          
           
      
      
          
      '如果只支持wml并且不支持html则是手机     
      
     
     
        
          
           
      
      
          
      If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") > 0 And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html")=0 Then     
      
     
     
        
          
           
      
      
          
      ' Response.write "手机用户2"     
      
     
     
        
          
           
      
      
          
      response.redirect URL     
      
     
     
        
          
           
      
      
          
      response.End     
      
     
     
        
          
           
      
      
          
      End If     
      
     
     
        
          
           
      
      
          
           
      
     
     
        
          
           
      
      
          
           
      
     
     
        
          
           
      
      
          
      '如果支持wml和html但是wml在html之前则是移动设备     
      
     
     
        
          
           
      
      
          
      If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then     
      
     
     
        
          
           
      
      
          
      If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml")< InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then      
      
     
     
        
          
           
      
      
          
      ' Response.write "手机用户3"     
      
     
     
        
          
           
      
      
          
      response.redirect URL      
      
     
     
        
          
           
      
      
          
      respone.End      
      
     
     
        
          
           
      
      
          
      End If      
      
     
     
        
          
           
      
      
          
      End If      
      
     
     
        
          
           
      
      
          
           
      
     
     
        
          
           
      
      
          
      '如果手机User_Agent有品牌特征符则是手机     
      
     
     
        
          
           
      
      
          
      Set reg = New RegExp      
      
     
     
        
          
           
      
      
          
      str="CECT,Compal,CTL,LG,NEC,TCL,Alcatel,Ericsson,BIRD,DAXIAN,DBTEL,Eastcom,PANTECH,Dopod,PHILIPS,HAIER,KONKA,KEJIAN,LENOVO,BenQ,MOT,Soutec,Nokia,SAGEM,SGH,SED,Capitel,Panasonic,SonyEricsson,SIE,SHARP,Amoi,PANDA,ZTE"      
      
     
     
        
          
           
      
      
          
      str=Replace(str,",",")|(")     
      
     
     
        
          
           
      
      
          
      reg.pattern=".*("&str&").*"     
      
     
     
        
          
           
      
      
          
      reg.IgnoreCase = True      
      
     
     
        
          
           
      
      
          
      response.write str&"<BR>"&reg.pattern     
      
     
     
        
          
           
      
      
          
      If reg.test(Request.ServerVariables("HTTP_USER_AGENT")) Then     
      
     
     
        
          
           
      
      
          
      ' response.write "手机用户4"     
      
     
     
        
          
           
      
      
          
      response.redirect URL     
      
     
     
        
          
           
      
      
          
      respone.End     
      
     
     
        
          
           
      
      
          
      End If     
      
     
     
        
          
           
      
      
          
      %>     
      
     
    
  

第二种，这个效果会好一些

  
      
        
          
           
      
      
          
      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 "请访问手机版本http://m.logo880.cn"     
      
     
     
        
          
           
      
      
          
      response.redirect "http://m.logo880.cn"     
      
     
     
        
          
           
      
      
          
      response.end     
      
     
     
        
          
           
      
      
          
      else     
      
     
     
        
          
           
      
      
          
      'response.redirect "http://www.logo880.cn"     
      
     
     
        
          
           
      
      
          
      'response.end     
      
     
     
        
          
           
      
      
          
      End if     
      
     
     
    %>