Da wir einige Schnittstellen für Montnets WAP erstellen müssen, müssen wir diese Methode verwenden. Als nächstes wird es eine ASP.net-Version geben, die das MSXML2.XMLHTTP-Objekt verwendet.
request.asp
dim HTTPS
set Https=server.createobject("MSXML2.XMLHTTP")
'Definieren Sie ein XMLHTTP-Objekt
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>"
wenn Https.readystate=4 dann
Response.write „Übermittlung erfolgreich“
„Wenn der Readstate-Lesestatus 4 ist, ist es erfolgreich. Wenn es nicht erfolgreich ist, besteht natürlich keine Notwendigkeit, die Verarbeitung von dim objstream fortzusetzen.“
set objstream = Server.CreateObject("adodb.stream")
„Definieren Sie einen Stream, da dieser beim direkten Herausnehmen verstümmelt wird, sodass Sie sich mit objstream.Type = 1 befassen müssen.“
objstream.Mode =3
objstream.Öffnen
objstream.Write Https.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
'Konvertieren Sie den Code und fügen Sie ihn in HTML ein, um diese Objekte objstream.Close zu schließen
set objstream = nichts
setze https=nichts
Ende wenn
Response.write html
Response.asp
'DOMDocument-Objekt erstellen
Setze xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = False
'POST-Daten laden
xml.Load-Anfrage
Wenn xml.parseError.errorCode <> 0, dann
Response.write „Daten konnten nicht korrekt empfangen werden“ & „Beschreibung:“ & xml.parseError.reason & „＜br＞Line:“ & xml.parseError.Line
Ende Wenn
gesetzt blogchild=xml.getElementsByTagName("misc_command")
'the_text=blogchild.item(0).childnodes(1).text
'the_text=blogchild.item(0).text
'für i=0 bis blogchild.length-1
Response.write the_text
Mit dieser Methode ist es sehr einfach, Servlet oder Web Service in ASP aufzurufen!