Опубликовать на стене Facebook с классическим ASP - PullRequest
Новая
       23

Опубликовать на стене Facebook с классическим ASP

1 голос
/ 17 января 2012

У меня проблема с публикацией на стене Facebook с классическим ASP. Переменные fbName, fbUserID, accessToken установлены в «реальной жизни» - я просто удалил их здесь. У меня есть правильные разрешения для публикации на стене пользователя ("publish_stream").

Пост не размещен на фейсбуке пользователя. Я сделал какие-нибудь ошибки? 

fbName = ""
fbUserID = ""
accessToken = ""

strURL = "https://graph.facebook.com/" & fbUserID & "/feed"
strMessage = fbName & " just did something."
strLink = "http://www.orf.at/"
strAccessToken = accessToken

para = "?access_token=" & strAccessToken & "&message=" & strMessage & "&link=" & strLink

set xmlDoc = createObject("MSXML2.DOMDocument")
xmlDoc.async = False
xmlDoc.setProperty "ServerHTTPRequest", true
bLoaded = xmlDoc.load(strURL & para)

Извините, я не могу ответить на свой вопрос. Но вот правильное решение:

Правильный ответ: 

Dim xmlHttp 
Dim res

set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP") 


xmlHttp.Open "POST", strURL & para, false
xmlHttp.setRequestHeader "Content-type","application/x-www-form-urlencoded"
xmlHttp.send

Чтобы получить некоторые ошибки: 

res = xmlHttp.responseText
Response.Write "res: " & res & "<br>"
Response.Write "Status: " & xmlHttp.Status & "<br>"

1 Ответ

0 голосов
/ 17 января 2012

Похоже, вы не используете запрос Http Post.Вам нужно что-то вроде этого (не проверено) 

Dim xmlHttp
set xmlHttp = CreateObject("Microsoft.xmlHttp")


xmlHttp.Open "POST", strURL & para
xmlHttp.setRequestHeader "Content-type","application/x-www-form-urlencoded"
xmlHttp.setRequestHeader "Content-Length",len(sendData) 

xmlHttp.send 

Dim response
response = xmlHttp.responseText
...