VFP与ASP相结合开发Web数据库应用

1.VFP与Web数据库应用

Foxpro作为最成功的公共数据库，简单易学，用户量大。随着VFP 5.0的推出，VFP已经成为一个强大的企业开发工具。它不仅可以开发文件/服务器(F/S)数据库应用程序，也可以开发C/S应用程序。此时VFP是前端工具，后端可以是SQL Server、Sybase等数据库引擎。借助远程视图和SQL直通功能，VFP可以像处理本地数据一样轻松地处理服务器端数据。-今天，随着Internet/Intranet的影响越来越大，Web数据库应用程序的开发已经成为一项引人注目的技术。Web应用程序具有天然的多层C/S结构。在这种结构中，客户端仅由浏览器组成，几乎不存在软件维护和升级的问题。来自客户端的请求被发送到web服务器。我们只需要开发WebServer软件，处理请求，与数据库服务器交互，并将结果返回给客户端。系统的维护和升级非常方便。只要允许，任何客户都可以通过互联网或内部网访问我们的数据。

- VFP完全有能力开发网络数据库应用程序。然而有趣的是，这一次VFP被推到了后台，在数据库服务器上处理数据访问和业务逻辑。数据库和WebServer可以运行在同一个网络服务器上，也可以运行在由高速通道连接的两个网络服务器上(如NT Server)，这样网络传输的瓶颈就不复存在了。并且借助NTServer的安全管理，客户不能直接接触VFP数据库，而是通过WebServer访问数据，这大大提高了VFP数据库的安全特性，而这两个被普遍认为是VFP的重要弱点。

2.2的组件技术。ASP(动态服务器页面)和VFP

- Web数据库应用可以通过CGI、ISAPI、IDC、ASP等实现。其中ASP是最强大的，其中可以混合使用HTML、DHTML、ActiveX、VBSsript或JavaSript，尤其可以使用服务器端组件。这个服务器端组件可以用任何支持COM技术的语言编写，如VFP、VB、VC++、Delphi等。，实现用户特定的业务逻辑。如果不出意外，ASP将成为主流技术。目前，微软的IIS (NT Server)和PWS(Personel Web Server，Win95)都支持ASP。-在传统的F/S或C/S应用中，组件是一种面向对象的编程风格。你可以根据自己的喜好采用，也可以不采用。但是，在ASP中使用VFP，组件(OLE服务器DLL)是您的选择。您的处理应该封装在一个或多个组件中。

3.使用的环境和工具

-对于ASP，需要WinNT4.0(ServicePack3)、IIS3.0(WinNT自带)和Visual InterDev1.0。或者:Win95，pws(Visual InterDev1.0中提供)，Visual interdev 1.0。-为了使IIS或PWS支持ASP，在安装Visual Interdev时，必须先在服务器上选择服务器组件:Frontpage服务器扩展和Active Server Pages，然后在开发服务器上安装客户端组件:Visual InterDev客户端。您也可以将这些安装在同一台机器上，这样您就可以轻松地在单台机器上进行编程和调试。

4.实施4。VFP组件

-在VFP启动一个项目，命名为Classes，然后在这个项目中创建一个程序，命名为Classdef.prg它定义了一个OneRecord类，它的作用是逐个显示一个数据库，具有前进、后退和定位功能。使用DBF文件d:\vfpweb\data\booksno.dbf，结构为
field _ name field _ type field _ len
bookno C16
bookname c50
author c12
editor。

在Classdef.prg中键入生成代码:
将class onerecord定义为自定义ole public
mcdatapath = " "

函数get data path
return(this . MC data path)

函数getcurrentno
返回recno()

函数init
set exclu off
set century on
set date to ansi
return

函数set data path
lparameter cpath
if type(" cpath ")< > " C "
return
endif
this . MC data path = cpath
set defauu to(cpath)
如果不使用(" books no ")
select 0
use books no
else
select books no
endif
return

函数movenext
if . not . eof()
skip
endif
return

函数moveprevious
if . not . BOF()
skip-1
endif
return