欧美性受xxxxxx黑人xyx性爽_国产精品后入内射日本在线观看_91日韩视频在线观看_亚洲一级免费在线观看_成人在线免费高清视频_亚洲色图欧美自拍_国精产品一区一区三区视频_中文字幕第22页_日韩欧美在线免费观看视频_日本xxx免费_91制片厂免费观看_黄色网在线视频

基于asp的知識(shí)比較少 我自己寫了一個(gè)判斷是否關(guān)注公眾號(hào)的asp代碼

如下

<%@Language="VBScript" CodePage="65001"%>

<script language="jscript" runat="server">

function getjson(str){

        try{

           eval("var jsonStr = (" + str + ")");

        }catch(ex){

           var jsonStr = null;

        }

        return jsonStr;

}

</script>

<%

Response.Charset = "utf-8"

Function RequestUrl(url)

Set XmlObj = Server.CreateObject("Microsoft.XMLHTTP")

XmlObj.open "GET",url, false

XmlObj.send

If XmlObj.Readystate=4 Then

      RequestUrl = XmlObj.responseText

   Else

      Response.Write("xmlhttp請(qǐng)求超時(shí)！") 

  Response.End()

   End If

Set XmlObj = nothing

End Function

set obj = getjson(requesturl("https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=wx10099df1be92c8ec&secret=0bfb784ee519131c55eb127c58255d7a"))  ’此處獲得全局access_token

set objok=getjson(requesturl("https://api.weixin.qq.com/cgi-bin/user/info?access_token="&obj.access_token&"&openid=oET6uw2V79Ukj4-tJ8cGEHWhUAns")) '此處通過全局access_token獲取subscribe值

response.Write objok.subscribe

如果 subscribe

值為0為未關(guān)注

如果為1為已關(guān)注

%>

把a(bǔ)ppid和secret換成自己的微信公眾號(hào)的信息即可