then
　　　　call responseError('连结出错: ' & Err.Description)
　　　　Response.end
　　　end if

　　' 连结Command对象
　　set cm.ActiveConnection = conn

　　' 执行命令
　　if returnsData then
　　　' 用命令打开一个Recordset
　　　　set R = server.CreateObject('ADODB.Recordset')
　　　　R.CursorLocation = adUseClient
　　　　R.Open cm,,adOpenStatic,adLockReadOnly
　　else
　　　　cm.Execute recordsAffected, ,adExecuteNoRecords
　　end if
　　　if err.number ＜＞ 0 then
　　　　call responseError('执行命令错误 '' & Commandtext & '': ' & Err.Description)
　　　　Response.end
　　　end if

　　　if returnsData then
　　　　R.Save Response, adPersistXML
　　　　if err.number ＜＞ 0 then
　　　　　call responseError('数据集发生存储错误，在命令'' & CommandText & '': ' & Err.Description)
　　　　　Response.end
　　　　end if
　　　elseif returnsValues then
　　　　sXML = '＜?xml version=''1.0'' encoding=''gb2312''?＞' & vbcrlf & '＜values＞'
　　　　set nodes = xml.selectNodes('command/param[direction='2']')
　　　　for each N in nodes
　　　　　nodeName = N.selectSingleNode('name').text
　　　　　sXML = sXML & '＜' & nodename & '＞' & cm.Parameters(nodename).Value & '' & '＜/' & nodename & '＞'
　　　　　next
　　　　　sXML = sXML & '＜/values＞'
　　　　　Response.Write sXML
　　　end if

　　　set cm = nothing
　　　conn.Close
　　　set R = nothing
　　　set conn = nothing
　　　Response.end
　　%＞ 　　

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

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

	Web www.51ec.org

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

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