在Delphi中实现ASP编程

原创 2001年08月02日 17:01:00
在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目录下即可浏览测试。


如何在Delphi中实现ASP编程

如何在Delphi中实现ASP编程   众所周知,asp技术是我们在以internet/intranet为平台的web程序的主要技术,在asp应用程序中我们一般使用vbscripts和javascri...
  • zou5655
  • zou5655
  • 2001年07月24日 15:17
  • 527

如何在Delphi中实现ASP编程

2000年12月11日 09:31:00 (作者:孙航东 2000年12月07日 10:01)  众所周知,ASP技术是我们在以internet/intranet为平台的web程序的主要技术,...
  • softart
  • softart
  • 2007年10月27日 07:44
  • 207

使用Raize实现Form嵌入PageControl中

自己写的demo, 备忘! unit Unit6;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Co...
  • SmallHand
  • SmallHand
  • 2009年09月11日 12:01
  • 4681

真正的Delphi面向对象编程(一)

一.实现商业对象 封装了商业规则的类是真正面向对象编程的基础这篇文章我们会涉及程序设计的各个方面,并对质疑一些我们写Delphi程序的惯用方式。这些设计方法背后的基础概念是封装:设计一组清楚定义接口(...
  • haydnliu
  • haydnliu
  • 2004年01月06日 22:12
  • 2895

asp中如何实现网页计数器

     在ASP中,如何实现网页的计数器呢?其实奥妙全在于站点根目录下的GLOBAL.ASA文件下    大家知道,在ASP脚本语言中,有两个对象比较重要,一个是应用程序对象APPLICATION,...
  • ct_hero0902
  • ct_hero0902
  • 2007年04月10日 17:01
  • 2296

delphi不同计算机程序间通信用TServerSocket实现

在Delphi中,用ServerSocket与ClientSocket组件,建立TCP/IP通信非常容易。 Delphi安装 Tclientsocket, Tserversocket控 添加方法:...
  • Michael__mai
  • Michael__mai
  • 2016年01月13日 00:20
  • 1168

由双缓冲绘图技术谈起到Delphi源码实现

由双缓冲绘图技术谈起到Delphi源码实现(本文原创,转载请申明)xiaoyunsoft@163.com 摘要:双缓冲绘图技术在Delphi中的实现说明:假设读者熟悉VCL 双缓冲绘图也不是什么新技术...
  • sxy_9761
  • sxy_9761
  • 2006年03月08日 17:59
  • 4472

Delphi的学习笔记十五——数据库编程

Delphi7中有许多对数据库操作的组件,他们因数据访问机制的不同而被分成四大类: 1.BDE组件:使用Borland数据库引擎,它最擅长处理Paradox or dBASE表中的数据。但它的配...
  • my98800
  • my98800
  • 2016年05月29日 20:57
  • 440

Delphi中使用TRichEdit或TMemo模仿QQ按Ctrl+Enter发送信息,屏蔽换行

    最近写了一个小的局域网聊天的小程式,在模仿QQ的按Ctrl+Enter发送信息。    刚开始的写法是这样的:添加一个TMemo控件,名称是memoMessage,在它的onKeyDown事件...
  • hanks_gao
  • hanks_gao
  • 2009年01月16日 16:17
  • 1563

Delphi接口的底层实现

Delphi接口的底层实现引言       接口是面向对象程序语言中一个很重要的元素,它被描述为一组服务的集合,对于客户端来说,我们关心的只是提供的服务,而不必关心服务是如何实现的;对于服务端的类来说...
  • linzhengqun
  • linzhengqun
  • 2007年03月04日 16:25
  • 6647
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Delphi中实现ASP编程
举报原因:
原因补充:

(最多只允许输入30个字)