用Delphi编写ASP的ActiveX服务器组件的问题(50分)

先请各位看看一下文章：（从长沙之家来的）
　　ASP中的ActiveX服务器组件为标准的Automation ActiveX组件，只要使
用由ASP提供的接口和遵守ASP有关规则便可。Delphi 4.0作为一种高效、快
速、强大的开发语言，为开发COM组件提供了很强的功能，但不知道什么原因，
很少有人运用Delphi编写ASP中的ActiveX服务器组件。本文意在通过举例介绍
如何运用Delphi编写ASP中的ActiveX 组件。
　　通过以下步骤创建ASP中的ActiveX 服务器组件：
　　1.创建一个ActiveX library工程
　　打开Delphi编辑器，选择选单中的File/New，在New Item中选择 the
ActiveX 项中的ActiveX Library选项，Delphi将自动生成以下代码：
　　library Project1

　　uses
　　 ComServ

　　exports
　　 DllGetClassObject,
　　 DllCanUnloadNow,
　　 DllRegisterServer,
　　 DllUnregisterServer

　　{＄R ＊.RES}
　　begin
　　end.
　　这是Delphi编译COM组件时必须的函数，DllGetClassObject函数负责将输
入调用从COM库转换到相应的类工厂中；DllCanUnloadNow函数是通知OLE引擎
如果没有程序引用将自动释放内存；DllRegisterServer与
DllUnregisterServer函数用来登记COM服务器。总之Delphi已经为你做好了
一切辅助工作，你只需用心编写主要功能模块便可。
　　2.在该工程中新增一个automation对象
　　选择Delphi编辑器选单中的File/New，在
New Item中选择ActiveX 项中的Automation Object选项，系统将显示the
Automation Object导向，在物件名称中输入TestObject和选择Multiple
Instance选项,按OK键后系统将弹出类型编辑器，其实这时系统已经生成了两个
单元（Project1—TLB.pas与unit1.pas），unit1.pas中有如下代码：
　　initialization
　　 TAutoObjectFactory.Create(ComServer, TTestObject,
　　Class—TestObject, ciMultiInstance)

　　end.
　　这是告诉类工厂物件执行的方式与位置。
　　3.增加组件中的属性与方法
　　在类型编辑器中单击工具栏中的方法按钮增加以下方法：
　　OnStartPage(unk:IUnknown)
　　OnEndPage.
　　Test.
　　注意在增加方法OnStartPage时，在Parameters项中增加参数unk，类型为
Iunknown，增加三项方法后，在类型编辑器中按Refrash键，Unit1.pas中将会
出现三个函数，在每个函数下写如下程序：
　　procedure Ttestobject.OnStartPage(unk: IUnknown)

　　 begin
　　 m_scriptContext := unk as IScriptingContext

　　 end

　　procedure Ttestobject.OnEndPage

　　 begin
　　 m_scriptContext := nil

　　end

　　procedure Ttestobject.test

　　begin
　　 m—scriptContext.Response.Write(′ActiveX Test For Delphi′)

　　end

　　当IIS激活一个ActiveX组件时它会自动寻找组件中是否有OnStartPage与
OnEndPage方法，如果存在，服务器将在开启本ASP页时自动执行OnStartPage
方法和当本ASP页所有脚本执行完毕后自动执行OnEndPage方法。
　　其中mscriptContext 与IScriptingContext是ASP中负责将ASP转换成
HTML格式必不可少的变量与类型，因此必须将Unit1.pas文件中的Uses加上
ASPTypeLibrary—TLB变成
　　unit unit1

　　interface
　　 uses ComObj, ActiveX, Delphi_TLB, ASPTypeLibrary—TLB, SysUtils

　　ASPTypeLibrary—TLB.Pas文件可以通过类型库引入取得，打开Delphi编
辑器中的选单Project/import type library 项，选择the Microsoft
Active Server Pages Type library，按OK，Delphi便会自动生成一个
ASPTypeLibrary_TLB.Pas。
　　4.编译与注册
　　选择Delphi编辑器中的选单Project/Compile 项编译文件，然后选择
Run/Register ActiveX Server对Project1.dll文件注册。
　　5.在ASP文件中运用Project1.dll
　　在ASP文件中加入以下文字：
　　 Set TestASP = Server.CreateObject(Project1.TestObject)
　　 TestASP.Test
　　通过上面的例子，我们可以发现用Delphi编写ASP中的ActiveX服务器组件
是十分容易的，加上Delphi丰富的组件与强大的功能，使我们相信运用Delphi
编写特殊的ASP服务器组件，如数据库、服务器上各种信息与资源访问等，都会
十分方便。

