来源:远方网络 | 2005-12-30 13:21:47 | (有2347人读过)
众所周知,asp技术是我们在以internet/intranet为平台的web程序的主要技术,在asp应用程序中我们一般使用vbscripts和javascripts两种脚本语言。但是脚本语言是一种非编译的语言,其所开发的web程序存在先天的安全性、执行效率扩张性方面的问题,因此我们一般在开发web系统时用高级语言编写asp执行体,然后用脚本语言作为连接代码去调用asp执行体执行存取。在这方面由于asp技术是微软推出的,因此我们一般利用vb或vc,那么delphi程序员又如何实现呢? 在这方面笔者最近通过inrpisre的资料,实现了在delphi环境中实现asp技术的web编程,现以一个介绍如下:
1、在delphi环境中建立一个新的acdivex dll项目project1,然后通过delphi的activeserverobject建立一个asp对象,在他的coclassname中填入所建立对象的名字myaspobject.
2、通过typelibrary为刚建立的myaspobject对象建立一个将要被脚本语言调用的方法myasprequest.
3、由于刚才所建立的asp对象是从taspobject继承的,应此我们在方法建立中可以直接使用asp对象,现在为我们建立的asp对象填写代码如下:
produce tmyaspobject.myasprequest;
begin
repsonse.write(
您的姓名是:);
repsonse.write(request.form.itemname);
repsonse.write();//从所要建立的网页中读出用户名//
repsonse.write(
您的工作是:);
repsonse.write(request.form.itemwork);
repsonse.write();//从所要建立的网页中读出用户工作//
repsonse.write(
您用的开发工具:);
repsonse.write(delphi);
repsonse.write(c++ builder);//判断用户所用的开发工具//
repsonse.write();
repsonse.write(
您的身份:);
repsonse.write(request.form.itemidentity);
repsonse.write();//读出用户的身份//
end;
4、对程序进行编译并在delphi中进行注册为pmyaspobject.dll文件。
5、编写用于连接的asp脚本语言文件myasp.asp你填的内容如下
6、建立用于显示的网页myhtm.htm请选择
姓名:
工作:
开发工具:delphi
c++ builder
您的身份:
学生技术人员
7、然后把myhtm.htm和myasp.asp放在个人的web服务器中的shd目录下即可浏览测试。
|