您所在的位置:首页 > 知识问答 > SDCMS > 内容
  • SDCMS

如何来判断手机浏览器、微信浏览器?

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"))                '网关信息 
       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


本文网址:http://www.sdmoban.com/sdcms/404.html
下一篇: ASP版~微信登录
  • 栏目分类
  • 热卖商品
更多>>
  • 建站动态
SDCMS模板堂 - 成功的竞争者应该经得起风雨,应该具有抗挫折的能力。在竞争中流泪是弱者,只有在困境中奋起,才能成为强者。

推荐模板