Enlaces cortos con TinyUrl y ASP
En algunas aplicaciones web necesitaremos crear enlaces cortos para evitar el clasico http://www.tupagina.com/tipo1=32&variable2=32532 y en cambio obtener algo como http://tinyurl.com/yk6xo6j, quizas tampoco tan facil de recordar pero menos complicado que el anterior, para eso usaremos la API de TinyURL y ASP clasico.La funcion que usaremos es la siguiente:
function asp_short_url(strUrl)
Dim oXml,strTinyUrl
strTinyUrl = "http://tinyurl.com/api-create.php?url=" & strUrl
set oXml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
oXml.Open "GET", strTinyUrl, false
oXml.Send null
asp_short_url = oXml.responseText
Set oXml = nothing
End Function
Y la forma de llamarlo es asi:Response.Write (asp_short_url("http://www.tupagina.com/tipo1=32&variable2=32532"))Donde la parte en negritas es lo unico que debemos cambiar, es bastante sencillo y util... o eso espero.
2 comentarios:
Me intereso mucho este contenido y se me genero una duda. Con mi poco conocimiento quizas me puedas ayudar.
Tengo un fragmento de codigo de un trabajo y necesito saber si me puedes ayudar. La idea es que de un enlace que genero, el cual sera visto en el cuadro del texarea, sea transformado en tinyurl a travez de un simple boton. Sera posible algo asi?
claro que se puede, una opcion seria meter el codigo en una funcion o usar ajax para hacerlo, no se como estes armando tu sitio pero si se puede
Publicar un comentario