Para integrar o Pagar.me em um projeto ASP Clássico, você pode utilizar a API RESTful que o Pagar.me oferece. A comunicação com a API pode ser feita utilizando a biblioteca MSXML2.ServerXMLHTTP para enviar requisições HTTP.

Abaixo está um exemplo básico de como criar uma integração com a API do Pagar.me em ASP Clássico para criar uma transação:

Passo 1: Configuração da Chave de API

Antes de começar, você precisa ter sua chave de API do Pagar.me, que pode ser obtida em sua conta Pagar.me.

Passo 2: Criar a Página ASP

Crie uma nova página ASP, por exemplo, criar_transacao.asp, e adicione o seguinte código:

 

<%@ Language="VBScript" %>
<%
' Configurar a chave de API do Pagar.me
Dim apiKey
apiKey = "SUA_CHAVE_DE_API"

' Dados da transação
Dim transactionData
transactionData = "api_key=" & apiKey & _
                  "&amount=1000" & _
                  "&card_number=4111111111111111" & _
                  "&card_cvv=123" & _
                  "&card_expiration_date=1224" & _
                  "&card_holder_name=Nome Teste" & _
                  "&customer[name]=Nome Teste" & _
                  "&customer[document_number]=12345678909" & _
                  "&customer[email]=teste@teste.com" & _
                  "&customer[phone]=+5511999999999"

' Criar um objeto XMLHTTP para enviar a requisição
Dim xmlhttp
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")

' Configurar a requisição HTTP
xmlhttp.open "POST", "https://api.pagar.me/1/transactions", False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

' Enviar a requisição
xmlhttp.send transactionData

' Verificar a resposta
Dim responseText
responseText = xmlhttp.responseText

' Exibir a resposta
Response.Write "<pre>" & Server.HTMLEncode(responseText) & "</pre>"

' Liberar o objeto XMLHTTP
Set xmlhttp = Nothing
%>
 

Explicação do Código:

1. Configuração da Chave de API:

   • apiKey = "SUA_CHAVE_DE_API": Substitua "SUA_CHAVE_DE_API" pela sua chave de API do Pagar.me.

2. Dados da Transação:

   • transactionData contém os dados da transação, incluindo o valor (amount), número do cartão (card_number), CVV (card_cvv), data de expiração (card_expiration_date), nome do titular do cartão (card_holder_name), e informações do cliente.

3. Criação do Objeto XMLHTTP:

   • Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0"): Cria um objeto XMLHTTP para enviar a requisição HTTP.

4. Configuração da Requisição HTTP:

   • xmlhttp.open "POST", "https://api.pagar.me/1/transactions", False: Configura a requisição para o endpoint de transações do Pagar.me.
   • xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded": Define o cabeçalho da requisição.

5. Envio da Requisição:

   • xmlhttp.send transactionData: Envia a requisição com os dados da transação.

6. Verificação e Exibição da Resposta:

   • responseText = xmlhttp.responseText: Obtém a resposta da API.
   • Response.Write "<pre>" & Server.HTMLEncode(responseText) & "</pre>": Exibe a resposta no navegador.

Considerações Finais:

1. Segurança:

   • Certifique-se de que a comunicação com a API do Pagar.me é feita através de HTTPS para garantir a segurança dos dados.

2. Tratamento de Erros:

   • Adicione tratamento de erros adequado para capturar e lidar com quaisquer erros que possam ocorrer durante a requisição.

3. Testes:

   • Teste exaustivamente o código em um ambiente de desenvolvimento antes de utilizá-lo em produção.

4. Documentação do Pagar.me:

   • Consulte a documentação oficial do Pagar.me para mais detalhes sobre os parâmetros da API e funcionalidades adicionais.

Essa abordagem fornece uma base para integrar o Pagar.me em um projeto ASP Clássico, permitindo a criação de transações utilizando a API RESTful do Pagar.me.