さまざまな Facebook ページからの最新の 5 つのタイムライン投稿を表示する公開 Web サイトを作成しようとしています。
Facebook Graph API を使用して JSON を要求し、JSON パーサー (www.aspjson.com) を使用して ASP Classic で JSON を読み取ります。
これまでに作成したコードは非常に単純です。
<!--#include file="scripts/aspJSON1.12.asp"-->
<%
response.codepage = 65001
response.charset = "utf-8"
function EncodingFixer(str)
EncodingFixer = replace(str, "u00e5", "å")
EncodingFixer = replace(EncodingFixer, "u00e6", "æ")
EncodingFixer = replace(EncodingFixer, "u00f8", "ø")
end function
sub FacebookAPI()
set objHTTP = createobject("MSXML2.ServerXMLHTTP.6.0")
objHTTP.Open "GET", Location, false
objHTTP.Send
set oJSON = new aspJSON
oJSON.loadJSON(objHTTP.responsetext)
set ItemList = oJSON.data("data")
for each Item in ItemList
PostDate = formatdatetime(left(ItemList.item(Item).item("created_time"), 10), 2)
Message = EncodingFixer(ItemList.item(Item).item("message"))
response.write "<br /><strong>" & PostDate & "</strong><br />" & Message & "<br />"
next
end sub
Location = "https://graph.facebook.com/PAGE_ID/feed?fields=created_time,message,comments,likes&limit=5&access_token=ACCESS_TOKEN"
call FacebookAPI()
%>
私の問題は次のとおりです。Graph API Explorer 内でトークンを作成していますが、しばらくすると期限切れになります。アクセス トークンの作成に関する実際の例が見つかりません。