Nesse código é apresentada uma função simples para utilização da API do site encurtador de URLs Pra.La utilizando ASP Clássico.
A utilização é bem simples e o código também, basta chamar a função EncurtaUrl passando por parâmetro a URL completa. A função retornará a URL encurtada pelo Pra.La já pronta para utilização.
Simples assim.
No código também a a opção de trackear seus “encurtamentos”, basta utilizar seu apelido e sua chave de acesso (é necessário ter uma conta de devenvolvedor no site para isso).
<%
'-----------------------------------------------------
'Função: EncurtaUrl(ByVal Url)
'Sinopse: Encurta URL utilizando a API do Pra.La
'O formato de retorno da API para esta função é o
'PLAIN, que é o padrão.
'Parametro:
' Url: URL Original (longa)
'Retorno: String (Url Encurtada)
' Caso o retorno seja "" (vazio) a URL não pode
' ser encurtada.
'-----------------------------------------------------
Function EncurtaUrl(ByVal Url)
'Declarações
Dim objXmlHttp
Dim Retorno
Dim User
Dim Key
Dim UrlPraLa
'*************************************
'Variáveis opcionais a serem alteradas
'para trackeamento
'*************************************
User = ""
Key = ""
'*************************************
Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
UrlPraLa = "https://pra.la/api?url=[URL]&user=[USER]&key=[KEY]"
UrlPraLa = Replace(UrlPraLa, "[URL]", Url)
UrlPraLa = Replace(UrlPraLa, "[USER]", User)
UrlPraLa = Replace(UrlPraLa, "[KEY]", Key)
objXMLHttp.Open "GET", UrlPraLa, False
Call objXMLHttp.Send()
Retorno = objXmlHttp.responseText
If Lcase(Retorno) = "https://pra.la/nok" Then
Retorno = ""
End If
'Retorno
EncurtaUrl = Retorno
'Destruição das variáveis
Set objXmlHttp = Nothing
End Function
'-----------------------------------------------------
'EXEMPLO DE UTILIZAÇÃO
'-----------------------------------------------------
Dim Url
Dim UrlCurta
Url = "https://www.minhaurllonga.com.br/index.php?param1=valor1¶m2=valor2¶m3=valor3"
UrlCurta = EncurtaUrl(Url)
Response.Write "Minha URL Curta agora é: " & UrlCurta
%>
