asp如何判断进入网站的客户是手机还是pc

最新推荐文章于 2021-01-17 19:21:22 发布

代码之城

最新推荐文章于 2021-01-17 19:21:22 发布

阅读量1.6k

点赞数 1

分类专栏： asp 文章标签： asp如何判断进入网站的客户是手机还是p

本文链接：https://blog.csdn.net/jamie2012/article/details/78819539

版权

asp 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

现在用手机的越来越多，现在网站需要判断访问类型，及时作出判断，作出营销策略，下面是asp代码，分享大家

asp如何判断进入网站的客户是手机还是pc

'判断客户访问是手机还是pc
		dim isphone_name
		isphone_name="位置来源"
		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    
			isphone_name="来自手机访问"
		else   
			isphone_name="来自PC访问"
		End if

	'判断结束