Delphi中创建一个COM服务器(RemoteDataModel),加一个ADODataSet配置完，在类型库中
加入一个方法GetRecordSet,返回值定为RecordSet**需引用Ms 的ADO对象
function TTest.GetRecordSet: Recordset;
begin
try
ADODataSet1.Open;
Result := (ADODataSet1.Recordset as RecordSet);
except
end;
end;
返回值的RecordSet是在ADODB_TLB.pas中确定的，ADODataSet的RecordSet是在
ADOInt中确定的，其实是一样的都是ADO的RecordSet 2.1，但不知Delphi怎么搞
的，
这样ASP中也可以访问了，可以象操作ADODB创建的数据集一样进行操作。
<HTML>
<BODY>
<TITLE> Testing Delphi ASP </TITLE>
<% Set DelphiASPObj = Server.CreateObject("aspsvr.test")
set Temp = DelphiASPObj.GetRecordSet
Response.Write "目前的总记录数：" &
Temp.RecordCount &
"<BR>"
Response.Write "字段1 " &
Temp.Fields(0)
%>
<HR>
</BODY>
</HTML>
