<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      使用ASP發送與接收XML數據的處理方法

      [摘要]因為要做移動夢網WAP的一些接口,所以要用到這種方式,接下來會有ASP.net版本的,這個是ASP版本的,利用了MSXML2.XMLHTTP對像。    request.asp dim Https set Https=server.createobject("MSXML2.XMLH...
      因為要做移動夢網WAP的一些接口,所以要用到這種方式,接下來會有ASP.net版本的,這個是ASP版本的,利用了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 " 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都是很輕松的!



      日韩精品一区二区三区高清