เนื่องจากเราจำเป็นต้องสร้างอินเทอร์เฟซสำหรับ Montnets WAP เราจึงจำเป็นต้องใช้วิธีนี้ ต่อไปจะมีเวอร์ชัน ASP.net นี่คือเวอร์ชัน ASP ซึ่งใช้วัตถุ MSXML2.XMLHTTP
request.asp
HTTPS สลัว
ตั้งค่า Https=server.createobject("MSXML2.XMLHTTP")
'กำหนดวัตถุ 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>"
ถ้า Https.readystate=4 แล้ว
response.write "ส่งสำเร็จ"
'หากสถานะการอ่านสถานะเป็น 4 แสดงว่าดำเนินการได้สำเร็จ หากไม่สำเร็จ แน่นอนว่าไม่จำเป็นต้องดำเนินการ dim objstream ต่อไป
ตั้ง objstream = Server.CreateObject("adodb.stream")
'กำหนดสตรีม เพราะว่ามันจะอ่านไม่ออกเมื่อคุณนำมันออกมาโดยตรง ดังนั้นคุณต้องจัดการกับ objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียน Https.responseBody
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
'แปลงโค้ดและใส่ไว้ใน html เพื่อปิดวัตถุเหล่านี้ objstream.Close
ตั้งค่า objstream = ไม่มีเลย
ตั้งค่า https=nothing
สิ้นสุดถ้า
response.write html
response.asp
'สร้างวัตถุ DOMDocument
ตั้งค่า xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = False
'โหลดข้อมูล POST
xml.คำขอโหลด
ถ้า xml.parseError.errorCode <> 0 แล้ว
response.write "ไม่สามารถรับข้อมูลได้อย่างถูกต้อง" & "คำอธิบาย: " & xml.parseError.reason & "<br>Line: " & xml.parseError.Line
สิ้นสุด หาก
ตั้งค่า blogchild=xml.getElementsByTagName("misc_command")
'the_text=blogchild.item(0).childnodes(1).ข้อความ
'the_text=blogchild.item(0).ข้อความ
'สำหรับ i=0 ถึง blogchild.length-1
response.write the_text
การใช้วิธีนี้ทำให้ง่ายต่อการเรียก Servlet หรือ Web Service ใน ASP!