基于Intraweb的三层框架,前台数据存取使用TADOdataset,数据编码使用SuperObject。第2版做了如下改进:1.启用Intraweb的Session;2.Response改用压缩转送;4.改进ADO与XML转换算法,使用XPath定位Schama。下面是新的ADOToXML.Pas函数:typeTSQLVendor=(svMSSQL,svAccess,svOracle);functionRecordsetToXML(constARecordset:ADOInt._Recordset;constAChangesOnly:Boolean=False;constaIncludeSchema