next
　　　　　on error goto 0
　　　　end if

　　　'打开连结
　　　set conn = Server.CreateObject("ADODB.Connection")
　　　conn.Mode=adModeReadWrite
　　　conn.open Application("ConnectionString")
　　　if err.number ＜＞ 0 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

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

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

	Web www.51ec.org

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

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