Parce que nous devons créer des interfaces pour Montnets WAP, nous devons utiliser cette méthode. Ensuite, il y aura une version ASP.net. Il s'agit de la version ASP, qui utilise l'objet MSXML2.XMLHTTP.
request.asp
faible HTTPS
set Https=server.createobject("MSXML2.XMLHTTP")
'Définir un objet XMLHTTP
Https.open "POST", " http://127.0.0.1/testpost/response.asp", false
Https.send "<?xml version=""1.0""?><misc_command version=""1.6""><command_name>echo</command_name>
<command_data_block><sid>123456</sid><service_id>987654</service_id>
<sp_id>11111</sp_id><sp_password>22222</sp_password></command_data_block>
</misc_command>"
si Https.readystate=4 alors
réponse.write "Soumission réussie"
'Si l'état de lecture de readstate est 4, c'est réussi. Continuez. Si cela échoue, il n'est bien sûr pas nécessaire de continuer le traitement de dim objstream.
set objstream = Server.CreateObject("adodb.stream")
'Définissez un flux, car il sera tronqué lorsque vous le supprimerez directement, vous devez donc gérer objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Write Https.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
'Convertissez le code et mettez-le en HTML pour fermer ces objets objstream.Fermer
définir objstream = rien
définir https = rien
finir si
réponse.write html
réponse.asp
'Créer un objet DOMDocument
Définir xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = False
'Charger les données POST
xml.Load Demande
Si xml.parseError.errorCode <> 0 Alors
réponse.write "Impossible de recevoir les données correctement" & "Description : " & xml.parseError.reason & "＜br＞Line : " & xml.parseError.Line
Fin si
défini blogchild=xml.getElementsByTagName("misc_command")
'the_text=blogchild.item(0).childnodes(1).text
'the_text=blogchild.item(0).text
'pour i=0 à blogchild.length-1
réponse.write the_text
En utilisant cette méthode, il est très simple d'appeler un servlet ou un service Web en ASP !