asp判断是否微信客户端和微信浏览器访问

 

函数

' ============================================

' 获取ua

' ============================================

Private Function Browsr()

  Browsr = Request.ServerVariables("HTTP_USER_AGENT")

End Function

 

使用:

dim a

a = Browsr
'response.Write(Browsr)
if InStr( a, "MicroMessenger" ) then
 
else
Response.Redirect("wx.html")
response.End()
end if