国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

利用ASP發送和接收XML數據的處理方法

2024-05-04 11:04:55
字體:
來源:轉載
供稿:網友

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都是很輕松的!
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 丹江口市| 兰溪市| 元江| 绍兴市| 陕西省| 南木林县| 乌兰浩特市| 红原县| 贵溪市| 巩留县| 玉树县| 申扎县| 墨竹工卡县| 利津县| 扬州市| 嘉祥县| 上饶县| 池州市| 淮南市| 石棉县| 息烽县| 马公市| 竹山县| 廊坊市| 察隅县| 庆阳市| 洪洞县| 休宁县| 颍上县| 宣恩县| 邵东县| 石首市| 浮梁县| 托克托县| 乌兰察布市| 桐城市| 贡山| 怀来县| 东乌珠穆沁旗| 且末县| 且末县|