怎样来分辨手机上访问器、手机微信访问器?

怎样来分辨手机上访问器、手机微信访问器? SDCMS模版堂 与 2018/1/19 14:13:44 公布此篇章 人气值:197 SDCMS
Function IsMobile()
 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")) '网关ip信息内容 
 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 
 IsMobile = WapStr
End Function
Function is_weixin()
 Dim ua : ua = request.ServerVariables("HTTP_USER_AGENT")
 'Response.Write(ua)
 If Instr(Lcase(ua),"micromessenger") 0 Then
 is_weixin = True
 Else
 is_weixin = False
 End If
End function


文中 标识:SDCMS模版堂 公司网站模版 手机上网站模版
SDCMS模版堂 - 取得成功的市场竞争者应当经得住风吹雨打,应当具备抗挫败的工作能力。在市场竞争中落泪是弱小,仅有在窘境中奋起,才可以变成最强者。强烈推荐模版
河南机械重工科技河南省机械设备重工机械高新科技序号:QY088 vip会员价:¥150.00 元程序版本号:SDCMS 2.1 清新绿色环保全屋整装清爽翠绿色环境保护整屋整体家装序号:QY110 vip会员价:¥150.00 元程序版本号:SDCMS 3.3 集团企业网站模板团体公司网站模版序号:QY109 vip会员价:¥150.00 元程序版本号:SDCMS 2.2 不锈钢机械制造不锈钢板机械设备生产制造序号:QY107 vip会员价:¥150.00 元程序版本号:SDCMS 1.3 机械机电车压路机机械设备机电工程车压路机序号:QY106 vip会员价:¥150.00 元程序版本号:SDCMS 1.3

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://removeh5.cn/jingyan/2782.html