Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Prezados,
Tenho aqui um banco de notícias, onde as notícias são gravadas, e abre uma página de detalhe da notícia, buscando pelo ID.
Gostaria de inserir aqueles botões de compartilhar em Redes Sociais (Twitter, Facebook e Orkut), já inserir as variáveus para buscar títulos e links da noticia, mas o problema que quando clicar no botão que redireciona o site, ele abrir no Twitter e Facebook, todo desconfigurado, não aceita acentuação.
O que posso fazer neste caso? Queria fazer o compatilhamento igual ao G1.
Valeu pessoal,
Sds,
Vagner Nunes
Library Twitter é um pequeno script escrito em ASP (VBScript) que permite que você atualizar, recuperar, formatar e apresentar o seu tweets e perfil clássico dentro do seu aplicativo ASP. A ideia subjacente a este script ASP Classic é ajudar desenvolvedores a integrar a sua aplicação com twister, como ferramentas para desenvolvedores WordPress.
Alguns métodos:
1.Twitter REST API usuário show (ref função: aspTwitterUserDetail), permitem-lhe obter detalhe do seu perfil
2.Twitter REST API usuário timeline (ref função: aspTwitterGetUserTimeline) permitem-lhe obter o seu mais recente twitter status
3.Twitter REST API status update (ref função: aspTwitterUpdateStatus) permitem que você atualize twitter status dentro de sua página ASP
Algumas funções comuns utilizados na twister:
1.Autolink, vire formato válido de URL no seu twitter status clickable link em texto
2.Short URL (redirecionamento URL) classe, permite que você crie short url dentro da sua página ASP. suporta: tinyurl, is.gd, bit.ly, hex.io (padrão: tinyurl)
asp_twitter_lib.asp
<!--#include file="atl_short_url.asp" -->
<%
'************************************************************************
'* @TITLE: AspTwitterLib (VBScript Twitter API Class)
'* @PACKAGE: AspTwitterLib
'* @DESCRIPTION: Classe de update, get,formatar e apresentar dados twister com VBScript e Twitter API
'* @VERSION 0.1
'* @DATE: May 15 2009
'* @TODO: Implement more twitter API
'************************************************************************
class AspTwitterLib
'********************************
'* Classe Declaração
'********************************
private m_ObjXmlHttp '[object] Microsoft.XMLHTTP Object
private m_ObjParams '[object] COM Object Scripting Dictionary
private m_StrFormat '[string] Retornar Format (actualmente apenas suportam XML)
private m_StrUser '[string] Login Name
private m_StrPassword '[string] password
private m_ObjUrl '[object] url objeto << twitter_short_url.asp
private m_StrErrorMessage '[string] atual mensagem de erro
private m_StrLastErrorMessage '[string] última mensagem de erro
private m_IntHttpStatus '[integer] HTTP Response Status
private m_StrLastHttpStatus '[integer] Última resposta HTTP Status
'********************************
'* Formato dos dados propriedade assignment
'* [Actual execução] só permite XML
'********************************
Public Property Let aspTwitterDataFormat(strFormat)
'if not (strFormat="xml" or strFormat="json" or strFormat="rss" or strFormat="atom") then
m_StrFormat = "xml"
'else
' m_StrFormat = strFormat
'end if
End Property
'********************************
'* Usuário propriedade assignment
'********************************
Public Property Let aspTwitterLoginUser(strUser)
m_StrUser = strUser
End Property
'********************************
'* Password propriedade assignment
'********************************
Public Property Let aspTwitterLoginPass(strPass)
m_StrPassword = strPass
End Property
'********************************
'* get Error Status
'********************************
public property get aspTwitterError()
aspTwitterError=m_StrErrorMessage
end property
'********************************
'* get HTTP Status
'********************************
public property get aspTwitterHttp()
aspTwitterHttp=m_IntHttpStatus
end property
'********************************
'* Objeto Server
'* 1. m_ObjXmlHttp : Msxml2.ServerXMLHTTP.3.0
'* 2. m_ObjParams : Scripting.Dictionary
'********************************
private sub createServerObject()
if not isObject(m_ObjXmlHttp) then set m_ObjXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
if not isObject(m_ObjParams) then Set m_ObjParams=Server.CreateObject("Scripting.Dictionary")
end sub
'********************************
'* Destroi Objeto server
'********************************
private sub destroyServerObject()
if isObject(m_ObjXmlHttp) then set m_ObjXmlHttp = nothing
if isObject(m_ObjParams) then Set m_ObjParams = nothing
if isObject(m_ObjUrl) then Set m_ObjUrl = nothing
end sub
'********************************
'* Autolink HTML text
'* params: [string:html]
'********************************
private function aspTwitterAutolink(strHtml)
Dim objRegex,strReturn
set objRegex = new regexp
objRegex.Pattern = "(\b(?:(?:https?|ftp|file)://|www\.|ftp\.)(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[-A-Z0-9+&@#/%=~_|$?!:,.])*(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[A-Z0-9+&@#/%=~_|$]))"
objRegex.IgnoreCase = true
objRegex.Global = true
strReturn = objRegex.Replace(strHtml, "<a href=""$1"" rel = ""nofollow"" target = ""_blank"">$1</a>")
set objRegex = nothing
aspTwitterAutolink = strReturn'********************************
'* Params assignment
'* arrParams : array -> key_1=val_1, key_2=val_2
'********************************
private sub aspTwitterSetParams(arrParams)
m_ObjParams.removeAll
if isArray(arrParams) then
Dim tmpParam
for each i in arrParams
tmpParam = split(i,"=")
if Ubound(tmpParam) = 1 then
m_ObjParams.Add tmpParam(0),tmpParam(1)
end if
next
end if
end sub
'********************************
'* Mensagem de erro Check Status
'* param: [xml: twitter response]
'********************************
private function aspTwitterCheckError(strXmlResponse)
Dim strErrorMsg:strErrorMsg = ""
' personalize error message
select case m_IntHttpStatus
case 400
strErrorMsg = "Bad Request: O pedido foi inválido. " & _
"É causada por uma baixa conexão à Internet ou " & _
"<a href=""http://apiwiki.twitter.com/Rate-limiting"" target=""_blank"">Twitter's limitação da taxa</a>"
case 401
strErrorMsg = "Não Autorizado: autenticação de credenciais estavam em falta ou incorrectas. Verifique o seu nome de usuário & password"
case 403
strErrorMsg = "Proibido: O pedido foi recusado pelo servidor de twister"
case 404
strErrorMsg = "A URL solicitada é inválida ou o recurso solicitado, tais como usuário, não existe."
case 406
strErrorMsg = "Não Aceitável: formato invalido dos dados solicitados, verificar a sua opção de formatação dos dados."
case 500
strErrorMsg = "Internal Server Error: Algo está quebrado. Por favor <a href=""http://apiwiki.twitter.com/Support"">post para o grupo </ a> para que possamos investigar."
case 502
strErrorMsg = "Bad Gateway: Twitter esta baixo ou esta sendo atualizado."
case 503
strErrorMsg = "Service Unavailable: Os servidores Twitter estão sobrecarregados com os pedidos. Tente novamente mais tarde."
case else
if Len(strXmlResponse) > 0 then
Dim objXmlDom:set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = false
objXmlDom.loadxml(strXmlResponse)
objXmlDom.setProperty "SelectionLanguage", "XPath"
Dim objSingleNode
Set objSingleNode = objXmlDom.selectSingleNode("//hash/error")
if not objSingleNode is nothing then
strErrorMsg= objSingleNode.Text
end if
Set objXmlDom = Nothing
else
strErrorMsg = "Não houve dados para retornar."
end if
end select
aspTwitterCheckError = strErrorMsg'********************************
'* exemplo inicialização
'********************************
sub class_initialize()
call createServerObject
call aspTwitterShortUrlInit(false,false,false)
end sub
'********************************
'* exemplo rescisão
'********************************
sub class_terminate()
call destroyServerObject
end sub
'********************************
'* Error Status
'********************************
public sub aspTwitterWriteError(strBefore,strAfter)
if len(strBefore) = 0 then strBefore = "<p class=""error"">"
if len(strAfter) = 0 then strAfter = "</p>"
Response.Write strBefore&m_StrErrorMessage&strAfter'********************************
'* encurtar Url
'* params: [string:provider], [string:user login], [string:api key]
'********************************
public sub aspTwitterShortUrlInit(strProvider,strUser,strApi)
if not isObject(m_ObjUrl) then Set m_ObjUrl= new ATLShortUrl
if strProvider then m_ObjUrl.aspSetProvider = strProvider
if strUser then m_ObjUrl.aspSetUser = strUser
if strApi then m_ObjUrl.aspSetApi = strApi
end sub
'********************************
'* Url encurtar execução
'* params: [string:long url]
'********************************
public function aspTwitterShortUrlGet(strUrl)
if Len(strUrl) > 0 then
aspTwitterShortUrlGet = m_ObjUrl.aspShortUrlExec(strUrl)
end if'********************************
'* Obter Detalhes do usuário
'* Retorno : Dictionary Object
'* Ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-users show
'********************************
public function aspTwitterUserDetail()
Dim strApiUrl:strApiUrl = "http://twitter.com/users/show."&m_StrFormat
call aspTwitterSetParams(array("id="&m_StrUser))
Dim xmlResult:xmlResult = aspTwitterCall(strApiUrl,false,false)
Dim objDictionary:Set objDictionary = Server.CreateObject("Scripting.Dictionary")
if Len(xmlResult)>0 then
Dim objXmlDom
set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = false
objXmlDom.loadxml(xmlResult)
objXmlDom.setProperty "SelectionLanguage", "XPath"
Dim objRootNode,strNode
Set objRootNode = objXmlDom.documentElement
For Each strNode In objRootNode.childNodes
if not strNode.nodeName = "status" then
objDictionary.Add strNode.nodeName,strNode.text
end if
Next
Set objRootNode = nothing
Set objXmlDom = nothing
End if
Set aspTwitterUserDetail = objDictionary
Set objDictionary = Nothing'********************************
'* User Timeline
'* Retorno : Array(array(date_1,text_1,source_1,reply_screen_name_1),array(date_2,text_2,source_2,reply_screen_name_2))
'* ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-statuses-user_timeline
'********************************
public function aspTwitterGetUserTimeline()
Dim strApiUrl:strApiUrl = "http://twitter.com/statuses/user_timeline."&m_StrFormat
call aspTwitterSetParams(array("id="&m_StrUser))
Dim strXmlReturn:strXmlReturn = aspTwitterCall(strApiUrl,false,false)
if Len(strXmlReturn) > 0 then strXmlReturn=aspTwitterFormatXml(strXmlReturn)
aspTwitterGetUserTimeline = strXmlReturn'********************************
'* Formato timeline
'* param : XML
'* Retorno : Array(array(date_1,text_1,source_1,reply_screen_name_1),array(date_2,text_2,source_2,reply_screen_name_2))
'* ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-statuses-user_timeline
'********************************
private function aspTwitterFormatXml(strXml)
Dim objXmlDom:set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
With objXmlDom
.async = false
.setProperty "SelectionLanguage", "XPath"
.loadxml(strXml)
End With
Dim objRootNode:Set objRootNode = objXmlDom.selectNodes("/statuses/status")
Dim intCounter:intCounter = 0
' date,text,source,reply_screen_name
Dim arrUserStatus()
Dim oUserNodes
Dim iDate,iText,iSource,iReply,iHolders(4)
For Each oUserNodes in objRootNode
redim preserve arrUserStatus(intCounter+1)
iHolders(0) = oUserNodes.selectSingleNode("created_at").Text
iHolders(1) = aspTwitterAutolink(oUserNodes.selectSingleNode("text").Text)
iHolders(2) = oUserNodes.selectSingleNode("source").Text
iHolders(3) = oUserNodes.selectSingleNode("in_reply_to_screen_name").Text
arrUserStatus(intCounter) = iHolders
intCounter = intCounter + 1
Next
Set oUserNodes = Nothing
Set objRootNode = Nothing
Set objXmlDom = Nothing
aspTwitterFormatXml=arrUserStatus'********************************
'* Update User Status
'* strStatus : (string) status
'* Retorno : XML
'* Ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-statuses%C2%A0update
'********************************
public sub aspTwitterUpdateStatus(strStatus)
Dim strApiUrl:strApiUrl = "http://twitter.com/statuses/update."&m_StrFormat
Dim arrTmpParams: arrTmpParams = array("status="&strStatus,"source=VBScriptTwitter")
call aspTwitterSetParams(arrTmpParams)
call aspTwitterCall(strApiUrl,true,true)'********************************
'*Abrir página remota
'* Retorno: Conteúdo da página Remoto (XML?)
'********************************
public function aspTwitterCall(strUrl,bolPost,bolLogin)
Dim strParameters,intTimeout
intTimeout = 5000
if isObject(m_ObjParams) then
for each i in m_ObjParams
if len(i) > 0 and len(m_ObjParams.Item(i)) > 0 then
strParameters = strParameters & "&"&i&"="&server.URLencode(m_ObjParams.Item(i))
end if
next
end if
m_StrErrorMessage = ""
m_IntHttpStatus = 200
if bolPost then
if bolLogin then
m_ObjXmlHttp.Open "POST", strUrl, false, m_StrUser, m_StrPassword
else
m_ObjXmlHttp.Open "POST", strUrl, false
end if
m_ObjXmlHttp.setTimeouts intTimeout, intTimeout, intTimeout, intTimeout
m_ObjXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
if len(strParameters) > 0 then
strParameters = Mid(strParameters,2)
m_ObjXmlHttp.Send strParameters
else
m_ObjXmlHttp.Send null
end if
else
if len(strParameters) > 0 then
strParameters = Mid(strParameters,2)
Dim intStrPos
intStrPos = Instr(strUrl, "?")
if not IsNull(intStrPos) and intStrPos > 0 then
strUrl = strUrl & "&"
else
strUrl = strUrl & "?"
end if
strUrl = strUrl & strParameters
end if
m_ObjXmlHttp.Open "GET", strUrl, false
m_ObjXmlHttp.setTimeouts intTimeout, intTimeout, intTimeout, intTimeout
m_ObjXmlHttp.Send null
end if
m_IntHttpStatus = m_ObjXmlHttp.status
Dim strXmlResponse:strXmlResponse = m_ObjXmlHttp.responseText
Dim strRequestStatus:strRequestStatus = aspTwitterCheckError(strXmlResponse)
if Len(strRequestStatus) > 0 then
m_StrErrorMessage = strRequestStatus
strXmlResponse = ""
end if
aspTwitterCall = strXmlResponseatl_short_url.asp
<%
class ATLShortUrl
private m_StrProvider,m_StrApiUrl,m_StrUserName,m_StrApiKey
public property let aspSetProvider(strProvider)
m_StrProvider = Lcase(strProvider)
select case m_StrProvider
case "bitly"
m_StrApiUrl = "http://api.bit.ly/shorten?version=2.0.1&format=xml&longUrl=[:URL:]&login=[:LOGIN:]&apiKey=[:API:]"
case "isgd"
m_StrApiUrl = "http://is.gd/api.php?longurl=[:URL:]"
case "hexio"
m_StrApiUrl = "http://hex.io/api-create.php?url=[:URL:]"
case else
m_StrApiUrl = "http://tinyurl.com/api-create.php?url=[:URL:]"
end selectpublic property let aspSetUser(strUser)
m_StrUserName = strUser
end property
public property let aspSetApi(strApi)
m_StrApiKey = strApi
end property
sub class_initialize()
me.aspSetProvider = "tinyurl"
m_StrUserName = m_StrApiKey = ""
end sub
sub class_terminate()
end sub
private function aspGrabUrl(strUrl)
select case m_StrProvider
case "bitly"
Dim oXmlDom,strGrabUrl
set oXmlDom = Server.CreateObject("Microsoft.XMLDOM")
oXmlDom.async = false
oXmlDom.setProperty "SelectionLanguage", "XPath"
oXmlDom.loadxml(strUrl)
strGrabUrl = oXmlDom.selectSingleNode("/bitly/results/nodeKeyVal/shortUrl").Text
Set oXmlDom = Nothing
aspGrabUrl = strGrabUrl
case else
aspGrabUrl = strUrl
end selectpublic function aspShortUrlExec(strUrl)
if Len(m_StrApiUrl) > 0 then
Dim oXml,strRealUrl,strShortUrl
strRealUrl = Replace(m_StrApiUrl, "[:URL:]", strUrl, 1, -1, 1)
strRealUrl = Replace(strRealUrl, "[:LOGIN:]", m_StrUserName, 1, -1, 1)
strRealUrl = Replace(strRealUrl, "[:API:]", m_StrApiKey, 1, -1, 1)
set oXml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
oXml.Open "GET", strRealUrl, false
oXml.Send null
strShortUrl = oXml.responseText
Set oXml = nothing
aspShortUrlExec = aspGrabUrl(strShortUrl)
else
aspShortUrlExec = false
end ifend class
%>
index.asp
<!--#include file="asp_twitter_lib.asp" -->
<%
Dim oTwitterAPI
set oTwitterAPI = new AspTwitterLib
oTwitterAPI.aspTwitterDataFormat = "xml" ' atualmente somente suporte XML
oTwitterAPI.aspTwitterLoginUser = "seu_twitter_login"
oTwitterAPI.aspTwitterLoginPass = "seu_twitter_password"
Dim objUserDetail,strUserDetailError
Set objUserDetail = oTwitterAPI.aspTwitterUserDetail()
if Len(oTwitterAPI.aspTwitterError) > 0 then
strUserDetailError = "<p class=""error"">" & _
"Oops error detalhe do user: " & _
"<cite><small>" & oTwitterAPI.aspTwitterError & "<small></cite></p>" strTimelineError = "<p class=""error"">" & _
"Oops unabled fetching usuário : " & _
"<cite><small>" & oTwitterAPI.aspTwitterError & "<small></cite></p>"
end if<html>
<head>
<title>Classic ASP Twitter API</title>
<style type="text/css">
* { padding:0; margin:0; }
body { padding:25px; margin:0; background:#f5f5f5; color:#666; font-family:arial; font-size:20px; text-align:center; }
#wrap { text-align:left; background:#fff; width:600px; margin:0px auto; }
#twitter { padding-bottom:20px; }
h1 { font-size:30px; letter-spacing:-2px; padding:20px; }
ul {}
ul li { border-top:solid 1px #f5f5f5; padding:10px 30px; list-style:none; display:block; }
ul li.alt { background:#f6f9d0; }
small { color:#999; font-size:14px; }
a { color:#999; }
#user { margin:20px 30px; width:100%; overflow:hidden; }
#user img { border:solid 5px #ccc; float:left; margin:0px 10px 10px 0px; }
#user ul li { border:none; }
p.error { padding:0px 25px; }
#twitter p.error cite { color:red!important; }
</style>
</head>
<body>
<div id="wrap">
<div id="twitter">
<h1>Classic ASP Twitter API</h1>
<%
if Len(strUserDetailError) > 0 then
response.write strUserDetailError
else
%>
<div id="user">
<img src="<%= objUserDetail.Item("profile_image_url") %>" alt="" />
<strong><%=objUserDetail.Item("name")%> (<%=objUserDetail.Item("screen_name")%>)</strong> in
<%=objUserDetail.Item("location")%><br />
<small><a href="<%=objUserDetail.Item("url")%>" rel="nofollow" target="_blank"><%=objUserDetail.Item("url")%></a>
<br /><%=objUserDetail.Item("description")%><br />
No momento <%=objUserDetail.Item("friends_count")%> pessoas,
seguido por <%=objUserDetail.Item("followers_count")%> pessoas e tem <%=objUserDetail.Item("statuses_count")%> Status update</small>
<br clear="both" />
</div>
<%
if Len(strTimelineError) > 0 then
response.write strTimelineError
else
if IsArray(arrTimeline) then
%><ul><%
Dim intCounter,strStyle
intCounter = 0
for each i in arrTimeline
if isArray(i) then
strStyle = ""
if intCounter MOD 2 = 0 then strStyle = "alt"
%><li class="<%=strStyle%>"><%=i(1)%><br /><small>postado às <%=i(0)%> de <%=i(2)%></small></li><%
intCounter = intCounter + 1
end if
next
%></ul><%
Else
response.Write "<p>Atualmente "&objUserDetail.Item("name")&" não tem estado atualização</p>"
End if
end if
end if
%>
</div>
</div>
</body>
</html>update_status.asp
<!--#include file="asp_twitter_lib.asp" -->
<%
'*************************************************
'* @ amostra de atualização twister com status AspTwitterLib
'*************************************************
Dim oTwitterAPI:set oTwitterAPI = new AspTwitterLib
oTwitterAPI.aspTwitterLoginUser = "seu_twitter_login"
oTwitterAPI.aspTwitterLoginPass = "seu_twitter_password"
oTwitterAPI.aspTwitterUpdateStatus("Testando atualização de status AspTwitterLib, ASP (VBScript) Biblioteca de Twitter API")
if Len(oTwitterAPI.aspTwitterError) > 0 then
response.write "Opa ocorreu erro : "&oTwitterAPI.aspTwitterError
else
Response.Write "Status Updated"
end if
Set oTwitterAPI = nothing
%>
========================
twitter 2
index.asp
<!--#include file="asp_twitter_lib.asp" -->
<%
Dim oTwitterAPI
set oTwitterAPI = new AspTwitterLib
oTwitterAPI.aspTwitterLoginUser = "usuario"
oTwitterAPI.aspTwitterLoginPass = "senha"
Dim objUserDetail,strUserDetailError
Set objUserDetail = oTwitterAPI.aspTwitterUserDetail()
if Len(oTwitterAPI.aspTwitterError) > 0 then
strUserDetailError = "<p class=""error"">" & _
"Oops error fetching user detail : " & _
"<cite><small>" & oTwitterAPI.aspTwitterError & "<small></cite></p>" strTimelineError = "<p class=""error"">" & _
"Oops unabled fetching user statuses : " & _
"<cite><small>" & oTwitterAPI.aspTwitterError & "<small></cite></p>"
end if<html>
<head>
<title>Classic ASP Twitter API</title>
<style type="text/css">
* { padding:0; margin:0; }
body { padding:25px; margin:0; background:#f5f5f5; color:#666; font-family:arial; font-size:20px; text-align:center; }
#wrap { text-align:left; background:#fff; width:600px; margin:0px auto; }
#twitter { padding-bottom:20px; }
h1 { font-size:30px; letter-spacing:-2px; padding:20px; }
ul {}
ul li { border-top:solid 1px #f5f5f5; padding:10px 30px; list-style:none; display:block; }
ul li.alt { background:#f6f9d0; }
small { color:#999; font-size:14px; }
a { color:#999; }
#user { margin:20px 30px; width:100%; overflow:hidden; }
#user img { border:solid 5px #ccc; float:left; margin:0px 10px 10px 0px; }
#user ul li { border:none; }
p.error { padding:0px 25px; }
#twitter p.error cite { color:red!important; }
</style>
</head>
<body>
<div id="wrap">
<div id="twitter">
<h1>Classic ASP Twitter API</h1>
<%
if Len(strUserDetailError) > 0 then
response.write strUserDetailError
else
%>
<div id="user">
<img src="<%= objUserDetail.Item("profile_image_url") %>" alt="" />
<strong><%=objUserDetail.Item("name")%> (<%=objUserDetail.Item("screen_name")%>)</strong> in
<%=objUserDetail.Item("location")%><br />
<small><a href="<%=objUserDetail.Item("url")%>" rel="nofollow" target="_blank"><%=objUserDetail.Item("url")%></a>
<br /><%=objUserDetail.Item("description")%><br />
Currently following <%=objUserDetail.Item("friends_count")%> peoples,
followed by <%=objUserDetail.Item("followers_count")%> peoples and
has <%=objUserDetail.Item("statuses_count")%> Statuses update</small>
<br clear="all" />
</div>
<%
if Len(strTimelineError) > 0 then
response.write strTimelineError
else
if IsArray(arrTimeline) then
%><ul><%
Dim intCounter,strStyle
intCounter = 0
for each i in arrTimeline
if isArray(i) then
strStyle = ""
if intCounter MOD 2 = 0 then strStyle = "alt"
%><li class="<%=strStyle%>"><%=i(1)%><br /><small>posted at <%=i(0)%> from <%=i(2)%></small></li><%
intCounter = intCounter + 1
end if
next
%></ul><%
Else
response.Write "<p>Currently "&objUserDetail.Item("name")&" has no status update</p>"
End if
end if
end if
%>
</div>
</div>
</body>
</html>asp_twitter_lib.asp
<!--#include file="atl_short_url.asp" -->
<%
'************************************************************************
'* Copyright (c) <2009> Ariel G. Saputra <webmaster@asp.web.id>
'*
'* This program is free software: you can redistribute it and/or modify
'* it under the terms of the GNU LESSER GENERAL PUBLIC LICENSE as published by
'* the Free Software Foundation, either version 3 of the License, or
'* any later version.
'* This program is distributed in the hope that it will be useful,
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'* GNU General Public License for more details.
'* You should have received a copy of the GNU General Public License
'* along with this program. If not, see <http://www.gnu.org/licenses/>.
'************************************************************************
'************************************************************************
'* @TITLE: AspTwitterLib (VBScript Twitter API Class)
'* @PACKAGE: AspTwitterLib
'* @AUTHOR: Ariel G. Saputra <webmaster@asp.web.id>
'* @DESCRIPTION: Class to update, get, format and display twitter data with VBScript and Twitter API
'* @VERSION 0.1
'* @DATE: May 15 2009
'* @TODO: Implement more twitter API
'************************************************************************
class AspTwitterLib
'********************************
'* Class Member Declaration
'********************************
private m_ObjXmlHttp '[object] Microsoft.XMLHTTP Object
private m_ObjParams '[object] COM Object Scripting Dictionary (* hold params for each XMLHTTP Request)
private m_ObjAccount '[object] COM Object Scripting Dictionary (* hold detail account after cridential verifications)
private m_StrFormat '[string] Return Format (currently only support XML)
private m_StrUser '[string] Login Name
private m_StrPassword '[string] password
private m_ObjUrl '[object] Shortenize url object << twitter_short_url.asp
private m_StrErrorMessage '[string] current error message
private m_StrLastErrorMessage '[string] last error message
private m_IntHttpStatus '[integer] HTTP Response Status
private m_StrLastHttpStatus '[integer] Last HTTP Response Status
'********************************
'* Data format property assignment
'* [current implementation] only XML allowed
'********************************
Public Property Let aspTwitterDataFormat(strFormat)
'if not (strFormat="xml" or strFormat="json" or strFormat="rss" or strFormat="atom") then
m_StrFormat = "xml"
'else
' m_StrFormat = strFormat
'end if
End Property
'********************************
'* User property assignment
'********************************
Public Property Let aspTwitterLoginUser(strUser)
m_StrUser = strUser
End Property
'********************************
'* Password Property assignment
'********************************
Public Property Let aspTwitterLoginPass(strPass)
m_StrPassword = strPass
End Property
'********************************
'* get Error Status
'********************************
public property get aspTwitterError()
aspTwitterError=m_StrErrorMessage
end property
'********************************
'* get HTTP Status
'********************************
public property get aspTwitterHttp()
aspTwitterHttp=m_IntHttpStatus
end property
'********************************
'* Server Object Creations
'* 1. m_ObjXmlHttp : Msxml2.ServerXMLHTTP.3.0
'* 2. m_ObjParams : Scripting.Dictionary
'********************************
private sub createServerObject()
if not isObject(m_ObjXmlHttp) then set m_ObjXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
if not isObject(m_ObjParams) then Set m_ObjParams=Server.CreateObject("Scripting.Dictionary")
if not isObject(m_ObjAccount) then Set m_ObjAccount=Server.CreateObject("Scripting.Dictionary")
end sub
'********************************
'* Destroy server objects
'********************************
private sub destroyServerObject()
if isObject(m_ObjXmlHttp) then set m_ObjXmlHttp = nothing
if isObject(m_ObjParams) then Set m_ObjParams = nothing
if isObject(m_ObjAccount) then Set m_ObjAccount = nothing
if isObject(m_ObjUrl) then Set m_ObjUrl = nothing
end sub
'********************************
'* Autolink HTML text
'* params: [string:html]
'********************************
private function aspTwitterAutolink(strHtml)
Dim objRegex,strReturn
set objRegex = new regexp
objRegex.Pattern = "(\b(?:(?:https?|ftp|file)://|www\.|ftp\.)(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[-A-Z0-9+&@#/%=~_|$?!:,.])*(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[A-Z0-9+&@#/%=~_|$]))"
objRegex.IgnoreCase = true
objRegex.Global = true
strReturn = objRegex.Replace(strHtml, "<a href=""$1"" rel = ""nofollow"" target = ""_blank"">$1</a>")
set objRegex = nothing
aspTwitterAutolink = strReturn'********************************
'* Params assignment
'* arrParams : array -> key_1=val_1, key_2=val_2
'********************************
private sub aspTwitterSetParams(arrParams)
m_ObjParams.removeAll
if isArray(arrParams) then
Dim tmpParam
for each i in arrParams
tmpParam = split(i,"=")
if Ubound(tmpParam) = 1 then
m_ObjParams.Add tmpParam(0),tmpParam(1)
end if
next
end if
end sub
'********************************
'* Check Error Status Message
'* param: [xml: twitter response]
'********************************
private function aspTwitterCheckError(strXmlResponse)
Dim strErrorMsg:strErrorMsg = ""
' personalize error message
select case m_IntHttpStatus
case 400
strErrorMsg = "Bad Request: The request was invalid. " & _
"It is may caused by bad internet connection or " & _
"<a href=""http://apiwiki.twitter.com/Rate-limiting"" target=""_blank"">Twitter's rate limiting</a>"
case 401
strErrorMsg = "Not Authorized: Authentication credentials were missing or incorrect. Check your username & password"
case 403
strErrorMsg = "Forbidden: The request has been refused by twitter's server"
case 404
strErrorMsg = "The URL requested is invalid or the resource requested, such as a user, does not exists."
case 406
strErrorMsg = "Not Acceptable: Invalid data format requested, check your data format option."
case 500
strErrorMsg = "Internal Server Error: Something is broken. Please <a href=""http://apiwiki.twitter.com/Support"">post to the group</a> so the Twitter team can investigate."
case 502
strErrorMsg = "Bad Gateway: Twitter is down or being upgraded."
case 503
strErrorMsg = "Service Unavailable: The Twitter servers are overloaded with requests. Try again later."
case else
if Len(strXmlResponse) > 0 then
Dim objXmlDom:set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = false
objXmlDom.loadxml(strXmlResponse)
objXmlDom.setProperty "SelectionLanguage", "XPath"
Dim objSingleNode
Set objSingleNode = objXmlDom.selectSingleNode("//hash/error")
if not objSingleNode is nothing then
strErrorMsg= objSingleNode.Text
end if
Set objXmlDom = Nothing
else
strErrorMsg = "There was no data to return."
end if
end select
aspTwitterCheckError = strErrorMsg'********************************
'* instance initialization
'********************************
sub class_initialize()
m_StrFormat = "xml"
call createServerObject
call aspTwitterShortUrlInit(false,false,false)
end sub
'********************************
'* instance termination
'********************************
sub class_terminate()
call destroyServerObject
end sub
'********************************
'* verify your cridentials
'********************************
public sub aspTwitterVerifyCredentials()
Dim strApiUrl:strApiUrl = "http://twitter.com/account/verify_credentials."&m_StrFormat
Dim strXmlReturn:strXmlReturn = aspTwitterCall(strApiUrl,true,false)
response.Write(strXmlReturn)
end sub
'********************************
'* Write Error Status
'********************************
public sub aspTwitterWriteError(strBefore,strAfter)
if len(strBefore) = 0 then strBefore = "<p class=""error"">"
if len(strAfter) = 0 then strAfter = "</p>"
Response.Write strBefore&m_StrErrorMessage&strAfter'********************************
'* Shorten Url Initialization
'* params: [string:provider], [string:user login], [string:api key]
'********************************
public sub aspTwitterShortUrlInit(strProvider,strUser,strApi)
if not isObject(m_ObjUrl) then Set m_ObjUrl= new ATLShortUrl
m_ObjUrl.aspSetProvider = strProvider
m_ObjUrl.aspSetUser = strUser
m_ObjUrl.aspSetApi = strApi
end sub
'********************************
'* Shorten Url execution
'* params: [string:long url]
'********************************
public function aspTwitterShortUrlGet(strUrl)
if Len(strUrl) > 0 then
aspTwitterShortUrlGet = m_ObjUrl.aspShortUrlExec(strUrl)
end if'********************************
'* Get User Detail
'* Return : Dictionary Object
'* Ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-users show
'********************************
public function aspTwitterUserDetail()
Dim strApiUrl:strApiUrl = "http://twitter.com/users/show."&m_StrFormat
call aspTwitterSetParams(array("id="&m_StrUser))
Dim xmlResult:xmlResult = aspTwitterCall(strApiUrl,false,false)
Dim objDictionary:Set objDictionary = Server.CreateObject("Scripting.Dictionary")
if Len(xmlResult)>0 then
Dim objXmlDom
set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = false
objXmlDom.loadxml(xmlResult)
objXmlDom.setProperty "SelectionLanguage", "XPath"
Dim objRootNode,strNode
Set objRootNode = objXmlDom.documentElement
For Each strNode In objRootNode.childNodes
if not strNode.nodeName = "status" then
objDictionary.Add strNode.nodeName,strNode.text
end if
Next
Set objRootNode = nothing
Set objXmlDom = nothing
End if
Set aspTwitterUserDetail = objDictionary
Set objDictionary = Nothing'********************************
'* Get User Timeline
'* Return : Array(array(date_1,text_1,source_1,reply_screen_name_1),array(date_2,text_2,source_2,reply_screen_name_2))
'* ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-statuses-user_timeline
'********************************
public function aspTwitterGetUserTimeline()
Dim strApiUrl:strApiUrl = "http://twitter.com/statuses/user_timeline."&m_StrFormat
call aspTwitterSetParams(array("id="&m_StrUser))
Dim strXmlReturn:strXmlReturn = aspTwitterCall(strApiUrl,false,false)
if Len(strXmlReturn) > 0 then strXmlReturn=aspTwitterFormatXml(strXmlReturn)
aspTwitterGetUserTimeline = strXmlReturn'********************************
'* Get Friends Timeline
'* Return : Array(array(date_1,text_1,source_1,reply_screen_name_1),array(date_2,text_2,source_2,reply_screen_name_2))
'* ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-statuses-friends_timeline
'********************************
public function aspTwitterGetFriendsTimeline(count)
Dim strApiUrl:strApiUrl = "http://twitter.com/statuses/friends_timeline."&m_StrFormat
if count > 200 then
count = 200
elseif count < 1 then
count = 1
end if
call aspTwitterSetParams(array("count="&count))
Dim strXmlReturn:strXmlReturn = aspTwitterCall(strApiUrl,false,true)
if Len(strXmlReturn) > 0 then strXmlReturn=aspTwitterFormatXml(strXmlReturn)
aspTwitterGetFriendsTimeline = strXmlReturn'********************************
'* Format user timeline
'* param : XML
'* Return : Array(array(date_1,text_1,source_1,reply_screen_name_1),array(date_2,text_2,source_2,reply_screen_name_2))
'* ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-statuses-user_timeline
'********************************
private function aspTwitterFormatXml(strXml)
Dim objXmlDom:set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
With objXmlDom
.async = false
.setProperty "SelectionLanguage", "XPath"
.loadxml(strXml)
End With
Dim objRootNode:Set objRootNode = objXmlDom.selectNodes("/statuses/status")
Dim intCounter:intCounter = 0
' date,text,source,reply_screen_name,author name, author screen name, author avatar url
Dim arrUserStatus()
Dim oStatusesNodes,oUserNodes
Dim iHolders(7)
For Each oStatusesNodes in objRootNode
redim preserve arrUserStatus(intCounter+1)
iHolders(0) = oStatusesNodes.selectSingleNode("created_at").Text
iHolders(1) = aspTwitterAutolink(oStatusesNodes.selectSingleNode("text").Text)
iHolders(2) = oStatusesNodes.selectSingleNode("source").Text
iHolders(3) = oStatusesNodes.selectSingleNode("in_reply_to_screen_name").Text
Set oUserNodes = oStatusesNodes.selectSingleNode("user")
if oUserNodes.hasChildNodes() then
iHolders(4) = oUserNodes.selectSingleNode("name").Text
iHolders(5) = oUserNodes.selectSingleNode("screen_name").Text
iHolders(6) = oUserNodes.selectSingleNode("profile_image_url").Text
end if
Set oUserNodes = Nothing
arrUserStatus(intCounter) = iHolders
intCounter = intCounter + 1
Next
Set objRootNode = Nothing
Set objXmlDom = Nothing
aspTwitterFormatXml=arrUserStatus'********************************
'* Update User Status
'* strStatus : (string) status
'* Return : XML
'* Ref : http://apiwiki.twitter.com/Twitter-REST-API-Method%3A-statuses%C2%A0update
'********************************
public function aspTwitterUpdateStatus(strStatus)
Dim strApiUrl:strApiUrl = "http://twitter.com/statuses/update."&m_StrFormat
Dim arrTmpParams: arrTmpParams = array("status="&strStatus)
call aspTwitterSetParams(arrTmpParams)
Dim strXml
strXml = aspTwitterCall(strApiUrl,true,true)
Dim objXmlDom:set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
With objXmlDom
.async = false
.setProperty "SelectionLanguage", "XPath"
.loadxml(strXml)
End With
Dim objSingleNode,intReturnId
Set objSingleNode = objXmlDom.selectSingleNode("//status/id")
if not objSingleNode is nothing then
intReturnId = objSingleNode.Text
else
intReturnId = 0
end if
Set objXmlDom = Nothing
aspTwitterUpdateStatus = intReturnId'********************************
'* Open Remote Page
'* Return : Remote Page Content (XML?)
'********************************
private function aspTwitterCall(strUrl,bolPost,bolLogin)
Dim strParameters,intTimeout
intTimeout = 5000
if isObject(m_ObjParams) then
for each i in m_ObjParams
if len(i) > 0 and len(m_ObjParams.Item(i)) > 0 then
strParameters = strParameters & "&"&i&"="&server.URLencode(m_ObjParams.Item(i))
end if
next
end if
m_StrErrorMessage = ""
m_IntHttpStatus = 200
if bolPost then
if bolLogin then
m_ObjXmlHttp.Open "POST", strUrl, false, m_StrUser, m_StrPassword
m_ObjXmlHttp.setRequestHeader "Authorization", "Basic " & Base64Encode(m_StrUser&":"&m_StrPassword)
else
m_ObjXmlHttp.Open "POST", strUrl, false
end if
'm_ObjXmlHttp.setTimeouts intTimeout, intTimeout, intTimeout, intTimeout
m_ObjXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
if len(strParameters) > 0 then
strParameters = Mid(strParameters,2)
m_ObjXmlHttp.Send strParameters
else
m_ObjXmlHttp.Send null
end if
else
if len(strParameters) > 0 then
strParameters = Mid(strParameters,2)
Dim intStrPos
intStrPos = Instr(strUrl, "?")
if not IsNull(intStrPos) and intStrPos > 0 then
strUrl = strUrl & "&"
else
strUrl = strUrl & "?"
end if
strUrl = strUrl & strParameters
end if
if bolLogin then
m_ObjXmlHttp.Open "GET", strUrl, false, m_StrUser, m_StrPassword
m_ObjXmlHttp.setRequestHeader "Authorization", "Basic " & Base64Encode(m_StrUser&":"&m_StrPassword)
else
m_ObjXmlHttp.Open "GET", strUrl, false
end if
'm_ObjXmlHttp.setTimeouts intTimeout, intTimeout, intTimeout, intTimeout
m_ObjXmlHttp.Send null
end if
m_IntHttpStatus = m_ObjXmlHttp.status
Dim strXmlResponse:strXmlResponse = m_ObjXmlHttp.responseText
Dim strRequestStatus:strRequestStatus = aspTwitterCheckError(strXmlResponse)
if Len(strRequestStatus) > 0 then
m_StrErrorMessage = strRequestStatus
strXmlResponse = ""
end if
aspTwitterCall = strXmlResponse' Base64 Encoding
' http://www.pstruh.cz/tips/detpg_Base64Encode.htm
' rfc1521
' 2001 Antonin Foller, PSTRUH Software, http://pstruh.cz
Private Function Base64Encode(inData)
Const Base64 = _
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim sOut, I
'For each group of 3 bytes
For I = 1 To Len(inData) Step 3
Dim nGroup, pOut
'Create one long from this 3 bytes.
nGroup = &H10000 * Asc(Mid(inData, I, 1)) + _
&H100 * MyASC(Mid(inData, I + 1, 1)) + _
MyASC(Mid(inData, I + 2, 1))
'Oct splits the long To 8 groups with 3 bits
nGroup = Oct(nGroup)
'Add leading zeros
nGroup = String(8 - Len(nGroup), "0") & nGroup
'Convert To base64
pOut = Mid(Base64, CLng("&o" & Mid(nGroup, 1, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 3, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 5, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 7, 2)) + 1, 1)
'Add the part To OutPut string
sOut = sOut + pOut
Next
Select Case Len(inData) Mod 3
Case 1: '8 bit final
sOut = Left(sOut, Len(sOut) - 2) + "=="
Case 2: '16 bit final
sOut = Left(sOut, Len(sOut) - 1) + "="
End Select
Base64Encode = sOutPrivate Function MyASC(OneChar)
If OneChar = "" Then MyASC = 0 Else MyASC = Asc(OneChar)
End Function
end class
%>
atl_short_url.asp
<%
'************************************************************************
'* Copyright (c) <2009> Ariel G. Saputra <webmaster@asp.web.id>
'* this file is part of AspTwitterLib
'*
'* AspTwitterLib is free software: you can redistribute it and/or modify
'* it under the terms of the GNU LESSER GENERAL PUBLIC LICENSE as published by
'* the Free Software Foundation, either version 3 of the License, or
'* any later version.
'* This program is distributed in the hope that it will be useful,
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'* GNU General Public License for more details.
'* You should have received a copy of the GNU General Public License
'* along with this program. If not, see <http://www.gnu.org/licenses/>.
'*
'* @TITLE: ATLShortUrl
'* @PACKAGE: AspTwitterLib
'* @AUTHOR: Ariel G. Saputra <webmaster@asp.web.id>
'* @DESCRIPTION: Shorten url class, currently support tinyurl, is.gd, bit.ly, hex.io
'* @DATE: May 15 2009
'* @TODO: add more short url services
'************************************************************************
class ATLShortUrl
private m_StrProvider,m_StrApiUrl,m_StrUserName,m_StrApiKey
public property let aspSetProvider(strProvider)
m_StrProvider = Lcase(strProvider)
select case m_StrProvider
case "bitly"
m_StrApiUrl = "http://api.bit.ly/shorten?version=2.0.1&format=xml&longUrl=[:URL:]&login=[:LOGIN:]&apiKey=[:API:]"
case "isgd"
m_StrApiUrl = "http://is.gd/api.php?longurl=[:URL:]"
case "hexio"
m_StrApiUrl = "http://hex.io/api-create.php?url=[:URL:]"
case else
m_StrApiUrl = "http://tinyurl.com/api-create.php?url=[:URL:]"
end selectpublic property let aspSetUser(strUser)
m_StrUserName = strUser
end property
public property let aspSetApi(strApi)
m_StrApiKey = strApi
end property
sub class_initialize()
me.aspSetProvider = "tinyurl"
m_StrUserName = m_StrApiKey = ""
end sub
sub class_terminate()
end sub
private function aspGrabUrl(strUrl)
select case m_StrProvider
case "bitly"
Dim oXmlDom,strGrabUrl
set oXmlDom = Server.CreateObject("Microsoft.XMLDOM")
oXmlDom.async = false
oXmlDom.setProperty "SelectionLanguage", "XPath"
oXmlDom.loadxml(strUrl)
strGrabUrl = oXmlDom.selectSingleNode("/bitly/results/nodeKeyVal/shortUrl").Text
Set oXmlDom = Nothing
aspGrabUrl = strGrabUrl
case else
aspGrabUrl = strUrl
end selectpublic function aspShortUrlExec(strUrl)
if Len(m_StrApiUrl) > 0 then
Dim oXml,strRealUrl,strShortUrl
strRealUrl = Replace(m_StrApiUrl, "[:URL:]", strUrl, 1, -1, 1)
strRealUrl = Replace(strRealUrl, "[:LOGIN:]", m_StrUserName, 1, -1, 1)
strRealUrl = Replace(strRealUrl, "[:API:]", m_StrApiKey, 1, -1, 1)
set oXml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
oXml.Open "GET", strRealUrl, false
oXml.Send null
strShortUrl = oXml.responseText
Set oXml = nothing
aspShortUrlExec = aspGrabUrl(strShortUrl)
else
aspShortUrlExec = false
end ifend class
%>
friends.asp
<!--#include file="asp_twitter_lib.asp" -->
<%
Dim oTwitterAPI
set oTwitterAPI = new AspTwitterLib
oTwitterAPI.aspTwitterLoginUser = "xxx"
oTwitterAPI.aspTwitterLoginPass = "xxxxxx"
Dim arrTimeline,strTimelineError
arrTimeline = oTwitterAPI.aspTwitterGetFriendsTimeline(5)
if Len(oTwitterAPI.aspTwitterError) > 0 then
strTimelineError = "<p class=""error"">" & _
"Oops unabled fetching friends statuses : " & _
"<cite><small>" & oTwitterAPI.aspTwitterError & "<small></cite></p>"
end if
if Len(strTimelineError) > 0 then
response.write strTimelineError
else
if IsArray(arrTimeline) then
%><ul><%
Dim intCounter,strStyle
intCounter = 0
for each i in arrTimeline
if isArray(i) then
strStyle = ""
if intCounter MOD 2 = 0 then strStyle = "alt"
%><li class="<%=strStyle%>"><%=i(1)%><br /><small>
<%if len(i(5)) > 0 then%><a href="http://twitter.com/<%=i(4)%>" rel="nofollow"><%=i(4)%></a><%end if%>
posted at <%=i(0)%> from <%=i(2)%></small></li><%
intCounter = intCounter + 1
end if
next
%></ul><%
Else
response.Write "<p>Currently no status update</p>"
End if
end if
%>update_status.asp
<!--#include file="asp_twitter_lib.asp" -->
<%
'*************************************************
'* @ sample of update twitter status with AspTwitterLib
'*************************************************
Dim oTwitterAPI:set oTwitterAPI = new AspTwitterLib
oTwitterAPI.aspTwitterLoginUser = "xxx"
oTwitterAPI.aspTwitterLoginPass = "xxxxxx"
oTwitterAPI.aspTwitterShortUrlInit "bitly","username","api key"
Dim intLastID,strTweets
strTweets = "text here "&oTwitterAPI.aspTwitterShortUrlGet("http://asp.web.id")
intLastID = oTwitterAPI.aspTwitterUpdateStatus(strTweets)
if Len(oTwitterAPI.aspTwitterError) > 0 then
response.write "Oops error occured: "&oTwitterAPI.aspTwitterError
else
Response.Write "intLastID = " & intLastID
end if
Set oTwitterAPI = nothing
%>
Pessoal,
O botão está abrindo as redes sociais, o problema está na acentuação. quando abri, não aceita acentuação.
[code]<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"
Response.Charset="ISO-8859-1" %>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001">
<%Response.Charset="ISO-8859-1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />e para UTF-8
Mudar o head da página que solicita os dados para que ele fique assim
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
Na página que responde os dados colocar isso antes do retorno co conteúdo (logo no topo):
<%
Response.AddHeader "Content-Type", "text/html; charset=utf-8"
Response.AddHeader "Pragma", "no-cache"
response.Charset="utf-8"
%>
No laboratório de scripts existem alguns scripts que fazem isso, veja se algum deles se adapta para o que precisa.