Ahmet Korkut Tahaoğlu

ASP Twitter Account von den Inhalten, Texten, oder kann ich die Datenbank übertragen die Inhalte möglich ist. Twitter Festlegung eines Codes für das Senden von Daten durch Google's stolperte ich Koray Karaman eine GOT durch den Blog. Offensichtlich habe ich getan Ergebnis einer zufälligen Google-Suche oder nach (während des Spielens mit Twitter Fragen) Ich fand ein. Hier können Sie sagen, was ich getan habe war, den Vorfall zu erklären. Das wichtigste Ergebnis der Arbeit auf Twitter ist ein Senden von Daten an die Funktion. Transfer nicht nur die Datenbank ist möglich aus einer anderen Quelle. Das kam zu A. Geist als ein Beispiel für ein RSS, XML oder anderen Quellen für die Übertragung von Twitter kann

Wenn Sie meine Fragen haben wenden Sie Abschnitt, oder fügen Sie Kommentare zu diesem Artikel gefunden werden kann.

Zunächst zu den oberen Rand der Seite das Passwort gehört zu Ihrem Twitter-Account-Benutzernamen und Sie tun müssen, ist zu ermitteln:

username = "Twitter" Twitter-Account Benutzername
password = "TwitterDeneme" Twitter-Account vergessen

Twitter wird dann dafür sorgen, dass die Funktion der Übermittlung der Daten zum Aufbau der:

asp_twitter_update Funktion (strMsg, strUser, strPass)
oxml dim, strTwitterUrl
strTwitterUrl = "http://twitter.com/statuses/update.xml"
gesetzt oxml = Server.CreateObject ("MSXML2.ServerXMLHTTP.3.0")
oXml.Open "POST", strTwitterUrl, false, strUser, strPass
oXml.setRequestHeader "Content-Type", "application / x-www-form-urlencoded"
oXml.Send "status =" & Server.URLEncode (strMsg)
asp_twitter_update = oXml.responseText
Oxml = Nothing Set
End Function

Türkische Zeichen ist nicht ein Problem auf dieser Seite legen Sie die Funktion:

Function Environment (gelenveri)
gelenveri = LCase (gelenveri)
gelenveri = Replace (gelenveri, Chr (32 ),"_", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (208), "g", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (240), "g", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (222), "s", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (254), "s", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (199), "c", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (231), "c", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (221), "i", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (236), "i", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (237), "i", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (214), "o", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (246), "o", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (252), "u", 1, -1.0)
gelenveri = Replace (gelenveri, Chr (220), "u", 1, -1.0)
Environment = gelenveri
End Function

Und dann schließen Sie es an unserer Datenbank (die Datenbank-Verbindung Objekt, dass ich davon ausgehen, dass man so will.) Senden von Daten Funktion mit Hilfe von Twitter.

Set objRS = objConn.Execute ("SELECT * FROM ORDER BY ID DESC IcerikTablo")

Bis Dollar objRS.EOF

nenia = "" & Environment (objRS ("fldHucreAd "))&""" Twitter Ihre Nachricht
nenia = left (nenia, 160), Max. 160 Zeichen.

Dim xmlStatuses, strMsg
strMsg = nenia
xmlStatuses = asp_twitter_update (strMsg, Benutzername, Passwort)

objRS.MoveNext
Schleife

objRS.Close
SET objRS = Nothing

SET objConn = Nothing

Response.Write ("Transaktion abgeschlossen.")
Response.End ()