函数
' ============================================
' 获取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