Intraweb三层框架第2版
基于Intraweb的三层框架，前台数据存取使用TADOdataset，数据编码使用SuperObject。第2版做了如下改进： 1.启用Intraweb的Session； 2.Response改用压缩转送； 4.改进ADO与XML转换算法,使用XPath定位Schama。下面是新的ADOToXML.Pas函数： type TSQLVendor = (svMSSQL, svAccess, svOracle); function RecordsetToXML(const ARecordset: ADOInt._Recordset; const AChangesOnly: Boolean = False; const aIncludeSchema: Boolean = True): WideString; function ExtractXMLSchema(const AXML: WideString): WideString; function ExtractXMLData(const AXML: WideString): WideString; function XMLToRecordset(const AXML: WideString; const AXMLSchema: WideString = ''): ADOInt._Recordset; function XMLChangesToSQLCmd(const AXMLChanges, ATableName, AKeyFlds: WideString; const AXMLSchema: WideString = ''; const ASQLVendor: TSQLVendor = svMSSQL): WideString;
文件大小：2.7MB
评论区