set conn = Server.CreateObject("ADODB.Connection") conn.Mode=adModeReadWrite conn.open application("ConnectionString") set cm.ActiveConnection=conn ' 返回数据 if not returnsData then cm.Execute else set R = server.CreateObject("ADODB.Recordset") R.CursorLocation = adUseClient R.Open cm, ,adOpenStatic, adLockReadOnly end if
if returnsData then R.Save Response, adPersistXML if err.number <> 0 then call responseError ("数据集发生存储错误" & "在命令'" & CommandText & "': " & Err.Description) Response.end end if