日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

以下保存為xml.xml文檔,入在站點根目錄下

<?xml version="1.0" encoding="gb2312"   ?>  
<newdataset>
<allnum>3</allnum>
    
<workflow>  
<title1>測試流程1</title1>  
<Content1>allnum</Content1>  
</workflow>
   
<workflow>  
<title2>測試流程2</title2>  
<Content2>如何用VB.NET編寫XML文檔[05-20] 淺析.NET下XML數據訪問新機制</Content2>  
</workflow>  

<workflow>  
<title3>測試流程3</title3>  
<Content3>在本文的程序中使用到了一些"XmlNodeReader"的屬性,譬如"NodeType"屬性,用來判斷讀取得節點是什么類型。</Content3>  
</workflow>  

</newdataset>  

以下新建一個VB工程，在對象窗體中加入三個Label，在代碼窗體中加入以下代碼：

Private Sub Form_Load()
XMLObject
End Sub
Private Sub XMLObject()
Dim WebURL As String, username As String, password As String

WebURL = "http://127.0.0.1/xml.xml"

Label1.Caption = "正在查詢..."

Dim SendStr As String, XMLrandom As String, XMLObject, ReadFileText As String

Set XMLObject = CreateObject("Microsoft.XMLHTTP")
Randomize
XMLrandom = Rnd * Int((300 - 11 + 1) * Rnd + 11)
XMLObject.Open "GET", WebURL + "?&num=" + XMLrandom, False
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader "content-length", Len(SendStr)
XMLObject.send

ReadFileText = StrConv(XMLObject.ResponseBody, vbUnicode)

Label1.Caption = ReadFileText

Set XMLMorntekDocument = CreateObject("Microsoft.XMLDOM")
XMLMorntekDocument.Async = False
XMLMorntekDocument.ValidateOnParse = False
XMLMorntekDocument.Load (XMLObject.ResponseXML)

Label1.Caption = XMLMorntekDocument.selectSingleNode("http://allnum").Text

Label2.Caption = XMLMorntekDocument.selectSingleNode("http://title2").Text

Label3.Caption = XMLMorntekDocument.selectSingleNode("http://Content2").Text

Set XMLMorntekDocument = Nothing

Set XMLObject = Nothing

End Sub

Private Sub Label2_Click()

End Sub