Facebook сообщение с asp

Question

Может кто-нибудь помочь мне установить Facebook API для публикации на стене текст, изображение и ссылку, используя asp classic?

Случайный скрипт прост, но я не могу настроить API. Прочитайте несколько doc в разработчике Facebook, но все это для PHP.

Это мой сценарий, как я могу отправить изображение и текст в Facebook?

dim myFileSys, Folder, FileName, urlpath, num, rsfb, conn, textfb, intGEN 


Set myFileSys = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = myFileSys.GetFolder(Server.MapPath("/ftpupload/imagens")) 

sub gen_pass(max_num) 
    dim gen_array(62) 

    gen_array(0) = "0" 
    gen_array(1) = "1" 
    gen_array(2) = "2" 
    gen_array(3) = "3" 
    gen_array(4) = "4" 
    gen_array(5) = "5" 
    gen_array(6) = "6" 
    gen_array(7) = "7" 
    gen_array(8) = "8" 
    gen_array(9) = "9" 

    Randomize 

    do while len(output) < max_num 
     num = gen_array(Int((9 - 0 + 1) * Rnd + 0)) 
     output = output + num 
    loop 

    gen_pass = output 
    intGEN = CInt("2") 
End sub 

sub radm 
    call gen_pass(max_num) 
    For each file in Folder.Files 
     if num="" then 
      num="0" 
     else 
      num=num+1 
     end if 
     if num=intGEN then 
      FileName = file.name 
     end if  
    next 
end sub  

do while filename="" 
    call radm 
loop  

urlpath = "/ftpupload/imagens/"&filename  
response.write urlpath 

set conn = Server.CreateObject("ADODB.Connection") 
conn.ConnectionString = "Driver={MYSQL ODBC 5.1 DRIVER};Server=localhost;Port=3306;Database=fbposter;Uid=root;Pwd=1234;" 
conn.Open() 

Set rsfb = conn.Execute("Select * From facetext ORDER BY RAND() LIMIT 0,1") 

if rsfb.eof then 
    textfb=rsfb.text 
end if 


Set myFileSys = nothing 
set folder = nothing 
set FileName = nothing 
set urlpath = nothing 
set num = nothing 
set rsfb = nothing 
set textfb = nothing 
set intGEN = nothing 
conn.close 

Answer 1

хорошо апи URL, чтобы опубликовать обновление статуса от имени пользователя является https://graph.facebook.com/USERID/feed с POST запроса HTTP и жетоном авторизации, поэтому вы должны в основном сделать, по крайней мере три вызова (один, чтобы получить с GET методом , токен аутентификации, один для получения информации пользователя и один для публикации, с помощью метода POST). POST «действие» имеет ряд атрибутов, таких как ссылка, сообщение, конфиденциальность, подпись и т. Д., Но не забывайте токен, или он не работает ... Если вы проверите это с собой это будет проще (потому что вы можете получить токены, а ваши никогда не истекают, на Graph Explorer Tool). Посмотрите, работает ли это.

EDIT: вот пример в php, по Facebook, отредактированный для вашей цели.

<? 
require '../src/facebook.php'; 

// Create our Application instance (replace this with your appId and secret). 
$facebook = new Facebook(array(
    'appId' => ' ', 
    'secret' => ' ', 
)); 

// Get User ID 
$user = $facebook->getUser(); 

// We may or may not have this data based on whether the user is logged in. 
// 
// If we have a $user id here, it means we know the user is logged into 
// Facebook, but we don't know if the access token is valid. An access 
// token is invalid if the user logged out of Facebook. 

if ($user) { //if there's an user logged in 

//build an array with some paramenters 
$parameters = array(
    'message' => "isn't it nice when things just work?", 
    'picture' => "", 
    'link' => "", 
    'name' => "", 
    'caption' => "", 
    'description' => "" //etc. If parameters are blank but at least one is there, it doesn't matter. 
); 

//add the access token to it or it doesn't work 
$parameters['user_access_token'] = $_SESSION['user_access_token']; //you get this somwhere else before posting 

//build a url to call the Graph API with POST HTTP request    
try { 

       $updateyourstatus = $facebook->api("/$user/feed", 'post', $parameters)); 
      } catch (FacebookApiException $e) { 
       d($e); 
      } 

     } 

// Надеемся, что все скобы закрыты.

?>