Static,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建互联网应用程序

	Web www.51ec.org

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

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