produce TMyAspObject.MyAspRequest;
begin
repsonse.write('<p>您的姓名是:');
repsonse.write(request.form.item['Name']）；
repsonse.write('</p>');//从所要建立的网页中读出用户名//
repsonse.write('<p>您的工作是:');
repsonse.write(request.form.item['work']）；
repsonse.write('</p>');//从所要建立的网页中读出用户工作//
repsonse.write('<p>您用的开发工具:');
if(request.form.item['delphi'].count>0)
repsonse.write('delphi');
if(request.form.item['bcb'].count>0)
repsonse.write('c++ Builder');//判断用户所用的开发工具//
repsonse.write('</p>');
repsonse.write('<p>您的身份:');
repsonse.write(request.form.item['Identity'])；
repsonse.write('</p>');//读出用户的身份//
end;
4、对程序进行编译并在delphi中进行注册为PMyAspObject.dll文件。
5、编写用于连接的ASP脚本语言文件MyAsp.asp
<%@language=jscript %>
<HTML>
<BODY>
<title>这是一个用delphi建立的ASP对象</title>
<center><h3>你填的内容如下</h3></center>
<%
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目录下即可浏览测试。
