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
　　　dim nodeName
　　　dim nodes
　　　dim conn
　　　dim sXML
　　　dim R
　　　dim cm

　　　 ' 创建DOMDocument对象
　　　Set xml = Server.CreateObject("msxml2.DOMDocument")
　　　xml.async = False

　　　' 装载POST数据
　　　xml.Load Request
　　　If xml.parseError.errorCode ＜＞ 0 Then
　　　　Call responseError("不能装载 XML信息。 描述: " & xml.parseError.reason & "＜br＞行数: " & xml.parseError.Line)
　　　End If

　　　' 客户端必须发送一个commandText元素
　　　Set N = xml.selectSingleNode("command/commandtext")
　　　If N Is Nothing Then
　　　　Call responseError("Missing ＜commandText＞ parameter.")
　　　Else
　　　　commandText = N.Text
　　　End If

　　　' 客户端必须发送一个returnsdata或者returnsvalue元素
　　　set N = xml.selectSingleNode("command/returnsdata")
　　　if N is nothing then
　　　　set N = xml.selectSingleNode

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

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

	Web www.51ec.org

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

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