Converter PHP para ASP

[ClaudioFS]

Boa tarde,

Preciso converter um codigo em PHP para ASP, mas não conheço nada de PHP e um pouco de ASP. Não sei como fazer em ASP a parte que dá um post e obtém o retorno desse post. O codigo citado esta em negrito.

Alguém poderia dar um luz ?

Segue o codigo em PHP :

$post = "transacao=$id_transacao" .

"&status=$status" .

"&valor_original=$valor_original" .

"&valor_loja=$valor_loja" .

"&token=$token";

$enderecoPost = "https://www.pagamentodigital.com.br/checkout/verify/";

ob_start();

$ch = curl_init();

curl_setopt ($ch, CURLOPT_URL, $enderecoPost);

curl_setopt ($ch, CURLOPT_POST, 1);

curl_setopt ($ch, CURLOPT_POSTFIELDS, $post);

curl_exec ($ch);

$resposta = ob_get_contents();

ob_end_clean();

if(trim($resposta)=="VERIFICADO"){

Claudio

[SK15]

Bem o componente "XMLHTTP" do ASP tem comportamento basta usar como POST ...

Leia esse meu tópico de resposta e tente tirar sua base: http://scriptbrasil.com.br/forum/index.php?showtopic=146557

Re POST.: http://support.microsoft.com/kb/290591

Editado Fevereiro 10, 2010 por SK15

[ClaudioFS]

Bem o componente "XMLHTTP" do ASP tem comportamento basta usar como POST ...

Leia esse meu tópico de resposta e tente tirar sua base: http://scriptbrasil.com.br/forum/index.php?showtopic=146557

Re POST.: http://support.microsoft.com/kb/290591

Tive que fazer algumas mudanças pois tinha que funcionar com POST e não GET, mas funcionou muito bem.

OBRIGADO PELA AJUDA !!

Segue o codigo que usei, para também ajudar aqueles que tiverem o mesmo problema :

Params = "?transacao=" & id_transacao & "&" &_

"status=" & status & "&" &_

"valor_original=" & valor_original & "&" &_

"valor_loja=" & valor_loja & "&" &_

"token=" & Token

' Da o POST no Pagamento Digital para verificar token

Response.Buffer = True

Dim xml

'-- Cria o Objeto de leitura

Set xml = Server.CreateObject("MSXML2.XMLHTTP")

xml.Open "POST", "https://www.pagamentodigital.com.br/checkout/verify/", False

'-- faz o Envio das Informações Requisitadas para o Servidor

xml.Send params

'-- Pega o Conteudo do TXT e coloca na Variável

Resposta = xml.responseText

' Exibe a resposta

response.write Resposta

Claudio Ferreira

Sistemas para Drogarias

www.cmasistemas.com

www.sncm.com.br

Editado Fevereiro 11, 2010 por ClaudioFS