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

呵呵

1. <%
   
2. '判断是否是手机上网
   
3. 'response.write Request.ServerVariables("HTTP_ACCEPT")&"<BR>"
   
4. 'response.write Request.ServerVariables("HTTP_USER_AGENT")&"<BR>"
   
5. 
   
6. URL="http://www.iscripts.org/?mobile=yes"
   
7. If Request.ServerVariables("HTTP_X_WAP_PROFILE") Then '如果有HTTP_X_WAP_PROFILE则是手机
   
8.    ' response.write "手机用户1"
   
9.     response.redirect URL
   
10.     response.End
    
11. End If
    
12. 
    
13. 
    
14. '如果只支持wml并且不支持html则是手机
    
15. If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") > 0 And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html")=0 Then
    
16.     ' Response.write "手机用户2"
    
17.     response.redirect URL
    
18.     response.End
    
19. End If
    
20. 
    
21. 
    
22. '如果支持wml和html但是wml在html之前则是移动设备
    
23. If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then
    
24.     If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml")< InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then
    
25.         ' Response.write "手机用户3"
    
26.         response.redirect URL
    
27.         respone.End
    
28.     End If
    
29. End If
    
30. 
    
31. '如果手机User_Agent有品牌特征符则是手机
    
32. Set reg = New RegExp
    
33. 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"
    
34. str=Replace(str,",",")|(")
    
35. reg.pattern=".*("&str&").*"
    
36. reg.IgnoreCase = True
    
37. response.write str&"<BR>"&reg.pattern
    
38. If reg.test(Request.ServerVariables("HTTP_USER_AGENT")) Then
    
39.    ' response.write "手机用户4"
    
40.     response.redirect URL
    
41.     respone.End
    
42. End If
    
43. %>

复制代码

有点像说话判断，但还是不懂

我差不多只能看懂这个了

我差不多只能看懂这个了

啊　发重复了

不懂，不懂~~