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

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

    眾所周知,asp技術(shù)是我們?cè)谝詉nternet/intranet為平臺(tái)的web程序的主要技術(shù),在asp應(yīng)用程序中我們一般使用vbscripts和javascripts兩種腳本語(yǔ)言。但是腳本語(yǔ)言是一種非編譯的語(yǔ)言,其所開(kāi)發(fā)的web程序存在先天的安全性、執(zhí)行效率擴(kuò)張性方面的問(wèn)題,因此我們一般在開(kāi)發(fā)web系統(tǒng)時(shí)用高級(jí)語(yǔ)言編寫(xiě)asp執(zhí)行體,然后用腳本語(yǔ)言作為連接代碼去調(diào)用asp執(zhí)行體執(zhí)行存取。在這方面由于asp技術(shù)是微軟推出的,因此我們一般利用vb或vc,那么delphi程序員又如何實(shí)現(xiàn)呢?

  在這方面筆者最近通過(guò)inrpisre的資料,實(shí)現(xiàn)了在delphi環(huán)境中實(shí)現(xiàn)asp技術(shù)的web編程,現(xiàn)以一個(gè)介紹如下:

  1、在delphi環(huán)境中建立一個(gè)新的acdivex dll項(xiàng)目project1,然后通過(guò)delphi的activeserverobject建立一個(gè)asp對(duì)象,在他的coclassname中填入所建立對(duì)象的名字myaspobject.

  2、通過(guò)typelibrary為剛建立的myaspobject對(duì)象建立一個(gè)將要被腳本語(yǔ)言調(diào)用的方法myasprequest.

  3、由于剛才所建立的asp對(duì)象是從taspobject繼承的,應(yīng)此我們?cè)诜椒ń⒅锌梢灾苯邮褂胊sp對(duì)象,現(xiàn)在為我們建立的asp對(duì)象填寫(xiě)代碼如下:

  produce tmyaspobject.myasprequest;

  begin

  repsonse.write(

  您的姓名是:);

  repsonse.write(request.form.itemname);

  repsonse.write();//從所要建立的網(wǎng)頁(yè)中讀出用戶名//

  repsonse.write(

  您的工作是:);

  repsonse.write(request.form.itemwork);

  repsonse.write();//從所要建立的網(wǎng)頁(yè)中讀出用戶工作//

  repsonse.write(

  您用的開(kāi)發(fā)工具:);

  repsonse.write(delphi);

  repsonse.write(c++ builder);//判斷用戶所用的開(kāi)發(fā)工具//

  repsonse.write();

  repsonse.write(

  您的身份:);

  repsonse.write(request.form.itemidentity);

  repsonse.write();//讀出用戶的身份//

  end;

  4、對(duì)程序進(jìn)行編譯并在delphi中進(jìn)行注冊(cè)為pmyaspobject.dll文件。

  5、編寫(xiě)用于連接的asp腳本語(yǔ)言文件myasp.asp你填的內(nèi)容如下

  6、建立用于顯示的網(wǎng)頁(yè)myhtm.htm請(qǐng)選擇

  姓名:

  工作:

  開(kāi)發(fā)工具:delphi

  c++ builder

  您的身份:

  學(xué)生技術(shù)人員

  7、然后把myhtm.htm和myasp.asp放在個(gè)人的web服務(wù)器中的shd目錄下即可瀏覽測(cè)試。
關(guān)鍵詞:ASP

贊助商鏈接: