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

        现在我们在制作网页的时候，为了提高用户体验，有时候会需要先判断用户是用电脑访问还是手机访问，下面分享一下ASP代码：

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. %>