Montnets WAP 用のインターフェイスをいくつか作成する必要があるため、この方法を使用する必要があります。次に、ASP.net バージョンがあり、これは MSXML2.XMLHTTP オブジェクトを使用します。
request.asp
dim HTTPS
set 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 "送信成功"
'readstate の読み取りステータスが 4 であれば成功です。失敗した場合は、もちろん dim 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
objstream = 何も設定しない
https=何も設定しない
終了する場合
response.write html
response.asp
'DOMDocument オブジェクトの作成
xml = Server.CreateObject ("msxml2.DOMDocument") を設定します。
xml.async = False
'POST データをロードします
xml.Loadリクエスト
xml.parseError.errorCode <> 0 の場合、次に
response.write "データを正しく受信できませんでした" & "説明: " & xml.parseError.reason & "＜br>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
' i=0 から blogchild.length-1 まで
response.write the_text
このメソッドを使用すると、ASP でサーブレットや Web サービスを呼び出すことが非常に簡単になります。