如何在Delphi中實(shí)現(xiàn)ASP編程

2010-08-28 10:45:39來源:西部e網(wǎng)作者:

    眾所周知,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目錄下即可瀏覽測試。
關(guān)鍵詞:ASP

贊助商鏈接: