如何在Delphi中實現ASP編程

　　眾所周知，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的Active Server Object建立一個ASP對象，在他的coClassName中填入所建立對象的名字MyAspObject.

　　2、通過type Library為剛建立的MyAspObject對象建立一個將要被腳本語言調用的方法MyAspRequest.

　　3、由于剛才所建立的ASP對象是從TASPObject繼承的，應此我們在方法建立中可以直接使用asp對象，現在為我們建立的Asp對象填寫代碼如下：

　　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目錄下即可瀏覽測試。

　　

網頁效果圖

ASP效果圖

　　

　　以上程序的pwin98 ME和delphi5.0 Enterprise中實現。