Karena kita perlu membuat beberapa antarmuka untuk Montnets WAP, kita perlu menggunakan metode ini. Selanjutnya akan ada versi ASP.net Ini adalah versi ASP yang menggunakan objek MSXML2.XMLHTTP.
request.asp
meredupkan HTTPS
setel Https=server.buat objek("MSXML2.XMLHTTP")
'Tentukan objek XMLHTTP
Https.buka "POST", " http://127.0.0.1/testpost/response.asp", salah
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>"
jika Https.readystate=4 maka
respon.tulis "Pengajuan berhasil"
'Jika status pembacaan readstate 4 maka berhasil Lanjutkan. Jika tidak berhasil tentunya tidak perlu melanjutkan proses dim objstream.
setel objstream = Server.CreateObject("adodb.stream")
'Definisikan aliran, karena akan kacau saat dikeluarkan langsung, jadi harus berurusan dengan objstream.Type = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis Https.responseBody
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
'Konversikan kode dan masukkan ke dalam html untuk menutup objek ini objstream.Tutup
setel objstream = tidak ada
atur https=tidak ada
berakhir jika
respon.tulis html
respon.asp
'Buat objek DOMDocument
Setel xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = Salah
'Muat data POST
xml.Muat Permintaan
Jika xml.parseError.errorCode <> 0 Lalu
respon.write "Tidak dapat menerima data dengan benar" & "Deskripsi: " & xml.parseError.reason & "＜br＞Line: " & xml.parseError.Line
Berakhir Jika
disetel blogchild=xml.getElementsByTagName("misc_command")
'the_text=blogchild.item(0).childnodes(1).teks
'the_text=blogchild.item(0).teks
'untuk i=0 hingga blogchild.length-1
respon.write the_text
Menggunakan metode ini, sangat mudah untuk memanggil Servlet atau Layanan Web di ASP!