<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
微信获取素材列表
<%'Response.end
'微信临时二维码请求
for offset=0 to 1
appUrl="https://api.weixin.qq.com/cgi-bin/material/batchget_material?access_token="&access_token
args1="{"
'args1=args1&"""type"":""news"","
args1=args1&"""type"":""image"","
args1=args1&"""offset"":"&offset*20&","
args1=args1&"""count"":20"
args1=args1&"}"
'Response.Write appUrl&"
"&args1 &"
"
'Response.end
HTMLCODE= PostBody(appUrl,args1)
'Response.Write HTMLCODE &"
"
json=HTMLCODE
%>
<%
str=json
str=right(str,len(str)-instr(str,"?{")+1)
str=left(str,InstrRev(str,"}"))
dim obj
set obj = getjson(str)
str0=""
If obj.item.get(0)="[object Object]" Then
for j=0 to obj.item.length-1
media_id = obj.item.get(j).media_id ' 日期
'title = obj.item.get(j).content.news_item.get(0).title '标题
title = obj.item.get(j).url '图片连接
Response.Write (j+1)+(offset*20)&"
"&"media_id:"&media_id &"
"&title&"
"
Next
End If
Next
%>