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

怎样来分辨手机上访问器、手机微信访问器？ 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