ml
　　　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 & '
行数: ' & 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('command/returnsvalues')
　　　　if N is nothing then
　　　　　call responseError('Missing ＜returnsdata＞ or ＜returnsValues＞ parameter.')
　　　　else
　　　　　returnsValues = (lcase(N.Text)='true')
　　　　end if
　　　else
　　　　returnsData=(lcase(N.Text)='true')
　　　end if

　　　set cm = server.CreateObject('ADODB.Command')
　　　cm.CommandText = commandText
　　　if instr(1, com

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

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

	Web www.51ec.org

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

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