Twitter URL Curta

[nemtconto 0]

Olá pessoal, procurei no forum e não encontrei algo simples...

 

Até achei a biblioteca do Twitter

 

http://forum.imasters.com.br/index.php?/topic/351952-twitter-biblioteca/

postado por nosso amigo xanburzum...

 

A dúvida é, não entendi muito bem TUDO aquilo, mas queria saber... um jeito SIMPLES de fazer uma url curta...

 

Vejam o meu drama... Se alguém puder me dar uma força com isso ficarei muito agradecido.

 

 

É o seguinte, eu tenho um sistema de noticia que montei para um site, já consegui fazer com que a noticia do site (titulo) seja postado no Twitter (graças a um script que o Patrique montou) e consigo fazer com que a url da noticia postada vá também

 

ex: Titulo da noticia, no twitter - http://site.com.br/noticia.asp?id=34

 

Até ai tudo certo, o cara "clica" no link e boa vai para a noticia...

 

Mas gostaria de "encurtar" ela usando algum desses redirecionadores que existem..

 

ou seja quando eu for postar a noticia no twitter a url ir como por exemplo http://bit.ly/13123 (não importa o que seja escrito mas que apenas encurte)

 

Entenderam? tem como fazer isso.. tipo ele vai fazendo tudo, depois cria a url curta resgatando minhas variaveis e depois que montar ele posta msg lá no twitter já com a url curta sem precisar copiar e colocar ou clicar em "confirmar"....

 

Obrigado pelo help! (Achei isso para tudo quanto é linguagem, menos para nosso querido ASP)

[Patrique 0]

Mano, toma esta ae que e fiz para o abre.me

 

<%
'----------------------------------------------------------
REM Função criada por Patrique André (O gostosão)
'----------------------------------------------------------
Function abreae(link)
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")
        Url = "http://abre.ae/api/?link="& link &""
        objXMLHTTP.Open "GET", URL, FALSE
        objXMLHTTP.send()
        abreae = objXMLHTTP.responseText
        abreae = ("Seu link no abre.ae é "& abreae &"")
set objXMLHTTP = nothing
End Function

Response.Write(abreae("http://seulink.com/suapagina.html"))
%>

[nemtconto 0]

Mano, toma esta ae que e fiz para o abre.me

 

<%
'----------------------------------------------------------
REM Função criada por Patrique André (O gostosão)
'----------------------------------------------------------
Function abreae(link)
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")
        Url = "http://abre.ae/api/?link="& link &""
        objXMLHTTP.Open "GET", URL, FALSE
        objXMLHTTP.send()
        abreae = objXMLHTTP.responseText
        abreae = ("Seu link no abre.ae é "& abreae &"")
set objXMLHTTP = nothing
End Function

Response.Write(abreae("http://seulink.com/suapagina.html"))
%>

Thanks again Patrique!!! Vou fazer os testes aqui e já digo se o problema tá resolvido xD

[Patrique 0]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[jrcardozo 4]

no laboratorio de scripts do forum imasters:

http://forum.imasters.com.br/index.php?/topic/272044-criar-links-dinamicamente/page__hl__link__fromsearch__1

http://forum.imasters.com.br/index.php?/topic/127877-tranformar-enredeco-em-links/page__hl__link__fromsearch__1

[nemtconto 0]

Problemas na hora do post...

 

QUando eu posto a noticia ele já está indo para o Twitter e já diminui a url... isso é ótimo

 

o problema é, usei um script que o nosos amigo Patrique fez... porém quando posta o que acontece é

 

http://twitter.com/MeioFiltrante

 

Assim que ele ve um "acento" ele pula as duas letras seguintes e assim vai, ele lê o acento, porém como falei pula os dois caracteres seguintes... alguém sabe como resolver este problema?

 

O codigo do Twitter que estou usando

 

				set recNot = server.CreateObject("ADODB.Recordset")
				sql = "SELECT * FROM releases order by id DESC Limit 1"
				recNot.Open sql, conbanco
				
				idnot = recNot("id")
				tit = left(recNot("titulo"),90)
													
					'URL DA NOTICIA FINAL
					espaco = " - "
					aonde = "http://meiofiltrante.com.br/noticias.asp?id="&idnot
					urlnot = espaco + aonde

							'INCLUSÃO DA NOTÍCIA DIRETAMENTE NO TWITTER DA MEIO FILTRANTE
							Response.Buffer = True
				
								Dim twitter
								Set twitter = Server.CreateObject("Microsoft.XMLHTTP")
				
									twitter_usuario  = "**********"    
									twitter_senha   = "**********"
									
									mensagem = tit + urlnot
									
											twitter.Open "POST", "http://" & twitter_usuario & ":" & twitter_senha & "@twitter.com/statuses/update.xml?status="&server.URLencode(mensagem), False
											twitter.setRequestHeader "Content-Type", "content=text/html; charset=utf-8"
				
									twitter.Send
					
								Set twitter = Nothing

[xanburzum 169]

você pode usar uma funcaun para retirar o acento...

[Patrique 0]

mano a solução para o problema de acentuação esta no post 9 lá no topico aonde você tirou o script

 

http://forum.imasters.com.br/index.php?/topic/348679-atualizar-twitter-pelo-asp/page__view__findpost__p__1391571

 

[]'s