有谁能告诉我一个用Delphi开发ASP的ActiveX组件实例，希望是自己编的而且要很简单谢谢

Question

new-->active library，为com server的dll取个名字（工程名），如prjTest。
new-->active server control
取个名字（com对象名），如IclsTest
在出现的type library 中点接口IclsTest，增加一个名为hello的method，
把hello这个method的parameter取个名，如n，类型为integer。
好了，更新注册表，更新实现，转到代码编辑中，
找到clsTest实现的地方，找到hello过程所在地。
procedure clsTest.Hello(n:sysint);safecall;
var
 i:integer;
begin
 //从此，可以使用asp脚本了
 for i:=1 to n do
  response.write('hello,world.');
end;