nd Function

　　Function executeSPWithReturn(sXML As String) As DOMDocument
　　　Dim d As New Dictionary
　　　Dim xml As DOMDocument
　　　Dim nodes As IXMLDOMNodeList
　　　Dim N As IXMLDOMNode
　　　Set xml = getData(sXML)
　　　If xml.documentElement.nodeName = 'values' Then
　　　　Set executeSPWithReturn = xml
　　　Else
　　　　'发生错误
　
　　　　Set N = xml.selectSingleNode('response/data')
　　　　If Not N Is Nothing Then
　　　　　MsgBox N.Text
　　　　　Exit Function
　　　　Else
　　　　　MsgBox xml.xml
　　　　　Exit Function
　　　　End If
　　　End If
　　End Function

　　Function getData(sXML As String) As DOMDocument
　　　Dim xhttp As New XMLHTTP30
　　　xhttp.Open 'POST', dataURL, False
　　　xhttp.send sXML
　　　Debug.Print xhttp.responseText
　　　Set getData = xhttp.responseXML
　　End Function

　　Private Sub optAction_Click(Index As Integer)
　　　Call dgCustomers_Click
　　End Sub

　　

代码二、getData.asp

　　　 ＜%@ Language=VBScript %＞
　　　＜% option explicit %＞
　　　＜%
　　　　Sub responseError(sDescription)
　　　　Response.Write '＜response＞＜data＞Error: ' & sDescription & '＜/data＞＜/response＞'
　　　　Response.end
　　　End Sub

　　　Response.ContentType='text/xml'
　　　dim xml
　　　dim commandText
　　　dim returnsData
　　　dim returnsValues
　　　dim recordsAffected
　　　dim param
　　　dim paramName
　　　dim paramType
　　　dim paramDirection
　　　dim paramSize
　　　dim paramValue
　　　dim N

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

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

	Web www.51ec.org

上一篇信息学院： ASP教程：Global.asa文件的使用及Chat程序

下一篇信息学院： 解密ASP源代码