t 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
　　End Sub

　　Sub getCustomerDetail(CustomerID As String)
　　　' 找出列表中相关联的ID号
　　　Dim sXML As String
　　　Dim R As Recordset
　　　Dim F As Field
　　　Dim s As String
　　　Dim N As IXMLDOMNode
　　　Dim xml As DOMDocument
　　　sXML = getCommandXML('CustOrderHist')
　　　Set xml = New DOMDocument
　　　xml.loadXML sXML
　　　Set N = xml.selectSingleNode('command/param[name='CustomerID']/value')
　　　N.Text = CustomerID
　　　Set R = getRecordset(xml.xml)
　　　' 隐藏 text , 因为它是一个记录集
　　　txtResult.Visible = False

　　　dgResult.Visible = True
　　　Set dgResult.DataSource = R
　　End Sub

　　Function getRecordset(sXML As String) As Recordset
　　　Dim R As Recordset
　　　Dim xml As DOMDocument
　　　Set xml = getData(sXML)
　　　　Debug.Print TypeName(xml)
　　　On Error Resume Next
　　

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

在google里搜索更多ASP、VB和XML建互联网应用程序4

	Web www.51ec.org

上一篇信息学院： 基础教程：ASP.NET入门篇

下一篇信息学院： ASP、VB和XML建互联网应用程序1