唐山網(wǎng)站建設,唐山網(wǎng)站制作,唐山做網(wǎng)站,唐山網(wǎng)頁設計,唐山網(wǎng)站優(yōu)化,唐山網(wǎng)絡公司,唐山400電話業(yè)務 24小時熱線：15031560143 關于我們 | 網(wǎng)站模版 | 支付方式 | 網(wǎng)站地圖
基于asp的知識比較少 我自己寫了一個判斷是否關注公眾號的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請求超時！")
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為未關注
如果為1為已關注
%>
把appid和secret換成自己的微信公眾號的信息即可