لأننا بحاجة إلى إنشاء بعض الواجهات لـ 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"، خطأ
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 ثم
استجابة.اكتب "تم الإرسال بنجاح"
"إذا كانت حالة قراءة حالة القراءة هي 4، فهذا يعني أنها ناجحة. وإذا لم تكن ناجحة، فليست هناك حاجة بالطبع إلى مواصلة معالجة تيار الكائنات الخافت.
تعيين objstream = Server.CreateObject("adodb.stream")
'حدد دفقًا، لأنه سيكون مشوهًا عند إخراجه مباشرة، لذا عليك التعامل مع objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write Https.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
html = objstream.ReadText
'قم بتحويل الكود ووضعه في ملف html لإغلاق هذه الكائنات objstream.Close
تعيين objstream = لا شيء
اضبط https=لا شيء
نهاية إذا
Response.write html
Response.asp
'إنشاء كائن DOMDocument
تعيين xml = Server.CreateObject ("msxml2.DOMDocument")
xml.async = خطأ
"تحميل بيانات 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).text
'the_text=blogchild.item(0).text
'لـ i=0 إلى blogchild.length-1
Response.write the_text
باستخدام هذه الطريقة، من السهل جدًا الاتصال بـ Servlet أو Web Service في ASP!