ASP_javascript スキルを使用した XML データの送受信のためのメソッドとコードの処理

Montnets WAP 用のインターフェイスをいくつか作成する必要があるため、このメソッドを使用する必要があります。次に、MSXML2.XMLHTTP オブジェクトを使用する ASP.net バージョンがあります。
request.asp

コードをコピー コードは次のとおりです:

dim Https
set Https=server.createobject("MSXML2.XMLHTTP")
'XMLHTTP オブジェクトを定義します
Https.open "POST","http://127.0.0.1/testpost/応答。asp",false
HTTPS.send "echo >987654
"
if Https.readystate =4 の場合
response.write "Submission success"
'readstate の読み取りステータスが 4 であれば成功です。失敗した場合は、もちろん処理を続行する必要はありません。 objstream
set 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
set objstream = nothing
set https=nothing
end if
response.write html

response.asp

'DOMDocument オブジェクトの作成
Set xml = Server.CreateObject ("msxml2.DOMDocument")
xml .async = False

'POST データのロード
xml.Load Request
If xml.parseError.errorCode <> 0 then
response.write "データを正しく受信できません" & " 説明: " & xml .parseError.reason & "
Line: " & xml.parseError.Line
End If

set blogchild=xml.getElementsByTagName("misc_command")
'the_text =blogchild.item( 0).childnodes(1).text
'the_text=blogchild.item(0).text
'for i=0 to blogchild.length-1
response.write the_text 🎜>

このメソッドを使用すると、ASP でサーブレットや Web サービスを呼び出すことが非常に簡単になります。