Bonjour j utilise un code VB sous asp pour attaquer (AttaqueHTTP) un webservice avec un retour de l'api en "MSXML2.ServerXMLHTTP.4.0" je conclue mon script par objectXML.ResponseTEXT celui ci me donne le xml attendu avec les bons parametres
Je cherche à paginer ce resultat en asp du retour de l'api
J ai regardé sur les modele AJAX mais je n y arrive pas
voici mon code a la fin :
<%'fonction dappel dune url
Function AttaqueHTTP(byref objectresult, byref objectXML, byval URL, byval Data,byval typecontent, byval namecertificat, byval User, byval Pwd, byval direct)
on error resume next
dim requestStr,infodebug,strBodyMAil
set objectXML = CreateObject("MSXML2.ServerXMLHTTP.4.0")
AttaqueHTTP=0
if namecertificat<> "" then
Response.Write("&namecertificat : " & namecertificat )
objectXML.setOption 2,SXH_OPTION_SELECT_CLIENT_SSL_CERT
if err.number<> 0 then
AttaqueHTTP=2051&" desc:"&err.Description
exit function
end if
objectXML.setOption 3,"LOCAL_MACHINE\My\"&namecertificat
if err.number<> 0 then
AttaqueHTTP=2052&" desc:"&err.Description
exit function
end if
end if
if user<> "" then
objectXML.open "POST", URL ,direct,User,Pwd
else
if left(URL, 5) = "https" then
objectXML.setOption 3, ""
end if
objectXML.open "POST", URL ,direct
end if
if err.number<> 0 then
AttaqueHTTP=2053&" desc:"&err.Description
exit function
end if
if typecontent<> "" then
objectXML.setRequestHeader "Content-Type", typecontent
end if
objectXML.setRequestHeader "SOAPAction", "''"
if err.number<> 0 then
AttaqueHTTP=22054&" desc:"&err.Description
exit function
end if
objectXML.send Data
if err.number<> 0 then
AttaqueHTTP=32055&" desc:"&err.Description
exit Function
end if
if err.number<> 0 then
AttaqueHTTP=2056
exit function
end if
response.write objectXML.ResponseTEXT
set objectXML = nothing
End Function
%>
voici le XML retour
<?xml version="1.0" encoding="ISO-8859-1"?> <PROFILE_LIST> <PROFILE> <DEST_ID>id_1</DEST_ID> <DEST_NAME>TOTO</DEST_NAME> <DEST_FORENAME>toto</DEST_FORENAME> <TERMINAL> <TERMINAL_NAME>personnal</TERMINAL_NAME> <TERMINAL_ADDR>192.168.1.2</TERMINAL_ADDR> <CALL> <MEDIA> <MEDIA_DIAG>000|1|1|</MEDIA_DIAG> <MEDIA_DATE>2007-02-06 19:28:54.713</MEDIA_DATE> <MEDIA_RES>OK</MEDIA_RES> <MEDIA_TYPE>Ping</MEDIA_TYPE> </MEDIA> </CALL> </TERMINAL> </PROFILE> <PROFILE> <DEST_ID>id_2</DEST_ID> <DEST_NAME>TATA</DEST_NAME> <DEST_FORENAME>tata</DEST_FORENAME> <TERMINAL> <TERMINAL_NAME>personnal</TERMINAL_NAME> <TERMINAL_ADDR>192.168.1.3</TERMINAL_ADDR> <CALL> <MEDIA> <MEDIA_DIAG>000|1|1|</MEDIA_DIAG> <MEDIA_DATE>2007-02-06 19:28:54.713</MEDIA_DATE> <MEDIA_RES>OK</MEDIA_RES> <MEDIA_TYPE>ping</MEDIA_TYPE> </MEDIA> </CALL> </TERMINAL> </PROFILE> </PROFILE_LIST>
Merci Beaucoup
Cedric