0

ASPクラシックを使用してウォールテキスト、画像、リンクに投稿するようにFacebook APIを設定するのを手伝ってくれる人はいますか?

random スクリプトは簡単ですが、API を設定することができないようです。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
4

1 に答える 1

0

ユーザーに代わってステータスの更新を投稿する API URL はhttps://graph.facebook.com/USERID/feedhttpPOST要求と認証トークンを使用するため、基本的に少なくとも 3 つの呼び出しを行う必要があります (1 つは GETメソッドを使用して認証トークンを取得するため、もう 1 つはユーザーのトークンを取得するためです)。 info、およびPOSTメソッドを使用して投稿するもの)。「POSTアクション」には、リンク、メッセージ、プライバシー、キャプションなどの一連の属性がありますが、トークンを忘れないでください。そうしないと機能しません...自分でテストすると、うまくいきます簡単にするために ( Graph Explorer Toolでトークンを取得でき、期限切れにならないため)。それが機能するかどうかを確認してください。

編集: これは、目的に合わせて編集されたFacebookによる php の例です。

<?
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);
            }

        }

//すべての括弧が閉じていることを願っています。

?>
于 2013-09-02T17:59:44.627 に答える