<% conn.Open "Driver={SQL Server};Database=" & DbName & ";Server=" & ServerName & ";uid=sa;pwd=manager" Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open "Select * From employee" , conn,1,3' %> 以上是完全用ASP的寫法,但我希望能用到Delphi,也就是 取得資料rs.open的部分,我希望用Delphi取代,其他畫面設 計用FrontPage和ASP(如分頁設計) Active Server Object(在物件寶庫)可呼叫delphi <% Set DelphiASPObj = Server.CreateObject("Project1.DemoASP01") rs=DelphiASPObj.GetData ‘此行程式失敗 %> GetData如下 function TDemoASP02.GetData: OleVariant; var MyDM02: TDataModule2; begin MyDM02:=TDataModule2.Create(nil); try MyDM02.ClientDataSet1.CommandText:= 'select * from employee'; MyDM02.ClientDataSet1.Open; result:=MyDM02.ClientDataSet1.Data; //就是此行要傳回資料給rs,但不成功, 我用DataSetTableProducer1.content也不行 MyDM02.ClientDataSet1.Close; finally MyDM02.Free; end; end; 我要怎麼作才能完成以上的目的,若有別的方法也是否能 告知?不勝感激