眾所周知,asp技術(shù)是我們在以internet/intranet為平臺的web程序的主要技術(shù),在asp應(yīng)用程序中我們一般使用vbscripts和javascripts兩種腳本語言。但是腳本語言是一種非編譯的語言,其所開發(fā)的web程序存在先天的安全性、執(zhí)行效率擴(kuò)張性方面的問題,因此我們一般在開發(fā)web系統(tǒng)時用高級語言編寫asp執(zhí)行體,然后用腳本語言作為連接代碼去調(diào)用asp執(zhí)行體執(zhí)行存取。在這方面由于asp技術(shù)是微軟推出的,因此我們一般利用vb或vc,那么delphi程序員又如何實(shí)現(xiàn)呢?
在這方面筆者最近通過inrpisre的資料,實(shí)現(xiàn)了在delphi環(huán)境中實(shí)現(xiàn)asp技術(shù)的web編程,現(xiàn)以一個介紹如下:
1、在delphi環(huán)境中建立一個新的acdivex dll項(xiàng)目project1,然后通過delphi的activeserverobject建立一個asp對象,在他的coclassname中填入所建立對象的名字myaspobject.
2、通過typelibrary為剛建立的myaspobject對象建立一個將要被腳本語言調(diào)用的方法myasprequest.
3、由于剛才所建立的asp對象是從taspobject繼承的,應(yīng)此我們在方法建立中可以直接使用asp對象,現(xiàn)在為我們建立的asp對象填寫代碼如下:
produce tmyaspobject.myasprequest;
begin
repsonse.write(
您的姓名是:);
repsonse.write(request.form.itemname);
repsonse.write();//從所要建立的網(wǎng)頁中讀出用戶名//
repsonse.write(
您的工作是:);
repsonse.write(request.form.itemwork);
repsonse.write();//從所要建立的網(wǎng)頁中讀出用戶工作//
repsonse.write(
您用的開發(fā)工具:);
repsonse.write(delphi);
repsonse.write(c++ builder);//判斷用戶所用的開發(fā)工具//
repsonse.write();
repsonse.write(
您的身份:);
repsonse.write(request.form.itemidentity);
repsonse.write();//讀出用戶的身份//
end;
4、對程序進(jìn)行編譯并在delphi中進(jìn)行注冊為pmyaspobject.dll文件。
5、編寫用于連接的asp腳本語言文件myasp.asp你填的內(nèi)容如下
6、建立用于顯示的網(wǎng)頁myhtm.htm請選擇
姓名:
工作:
開發(fā)工具:delphi
c++ builder
您的身份:
學(xué)生技術(shù)人員
7、然后把myhtm.htm和myasp.asp放在個人的web服務(wù)器中的shd目錄下即可瀏覽測試。