[Resolvido] web services REST/GET/POST

[lfranca 0]

Bom estou tendo que fazer minha pagina asp "conectar" numa aplicação via http, ou seja eu praticamente redireciono as informações e recebo uma resposta.

Ja procurei muita coisa na web, pra poder me ajudar nessa tarefa, + ta complicado....

 

Em tese e o seguinte:

 

Eu envio - http://site:8010/requesttest.asp?action=login&user=xxxxx&password=xxxxx

Onde:

action - eh a ação de logar, o outro lado entende a string "login" como abertura pra conexao.

 

Depois de enviado esse comando eu preciso conseguir receber a resposta q seria um ID de conexao para que eu possa prosguir com as alterações.

 

O ultimo link q eu consultei (http://imasters.com.br/artigo/7348) mostra + - isso, porem nao consegui fazer funcionar nem com reza braba....se alguem puder me ajudar eu agradeço.

[lfranca 0]

Depois de muito sofrimento consegui fazer....vou postar caso alguem precise.

 

<%

 

 

'Declarações

Dim objXmlHttp

Dim Retorno

Dim User

Dim Key

Dim Sessionv

Dim authcode

 

'*************************************

'Variáveis opcionais a serem alteradas

'para trackeamento

'*************************************

conta = "xxxxx"

Key = "xxxxxxxxx"

'*************************************

 

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

 

 

Sessionv = "http://site/teste.asp?action=login&user=[CONTA]&password=[KEY]"

Sessionv = Replace(Sessionv, "[CONTA]", conta)

Sessionv = Replace(Sessionv, "[KEY]", Key)

 

 

objXMLHttp.Open "GET", Sessionv, False

Call objXMLHttp.Send()

Retorno = objXmlHttp.responseText

 

If retorno = "0" Then

Retorno = "Senha Inválida"

End If

 

 

 

'Destruição das variáveis

Set objXmlHttp = Nothing

 

 

 

%>