利用ASP發送和接收XML資料的處理方法

來源:互聯網
上載者:User

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 " echo
123456 987654
11111 22222 "
if Https.readystate=4 then
 response.write "提交成功"
 'readstate讀取狀態為4則成功,繼續後面的,不成功當然就不用繼續處理了
 dim objstream
 set objstream = Server.CreateObject("adodb.stream")
 '定義一個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 "不能正確接收資料" & "Description: " & 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
'for i=0 to blogchild.length-1
response.write the_text

  利用這種方法,ASP裡調用Servlet或Web Service都是很輕鬆的!

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.