如何在DELPHI写基于ASP的activex或其他组件？很简单，给个例子即可

Question

我第一次想用，主要是想让我的函数不直接显示在ASP里面，因此要简单封装调用一下，从来没有用过，提示一下，谢谢，有例子更好

Answer 1

如果是客户端使用的话
file--new--others--activex--activeForm
如果是服务器端使用的话
file--new--others--activex--activex library

Answer 2

1、在delphi环境中建立一个新的acdiveX DLL项目Project1，然后通过delphi的Active Server Object建立一个ASP对象，在他的coClassName中填入所建立对象的名字MyAspObject. 　　2、通过type Library为刚建立的MyAspObject对象建立一个将要被脚本语言调用的方法MyAspRequest. 　　3、由于刚才所建立的ASP对象是从TASPObject继承的，应此我们在方法建立中可以直接使用asp对象，现在为我们建立的Asp对象填写代码如下： 
　　produce TMyAspObject.MyAspRequest; 　　begin 　　 repsonse1.write('〈p〉您的姓名是:');　　 repsonse1.write(request.form.item['Name']）；” 　　 repsonse1.write('〈/p〉');//从所要建立的网页中读出用户名// 　　 repsonse1.write('〈p〉您的工作是:'); 　　 repsonse1.write(request.form.item['work']）； 　　 repsonse1.write('〈/p〉');//从所要建立的网页中读出用户工作// 　　 repsonse1.write('〈p〉您用的开发工具:'); 　　 if(request.form.item['delphi'].count>0) 　　 repsonse1.write('delphi'); 　　 if(request.form.item['bcb'].count>0) 　　 repsonse1.write('c++ Builder');//判断用户所用的开发工具// 　　 repsonse1.write('〈/p〉'); 　　 repsonse1.write('〈p〉您的身份:'); 　　 repsonse1.write(request.form.item['Identity'])； 　　 repsonse1.write('〈/p〉');//读出用户的身份// 　　 end; 　　4、对程序进行编译并在delphi中进行注册为PMyAspObject.dll文件。 　　5、编写用于连接的ASP脚本语言文件MyAsp.asp 　　〈%@language=jscript %〉 　　〈HTML〉 　　〈BODY〉 　　〈title〉这是一个用delphi建立的ASP对象〈/title〉 　　〈center〉
你填的内容如下
〈/center〉 　　〈% 〈br〉 
　　 var myasp; 　　 myasp=server.createobject(PMyAspObject.MyAspObject); 　　 //生成连接对象// 　　 myasp.MyAspRequest();//调用自己定义的ASP对象// 　　%〉 　　〈/body〉 　　〈/HTML〉 　　6、建立用于显示的网页Myhtm.htm 　　〈form action='localHost/shd/myasp.asp' method='post"〉 　　〈h1 align='center"〉请选择〈/h1〉 　　〈P〉姓名：〈input type='text' size=33 name="name"〉〈/p〉 　　〈P〉工作：〈input type='text' size=33 name="work"〉〈/p〉 　　〈P〉开发工具：〈input type='checkbox' name='delphi' value="on"〉delphi 　　〈input type='checkbox'name='bcb'value="on"〉c++ Builder〈/p〉 　　〈p〉您的身份:〈/p〉 　　〈p〉〈select name="identity" size="1"〉 　　 〈option〉学生〈/option〉 　　 〈option〉技术人员〈/option〉 　　 〈/select〉〈/p〉 　　〈p〉〈input type="submit" name="mysubmit" value="递交"〉 　　〈/form〉 　　7、然后把Myhtm.htm和myasp.asp放在个人的web服务器中的shd目录下即可浏览测试。 
由于代码与脚本代码一样，造成冲突，请在编写Delphi代码时Repsonse1更改为Repsonse，把〈更改为<,〉更改为>