ASP中如何判断PC用户访问还是手机用户访问 （第2页）

        还有一个办法，这个办法更专业一些：

1. HTTP_ACCEPT=Request.ServerVariables("HTTP_ACCEPT")                 '获取浏览器信息  
2. HTTP_USER_AGENT=LCase(Request.ServerVariables("HTTP_USER_AGENT"))  '获取AGENT  
3. HTTP_X_WAP_PROFILE=Request.ServerVariables("HTTP_X_WAP_PROFILE")   'WAP特定信息 品牌机自带浏览器都会有  
4. HTTP_UA_OS=Request.ServerVariables("HTTP_UA_OS")                   '手机系统 电脑为空  
5. HTTP_VIA=LCase(Request.ServerVariables("HTTP_VIA"))                '网关信息  
6. Dim WapStr  
7. WAPstr=False  
8. If ubound(split(HTTP_ACCEPT,"vnd.wap"))>0 Then WAPstr=True  
9. If HTTP_USER_AGENT="" Then  WAPstr=True  
10. If HTTP_X_WAP_PROFILE<>"" Then  WAPstr=True  
11. If HTTP_UA_OS<>"" Then  WAPstr=True  
12. IF ubound(split(HTTP_VIA,"wap"))>0 Then  WAPstr=True  
13. IF ubound(split(HTTP_USER_AGENT,"netfront"))>0 Then  WAPstr=True  
14. IF ubound(split(HTTP_USER_AGENT,"iphone"))>0 Then  WAPstr=True  
15. IF ubound(split(HTTP_USER_AGENT,"opera mini"))>0 Then  WAPstr=True  
16. IF ubound(split(HTTP_USER_AGENT,"ucweb"))>0 Then  WAPstr=True  
17. IF ubound(split(HTTP_USER_AGENT,"windows ce"))>0 Then  WAPstr=True  
18. IF ubound(split(HTTP_USER_AGENT,"symbianos"))>0 Then  WAPstr=True  
19. IF ubound(split(HTTP_USER_AGENT,"java"))>0 Then  WAPstr=True  
20. IF ubound(split(HTTP_USER_AGENT,"android"))>0 Then  WAPstr=True  
21. If WAPstr=True Then      
22. Response.Write "请访问手机版本http://m.logo880.cn"     
23. response.redirect "http://m.logo880.cn"  
24. response.end  
25. else     
26. 'response.redirect "http://www.logo880.cn"  
27. 'response.end  
28. End if