<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <%'Response.end '微信临时二维码请求 for offset=0 to 1 appUrl="https://api.weixin.qq.com/cgi-bin/freepublish/batchget?access_token="&access_token args1="{" 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 article_id = obj.item.get(j).article_id ' 日期 title = obj.item.get(j).content.news_item.get(0).title '标题 'title = obj.item.get(j).url '图片连接 Response.Write (j+1)+(offset*20)&"
"&"article_id:"&article_id &"
"&title&"

" Next End If Next %>