如果没有参数
　　　else
　　　　　for each param in nodes
　　　　　　' Response.Write server.HTMLEncode(param.xml) & '
'
　　　　　　on error resume next
　　　　　　paramName = param.selectSingleNode('name').text
　　　　　　if err.number ＜＞ 0 then
　　　　　　　call responseError('创建参数: 不能发现名称标签。')
　　　　　　end if
　　　　　　paramType = param.selectSingleNode('type').text
　　　　　　paramDirection = param.selectSingleNode('direction').text
　　　　　　paramSize = param.selectSingleNode('size').text
　　　　　　paramValue = param.selectSingleNode('value').text
　　　　　　if err.number ＜＞ 0 then
　　　　　　　　call responseError('参数名为 '' & paramName & ''的参数缺少必要的域')
　　　　　　end if
　　　　　　cm.Parameters.Append 　　　　　　　　　　　　　　　　　　　cm.CreateParameter(paramName,paramType,paramDirection,paramSize,paramValue)
　　　　　　if err.number ＜＞ 0 then
　　　　　　　call responseError('不能创建或添加名为 '' & paramName & '的参数.' ' &　err.description)
　　　　　　　 Response.end
　　　　　　end if
　　　　　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,,adOpen

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

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

	Web www.51ec.org

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

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