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

2019-11-18 18:49:52

字體：大中小

供稿：網(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的active server object建立一個(gè)asp對(duì)象，在他的coclassname中填入所建立對(duì)象的名字myaspobject.

　　2、通過(guò)type library為剛建立的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('<p>您的姓名是:');

　　 repsonse.write(request.form.item['name']）；

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

　　 repsonse.write('<p>您的工作是:');

　　 repsonse.write(request.form.item['work']）；

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

　　 repsonse.write('<p>您用的開(kāi)發(fā)工具:');

　　 if(request.form.item['delphi'].count>0)

　　 repsonse.write('delphi');

　　 if(request.form.item['bcb'].count>0)

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

　　 repsonse.write('</p>');

　　 repsonse.write('<p>您的身份:');

　　 repsonse.write(request.form.item['identity'])；

　　 repsonse.write('</p>');//讀出用戶(hù)的身份//

　　 end;

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

　　5、編寫(xiě)用于連接的asp腳本語(yǔ)言文件myasp.asp

　　<%@language=jscript %>

　　<html>

　　<body>

　　<title>這是一個(gè)用delphi建立的asp對(duì)象</title>

　　<center><h3>你填的內(nèi)容如下</h3></center>

　　<%

　　 var myasp;

　　 myasp=server.createobject(pmyaspobject.myaspobject);

　　 //生成連接對(duì)象//

　　 myasp.myasprequest();//調(diào)用自己定義的asp對(duì)象//

　　%>

　　</body>

　　</html>

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

　　<form action='localhost/shd/myasp.asp' method='post">

　　<h1 align='center">請(qǐng)選擇</h1>

　　<p>姓名：<input type='text' size=33 name="name"></p>

　　<p>工作：<input type='text' size=33 name="work"></p>

　　<p>開(kāi)發(fā)工具：<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>學(xué)生</option>

　　 <option>技術(shù)人員</option>

　　 </select></p>

　　<p><input type="submit" name="mysubmit" value="遞交">

　　</form>

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

上一篇：在Delphi中處理數(shù)據(jù)庫(kù)日期型字段的顯示與輸入

下一篇：用Delphi實(shí)現(xiàn)BP機(jī)、手機(jī)短訊

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注