唐山網(wǎng)站建設(shè),唐山網(wǎng)站制作,唐山做網(wǎng)站,唐山網(wǎng)頁(yè)設(shè)計(jì),唐山網(wǎng)站優(yōu)化,唐山網(wǎng)絡(luò)公司,唐山400電話業(yè)務(wù) 24小時(shí)熱線：15031560143 關(guān)于我們 | 網(wǎng)站模版 | 支付方式 | 網(wǎng)站地圖
基于asp的知識(shí)比較少 我自己寫(xiě)了一個(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")) '此處通過(guò)全局access_token獲取subscribe值
response.Write objok.subscribe
如果 subscribe
值為0為未關(guān)注
如果為1為已關(guān)注
%>
把a(bǔ)ppid和secret換成自己的微信公眾號(hào)的信息即可