问题如下：
1、编译时说m_scriptContext 没说明。
2、如果我想在上边加一个form，当中有数据库控件等行吗？

1. 要在变量声明中加:
m_scriptContext: IScriptingContext;
2. 不能加form, 但可以加datamodule.

form恐怕不行, datamoudal可不可以?

如果想作成active form的形式不行吗？
哪这有何用？

非也非也, 这当然作用非常非常大了
比如asp不支持的功能, 可以通过这个实现, 例如:
生成binary文件, 而asp不支持, 就可以通过oleserver实现了.
关于activeform, 实在是低层次应用, 实在没办法才使用, 安全性没法说:-(

to cytown:太笨，不明白。
现我有一应用，打算用asp做，但我一直用delphi的，asp不熟。
此应用很简单，就是在sql server上有一个数据库，做一次查询得一个
表格，再往下连结得其中的某个记录详细内容，就有点象大富翁的样子，
这样的应用什么地方用上delphi，是不是数据库连结的时候用？请大虾
指点迷津！
谢谢！

这么简单的查询还是用ASP吧,几句话搞定.

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "dsn=yourODBCname"
Set oRs = oConn.Execute("SELECT * FROM yourtable")
Response.Write "<table>"
do while not oRs.eof
Response.Write "<tr>"
Response.Write "<td><%=oRs("yourfieldname")%></td>"
Response.Write "</tr>"
oRs.movenext
loop
Response.Write "</table>"
ors.close
oconn.close

讨厌!

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "dsn=yourODBCname"
Set oRs = oConn.Execute("SELECT * FROM yourtable")
Response.Write "＜table＞"
do while not oRs.eof
Response.Write "＜tr＞"
Response.Write "＜td＞＜%=oRs("yourfieldname")%＞＜/td＞"
Response.Write "＜/tr＞"
oRs.movenext
loop
Response.Write "＜/table＞"
ors.close
oconn.close

你好象提的问题不是这个?
其实delphi做oleserver只是asp的互补, 可以完成一些asp不具有的功能.
ado连结查询也是一种oleserver

明白啦！其实我的问题用asp就可以解决了，还没有复杂到用delphi的程度。
因为一直用delphi的，脑袋转不过弯的。
顺便问个简单的asp问题：
cakk的源码真好，我还想加上分页的功能，分页完后再连进详细记录内容，
就象大富翁的一样，如何做呢？

大富翁的分页是这样实现的:
Set oRs = oConn.Execute("SELECT * FROM yourtable")
之后,用oRs.recordcount得到记录数,然后除以每页规定的行数,比如20,
显示记录之前,用一个for to循环跳过(当前页号-1)*每页行数.
其实yysun的办法并不是最好,不过最简单.

<font color=red>最后忠告: 不要用ASP来管理重要数据</font>

to cakk:
等了半天您老终于出现了，这两天上不来的说！
源码我发给您，请您帮忙查个错！
错误就是点“下一页”时，本来里边有数据的，却显示无数据拉，
我的数据暂时不重要，呵呵！
谢谢

我做了一个论坛，可以实顼分页显示，ASP的，要的话，给我一封信吧！

to hntangwei:要！！！！

mail: peterwangzy@263.net

呵呵, cakk没用过不要瞎说, 用这种方式得到的recordset不能得到recordcount.

我不是举一个例子嘛! yysun的源代码是这样写的没错.

Set oRs = Server.CreateObject("ADODB.RecordSet")
oRs.Open "SELECT * FROM yourtable",oRs,1
就可以使用RecordCount了.
不过要分页有更好的方法
oRs.PageSize=iWhatUNeedInOnePage
iTotalPage=oRs.PageCount

to cytown: 你写的是对的,不过:
oRs.Open "SELECT * FROM yourtable",oRs,1
^^^^改成Conn

to peterwang: 我昨天给你回信了,不知收到没有?

to cakk:
to hntangwei:
均收到，谢谢！正在尝试，还会有问题请教大虾们的，等我全部完工就给分！