L = sXML & "＜returnsdata＞True＜/returnsdata＞"
　　　sXML = sXML & "＜/command＞"
　　　Set RCommands = getRecordset(sXML)
　　　Do While Not RCommands.EOF
　　　　For Each F In RCommands.Fields
　　　　　Debug.Print F.Name & "=" & F.Value
　　　　Next
　　　　RCommands.MoveNext
　　　Loop
　　End Sub

　　Function getCommandXML(command_name As String) As String
　　　RCommands.MoveFirst
　　　RCommands.Find "command_name='" & command_name & "'", , adSearchForward, 1
　　　If RCommands.EOF Then
　　　　MsgBox "Cannot find any command associated with the name '" & command_name & "'."
　　　　Exit Function
　　　Else
　　　　getCommandXML = RCommands("command_xml")
　　　End If
　　End Function

　　Sub getRecentProduct(CustomerID As String)
　　　Dim sXML As String
　　　Dim xml As DOMDocument
　　　Dim N As IXMLDOMNode
　　　Dim productName As String
　　　sXML = getCommandXML("RecentPurchaseByCustomerID")
　　　Set xml = New DOMDocument
　　　xml.loadXML sXML
　　　Set N = xml.selectSingleNode("command/param[name='CustomerID']/value")
　　　N.Text = CustomerID
　　　Set xml = executeSPWithReturn(xml.xml)
　　　productName = xml.selectSingleNode("values/ProductName").Text
　　　' 显示text域
　　　txtResult.Text = ""
　　　Me.txtResult.Visible = True
　　　dgResult.Visible = False
　　　' 显示product名
　　　txtResult.Text = "最近的产品是: " & productName
　　End Sub

　　Sub getCustomerList()
　　　Dim sXML As String
　　　Dim i As Integer
　　　Dim s As String
　　　sXML = getCommandXML("getCustomerList")
　　　Set RCustomers = getRecordset(sXML)
　　　Set dgCustomers.DataSource = RCustomers

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多使用ASP、VB和XML建立运行于互联网上的应用程序

	Web www.51ec.org

上一篇信息学院： ASP实例之计数器程序详解

下一篇信息学院： 创建网站的 RSS 内容摘要…