mandText, ' ', vbBinaryCompare) ＞ 0 then
　　　　cm.CommandType=adCmdText
　　　else
　　　　cm.CommandType = adCmdStoredProc
　　　end if

　　　' 创建参数
　　　set nodes = xml.selectNodes('command/param')
　　　if nodes is nothing then
　　　　' 如果没有参数
　　　elseif nodes.length = 0 then
　　　　　' 如果没有参数
　　　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

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

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

	Web www.51ec.org

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

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