怎样用delphi编写dll让asp调用？(100分)

怎样用delphi编写dll让asp调用？
我见得最多是用VB来集成ASP组件或功能，但用delphi如何产现哩，找了一些资料都讲了一半，没办法，想求救一下！
主要功能如下：
A、集成成ADO联接SQL数据的函数；
B、集成delphi的某个控件功能（如：我用了delphi的一个加密控件，我想将这个控件的加密、解密结果编写一个函数供用asp时使用），即函数返回加密或解密后的字符串；

也就是如可用Delphi编写ASP的ActiveX服务器组件？[]

找到一点资料，供在家学习：
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服务器组件，如数据库、服务器上各种信息与资源访问等，都会十分方便。

最近也在写COM组件，我的一点心得就是，
COM组件与以前写的普通应用程序差不多，区别就是多了接口定义，而接口又可定义在类型库中（当然，也可以不用类型库，只是delphi程序专用的接口），类型库就可以被各种程序语言调用了，也包括你的ASP程序

补充一点，仅当共同探讨。
你在第2步中“在该工程中新增一个automation对象”，这样生成的COM应该是进程外COM,如果你只是封装功能函数，则可在第2步中新增一个com object，这样生成的也是一个DLL,即进程内COM

搞成dll后， 把主要调用的东西，写成接口。这样更加方面调用。

咱不懂啊，领导说要在C/S系统的基础上，再搞个B/S的查询系统，美称：C/S加B/S的综合系统，我以前用过delphi开发过ASP组件(dll),但都无功而返，也就没有再搞了。
我现在想实现的功能是：
1、在DLL中，实现ADO中联接SQL数据库(读指定的INI文件)；
2、将现在的一个delphi的加密控件集成一件，供ASP用（以便登录系统）；
3、集成一个SQL查询、执行的函数；
不知，那位大侠能帮我写这个例子出来，分不够我另开贴子加(我认为分不是很重要，关键有没有人会帮我这个帮了，交个朋友了，先谢了)。

To liuying1129:
这个方面我是菜鸟，一点路都上，有时间的话，帮我搞一个，急啊！交个朋友吧！[]

有没有必要搞那么复杂啊。既然有ASP 直接用ASP 做查询不就完了，应付领导应该没有什么问题。
做什么功能一定要做插件不可，那东西要安装，最好不用。