如何在Delphi中实现ASP编程

2016-01-29 14:14 5 1 收藏

如何在Delphi中实现ASP编程,如何在Delphi中实现ASP编程

【 tulaoshi.com - Delphi 】

　众所周知，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'].count0)

　　 repsonse.write('delphi');

　　 if(request.form.item['bcb'].count0)

　　 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中实现。

来源:https://www.tulaoshi.com/n/20160129/1492807.html

上一篇：《全民水浒》蓝卡晕杀阵解析超强控制加爆发
下一篇：打造简单的PHP&MYSQL留言板

看过《如何在Delphi中实现ASP编程》的人还看了以下文章更多>>

delphi编程实现在Word插入字符

标签：编程语言网络编程

现在的文档很多都是用Word软件来编辑的，但如果你想在程序中把某些字符插入到Word文档中，那么下面的程序帮你忙： procedure TForm1.Button1Click(Sender: Tobject);var MSWord: Variant;beginMSWord := CreateOLEObject(Word.Application);//连接WordMSWord.Documents.Open(FileName:=d:\test.doc, ReadOnly:=True);//打开外部Word...

如何在Delphi中制作“动态选单”

标签： Delphi

所谓动态选单是指选单项随着程序的操作变化而变化。现在，我们用Delphi来实现这一功能，具体步骤如下： 1．首先，确定动态选单的数据来源，即要确定动态选单标题是来自Windows的系统注册表，还是来自一个数据库，或者是来自一个子目录，主要由程序的功能而定。这里假设主窗口名为MainForm，上面已有主选单，其动态选单...

delphi编程实现播放背景音乐

标签：编程语言网络编程

如果要做一些比较艺术化的程序时，你会想到插入背景音乐，这时你是否使用了TMediaPlayer控件来播放音乐呢？其实我们大可放弃该方法，直接使用WINDOWS为我们提供的API函数来播放音乐，方法如下：首先需要在uses部分加入mmsystem，接着写入下列语句，其中e:\1.mid为播放的文件，NN为自定义名称标志 procedure TForm1.Button1Click(Sen...

如何在delphi5中实现对word文档页眉的设置？

标签：编程语言网络编程

我这有一个对当前页面的设置代码 var mmm,nnn,aaa:OleVariant; begin mmm:=wdLine; nnn:=1; aaa:=wdFieldPage; WordApp.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageHeader ; ...

用ASP编程实现快速查找

标签： ASP

有一天我突发奇想，要是我每到一个网站，那里都能立刻调出我需要看的信息，那岂非美妙得很。接下来我想更深入地考虑这个问题，坐到椅子上拿一支铅笔，却不知道自己写什么。如此一来，我还是得着手对付代码它们。 我的朋友开了一个小型站点，原本是我设计的。这是个检验我想法的好平台。所以我写出代码，上传了文件...

查看更多精彩>>