Comment utiliser MSXML2.ServerXMLHTTP pour récupérer des données d'un autre site?
Nous avons le lien suivant: http://mvp.sos.state.ga.us/
plutôt que de créer un db pour répliquer l'information de la page MVP, nous aimerions utiliser notre propre formulaire, et ensuite dans les coulisses, envoyer l'information au site ci-dessus pour obtenir des résultats en utilisant le composant appelé MSXML2.ServerXMLHTTP.
malheureusement, je ne sais rien de ce composant ou comment l'utiliser.
Quelqu'un serait-il assez aimable pour me donner des conseils sur la façon d'utiliser notre propre. .. pour envoyer des informations sur le site ci-dessus et obtenir des résultats sur notre formulaire?
nous essayons essentiellement d'amener les utilisateurs à entrer la première initiale, lastname, county, date de naissance.
Merci
1 réponses
vous pouvez utiliser ce component pour les requêtes http comme "POST", "GET", "DELETE" etc.
Pour créer l'objet:
<%
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
%>
Pour envoyer des données à l'aide de la méthode "GET":
<%
objXML.Open "GET", "http://mvp.sos.state.ga.us/?some=querystring", false
objXML.Send ""
Response.Write objXML.responseText
%>
Notez que la méthode Ouverte a 3 paramètres: méthode HTTP, URL, appel asynchrone.
notez que la méthode Send sur un "GET" ignore son paramètre. (Dans ce cas, nous passons les paramètres via L'URL.)
à envoyer des données en utilisant la méthode "POST":
<%
objXML.Open "POST", "http://mvp.sos.state.ga.us/", false
objXML.Send "username=htbasaran&password=somepassword"
Response.Write objXML.responseText
%>
Note pour "POST" que la méthode d'envoi transmet les paramètres de paires clé-valeur format de la forme: cle1=valeur1&cle2=valeur2&so=sur... ou toute autre donnée comme XML, JSON, etc.)
ce sont les bases de ce composant. Si vous avez besoin de plus d'informations, vous pouvez consulter page Docs de microsoft.
un exemple de code pour obtenir les valeurs des formulaires et les envoyer en utilisant xmlhttp post méthode.
<%
' getting form values
my_uname = Request.Form("username")
my_pword = Request.Form("password")
' creating object
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
' sending variables to an external site
objXML.Open "POST", "http://www.sitename.com/login.asp", false
objXML.Send "username=" & my_uname & "&password=" & my_pword
' Assuming that successful login will return response "Ok"
' writing the result to the client.
if objXML.responseText="Ok" then
Response.Write "Login Successful!"
else
Response.Write "Login Failed!"
end if
%>