Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

tony_lu

Postagem automatica no facebook

Por , em PHP

Recommended Posts

tony_lu    1

tony_lu
Postado

Ola pessoal, criei um sistema simples de noticias, tem um sistema adm que eu posto as noticias!

Eu preciso que ao postar a noticia pelo adm no site, automaticamente o link desta noticia seja postada no facebook como se fosse um compartilhamento do link desta noticia, alguem pode me ajudar?!

 

Obrigado!

 

Abs

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos PHP

  • Conteúdo Similar

    • W. Sales
      Erro: Microsoft VBScript runtime error '800a01a8' Object requ
      Por W. Sales
      Erro apresentado na locaweb:
      Microsoft VBScript runtime error '800a01a8'
      Object required: '[undefined]'
      /noticias/addnotfoto1.asp, line 151
       
       
       
       
       
      Codigo do erro:
      <% @ codepage="1252" language="VBScript" %> <!-- #include file="upload.inc" --> <title>:: Web 3 ::</title> </head> <STYLE type=text/css> BODY { font-family: verdana; font-size: 12px; color: #000000; scrollbar-face-color: #DEE3E7; scrollbar-highlight-color: #FFFFFF; scrollbar-shadow-color: #DEE3E7; scrollbar-3dlight-color: #D1D7DC; scrollbar-arrow-color: #006699; scrollbar-track-color: #EFEFEF; scrollbar-darkshadow-color: #98AAB1; } BODY { BACKGROUND-REPEAT: repeat-y } TD { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } P { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } LI { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } A { text-decoration: none; color: #000000; } A:Hover { text-decoration: none; color: #000000; } IMG { border-color: #4D4B4D; } A:Visited { text-decoration: none; color: #4D4B4D; } A:Active { text-decoration: none; color: #4D4B4D; } } INPUT { BACKGROUND-COLOR: 1C1E4C; BORDER-BOTTOM-COLOR: #1C1E4C; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #1C1E4C; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #1C1E4C; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #1C1E4C; BORDER-TOP-WIDTH: 1px; COLOR: #37ADDE; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } </STYLE> <script language="JavaScript" type="text/JavaScript"> function ValidaCadastro(form) { if (form.frm_login.value == "") { alert("Login não Informado!"); return false; } else if (form.frm_senha.value == "") { alert("Senha não informada!"); return false; } } </script> <style type="text/css"> <!-- .link2:link { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: none; } .link2:visited { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: none; } .link2:hover { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: underline; } --> </style> <body leftmargin="0" topmargin="0" bgcolor="#F6F6F6"> <center> <table cellpadding="0" cellspacing="0"> <tr> <td background="img2/top.gif" width="778" height="134" valign="top"> <br> <br> <br> <br> <br> <br> <br> <br> <table cellpadding="0" cellspacing="0"> <tr> <td width="20"> </td> <td><table cellpadding="0" cellspacing="0"> <tr> <td><a href="addnotfoto-w.asp">Adicionar Notícias</a> - <a href="alteralista.asp">Alterar Conteudo</a> - <a href="apagalista.asp">Deletar Noticias</a></td> </tr> </table></td> </tr> </table> </td> </tr> </table> <br><br> <p align="center"><font face="verdana, arial, tahoma"><span style="font-size:10pt;"><b><% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Topico = UploadRequest.Item("Topico").Item("Value") Resumo = UploadRequest.Item("Resumo").Item("Value") Classe = UploadRequest.Item("Classe").Item("Value") Classe1 = UploadRequest.Item("Classe1").Item("Value") Autor = UploadRequest.Item("Autor").Item("Value") Noticia = UploadRequest.Item("Noticia").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") caminho_foto1 = UploadRequest.Item("foto1").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") foto1 = UploadRequest.Item("foto1").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("fotos/") nome_foto = "/"&nome_foto nome_foto1 = "/"&nome_foto1 ' pasta + nome dos arquivos cfoto = "fotos" + nome_foto cfoto1 = "fotos" + nome_foto1 ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if if foto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to LenB(foto1) MyFile.Write chr(AscB(MidB(foto1,i,1))) Next MyFile.Close end if Noticia = Replace(Noticia,"'","´") Noticia = Replace(Noticia,"á","á") Noticia = Replace(Noticia ,"Á","Á") Noticia = Replace(Noticia ,"ã","ã") Noticia = Replace(Noticia ,"Ã","Ã") Noticia = Replace(Noticia ,"â","â") Noticia = Replace(Noticia ,"Â","à") Noticia = Replace(Noticia ,"À","À") Noticia = Replace(Noticia ,"é","é") Noticia = Replace(Noticia ,"É","É") Noticia = Replace(Noticia ,"ê","ê") Noticia = Replace(Noticia ,"Ê","Ê") Noticia = Replace(Noticia ,"í","í") Noticia = Replace(Noticia ,"Í","Í") Noticia = Replace(Noticia ,"ó","ó") Noticia = Replace(Noticia ,"Ó","Ó") Noticia = Replace(Noticia ,"õ","õ") Noticia = Replace(Noticia ,"Õ","Õ") Noticia = Replace(Noticia ,"ô","ô") Noticia = Replace(Noticia ,"Ô","Ô") Noticia = Replace(Noticia ,"ú","ú") Noticia = Replace(Noticia ,"Ú","Ú") Noticia = Replace(Noticia ,"ü","ü") Noticia = Replace(Noticia ,"Ü","Ü") Noticia = Replace(Noticia ,"Ç","Ç") Noticia = Replace(Noticia ,"ç","ç") ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("dados/dados.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into Noticias (Topico,Resumo,Classe,Classe1,Autor,Noticia,foto,foto1) values ('"& Topico &"', '"& Resumo &"', '"& Classe &"','"& Classe1 &"','"& Autor &"', '"& Noticia &"', '"& cfoto &"', '"& cfoto1 &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!" ' Redireciona após 5 segundos response.write "<br><br>Vc será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>" %></span></font>
    • W. Sales
      Erro: Microsoft VBScript runtime error '800a01a8' Object requ
      Por W. Sales
      Erro apresentado na locaweb:
      Microsoft VBScript runtime error '800a01a8'
      Object required: '[undefined]'
      /noticias/addnotfoto1.asp, line 151
       
       
       
       
       
      Codigo do erro:
      <% @ codepage="1252" language="VBScript" %> <!-- #include file="upload.inc" --> <title>:: Web 3 ::</title> </head> <STYLE type=text/css> BODY { font-family: verdana; font-size: 12px; color: #000000; scrollbar-face-color: #DEE3E7; scrollbar-highlight-color: #FFFFFF; scrollbar-shadow-color: #DEE3E7; scrollbar-3dlight-color: #D1D7DC; scrollbar-arrow-color: #006699; scrollbar-track-color: #EFEFEF; scrollbar-darkshadow-color: #98AAB1; } BODY { BACKGROUND-REPEAT: repeat-y } TD { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } P { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } LI { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } A { text-decoration: none; color: #000000; } A:Hover { text-decoration: none; color: #000000; } IMG { border-color: #4D4B4D; } A:Visited { text-decoration: none; color: #4D4B4D; } A:Active { text-decoration: none; color: #4D4B4D; } } INPUT { BACKGROUND-COLOR: 1C1E4C; BORDER-BOTTOM-COLOR: #1C1E4C; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #1C1E4C; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #1C1E4C; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #1C1E4C; BORDER-TOP-WIDTH: 1px; COLOR: #37ADDE; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } </STYLE> <script language="JavaScript" type="text/JavaScript"> function ValidaCadastro(form) { if (form.frm_login.value == "") { alert("Login não Informado!"); return false; } else if (form.frm_senha.value == "") { alert("Senha não informada!"); return false; } } </script> <style type="text/css"> <!-- .link2:link { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: none; } .link2:visited { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: none; } .link2:hover { font-family: Tahoma, Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #FFFFFF; text-decoration: underline; } --> </style> <body leftmargin="0" topmargin="0" bgcolor="#F6F6F6"> <center> <table cellpadding="0" cellspacing="0"> <tr> <td background="img2/top.gif" width="778" height="134" valign="top"> <br> <br> <br> <br> <br> <br> <br> <br> <table cellpadding="0" cellspacing="0"> <tr> <td width="20"> </td> <td><table cellpadding="0" cellspacing="0"> <tr> <td><a href="addnotfoto-w.asp">Adicionar Notícias</a> - <a href="alteralista.asp">Alterar Conteudo</a> - <a href="apagalista.asp">Deletar Noticias</a></td> </tr> </table></td> </tr> </table> </td> </tr> </table> <br><br> <p align="center"><font face="verdana, arial, tahoma"><span style="font-size:10pt;"><b><% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Topico = UploadRequest.Item("Topico").Item("Value") Resumo = UploadRequest.Item("Resumo").Item("Value") Classe = UploadRequest.Item("Classe").Item("Value") Classe1 = UploadRequest.Item("Classe1").Item("Value") Autor = UploadRequest.Item("Autor").Item("Value") Noticia = UploadRequest.Item("Noticia").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") caminho_foto1 = UploadRequest.Item("foto1").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") foto1 = UploadRequest.Item("foto1").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("fotos/") nome_foto = "/"&nome_foto nome_foto1 = "/"&nome_foto1 ' pasta + nome dos arquivos cfoto = "fotos" + nome_foto cfoto1 = "fotos" + nome_foto1 ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if if foto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to LenB(foto1) MyFile.Write chr(AscB(MidB(foto1,i,1))) Next MyFile.Close end if Noticia = Replace(Noticia,"'","´") Noticia = Replace(Noticia,"á","á") Noticia = Replace(Noticia ,"Á","Á") Noticia = Replace(Noticia ,"ã","ã") Noticia = Replace(Noticia ,"Ã","Ã") Noticia = Replace(Noticia ,"â","â") Noticia = Replace(Noticia ,"Â","à") Noticia = Replace(Noticia ,"À","À") Noticia = Replace(Noticia ,"é","é") Noticia = Replace(Noticia ,"É","É") Noticia = Replace(Noticia ,"ê","ê") Noticia = Replace(Noticia ,"Ê","Ê") Noticia = Replace(Noticia ,"í","í") Noticia = Replace(Noticia ,"Í","Í") Noticia = Replace(Noticia ,"ó","ó") Noticia = Replace(Noticia ,"Ó","Ó") Noticia = Replace(Noticia ,"õ","õ") Noticia = Replace(Noticia ,"Õ","Õ") Noticia = Replace(Noticia ,"ô","ô") Noticia = Replace(Noticia ,"Ô","Ô") Noticia = Replace(Noticia ,"ú","ú") Noticia = Replace(Noticia ,"Ú","Ú") Noticia = Replace(Noticia ,"ü","ü") Noticia = Replace(Noticia ,"Ü","Ü") Noticia = Replace(Noticia ,"Ç","Ç") Noticia = Replace(Noticia ,"ç","ç") ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("dados/dados.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into Noticias (Topico,Resumo,Classe,Classe1,Autor,Noticia,foto,foto1) values ('"& Topico &"', '"& Resumo &"', '"& Classe &"','"& Classe1 &"','"& Autor &"', '"& Noticia &"', '"& cfoto &"', '"& cfoto1 &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Parabéns, a notícia foi inserida com sucesso com sucesso!" ' Redireciona após 5 segundos response.write "<br><br>Vc será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='2; url=admin.asp'/>" %></span></font>
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito