ASP的基于服务器端的脚本设计思路和ADO的方便快捷，使用户在开发Web数据库时省力不少。ASP最常用的开发环境是InterDev，但InterDev比较昂贵，使用起来也比较复杂。也许我们只是想将原有的Xbase数据放到公司的Web服务器上，方便公司外部客户的查询，内部依然使用基于VFP的应用程序。下面介绍一种通过Windows95/98

＋PWS＋Access 2000快速实现基于VFP数据库查询的Web页面的方法。该方法同样适用于NT＋IIS环境。

1.?添加系统DSN

使用ASP技术的Web页能否存取某一种数据库，关键在于ODBC驱动程序，只要服务器安装了相应的ODBC驱动，你的主页就可以很方便地读取各种数据库，如Access、Excel、Foxpro、Paradox、SQL Server、Oracle等。ODBC的参数设置可以在脚本程序中直接指定，也可以把ODBC的参数设置在系统的DSN（Date Source Name）中，在脚本程序中以DSN启动数据库。使用DSN通过ODBC访问数据库的优点是，当我们改变数据库时，只要重新设置系统DSN，不需要修改程序中的ODBC参数（注意：只有系统DSN对所有用户都可见，而用户DSN和文件DSN，分别只对当前用户和安装了相同驱动程序的用户可见，不要设错了！）。添加系统DSN的步骤如下：

步骤一：经由“控制面板”→“ODBC数据源（32位）”→“系统DNS”标签，单击“添加...”按钮，出现“创建新数据源”对话框。

步骤二：从上述对话框的列表框选择“Microsoft FoxPro VFP Driver(?.dbf)”项（如果没有此项可以从Office 2000或Visual FoxPro中安装，Office 2000默认并不安装VFP的ODBC），单击“完成”按钮，出现“ODBC Visual FoxPro Setup”对话框。

步骤三：在“Date Source Name”编辑框中填入数据源的名字，例如：“School”。选择自己的VFP数据库类型，可以选择DBC库或自由表的目录。通过“Browse...”按钮选择数据库或者自由表的目录。打开“Options...>>”，从“Collating sequence”下拉列表中选择“PinYin”，使你的中文字串按拼音排序。单击“OK”按钮，完成添加DSN。

2.?在Access 2000上建立链接表

添加了VFP的DSN后，就可以在Access 2000内直接打开VFP数据库了。

步骤一：启动Access 2000选择新建“空Access数据库”，随便起一个名字，保存在任意位置，因为Access数据库仅为一个过渡，用过后就可以删除掉。

步骤二：在主窗口的快捷选单上选择“链接表...”项（你也可以用“导入...”，但当VFP数据库较大时，导入Access的数据可是很占地儿的），出现“链接”对话框，从“文件类型”下拉列表中选择“ODBC Database ()”。屏幕出现“选定数据源”对话框。

步骤三：选择“机器数据源”标签，从列表中选择你在前面定义的DSN，如School，单击“确定”按钮。

步骤四：从出现的导入对象对话框中，选择你要提供Web页查询的VFP数据库中的数据表和视图，单击“确定”后，随便指定“惟一的记录标识符”后“确定”。Access就和VFP数据库链接上了。我们现在就可以双击链接图标，浏览VFP数据了。

3.?将VFP的查询移植到Access查询视图

如果想将VFP的查询在Web上实现，那就要进行这一步。这一步其实很简单，就是将VFP查询的SQL语句复制下来，然后粘贴到Access的查询对象上。需要注意的是，要将VFP的SQL语句中的分号和数据库名在新建的Access查询的SQL编辑器中删除。最后别忘了在Access中运行一下你的查询，看看是否和VFP中的一致。不过我还是建议你将VFP查询改为本地视图，这样就省去了日后维护ASP脚本的SQL了。

4.?用Access生成ASP页面

步骤一：选中一个链接表或Access查询，右击鼠标从快捷选单中选择“导出...”项。

步骤二：从“导出”对话框中的“保存类型”下拉列表中选择“Microsoft Active Server”项。可以在此为你的ASP页面起一个名字（如xf）。单击“保存”按钮。

步骤三：在出现的“Microsoft Active Server页输出选项”对话框中选择HTML模板（也可不选），在“数据源名称”编辑框中填入在第一部分设定的DSN，如School。单击“确定”按钮，完成ASP页的生成。

5.?添加分页浏览代码

我们生成的ASP页面是以.asp为扩展名，由于ASP是基于服务器端的脚本，所以必须将其发布到Web服务器上,才可以在浏览器中看到效果。

下面的脚本提供了分页显示查询结果功能，它是利用ADO采用带页码参数的方法控制翻页，这样的好处是可以方便地直接指定要浏览的页面。同时，只要VFP的本地视图名称不变，视图中的SQL 任意变化均不需维护ASP页面。

<％

′将自动生成的ASP文件，由<TABLE...>开始全部删除，改用下列程序段。

rs.PageSize = 5

Page = CLng(Request(″Page″))

If Page < 1 Then Page = 1

If Page > rs.PageCount Then Page = rs.PageCount

Response.Write ″<TABLE ALIGN=CENTER BORDER=1> <CAPTION><B>分页显示VFP数据库</B></CAPTION>″

Response.Write ″<TR BGCOLOR=＃ffff00>″

For i=0 to rs.Fields.Count－1

Response.WRITE ″<TD>″ ＆ rs.Fields(i).Name ＆ ″</TD>″

Next

Response.Write ″</TR>″

rs.AbsolutePage = Page

For iPage = 1 To rs.PageSize

Response.Write ″<TR>″

For i=0 to rs.Fields.Count－1

Response.WRITE ″<TD>″ ＆ rs.Fields(i).Value ＆ ″</TD>″

Next

Response.Write ″</TR>″

rs.MoveNext

If rs.EOF Then Exit For

Next

Response.Write ″</TABLE>″

％>

<form action=″PageBrow.asp″ method=″GET″id=form1 name=form1>

<font color=″＃008000″> 共<％=rs.PageCount％>页

您正在浏览第<input type=″text″ size=″2″ name=″Page″ value=<％=Page％> >页

</font>

<％

If Page <> 1 Then

Response.Write ″<A HREF=xf.asp?Page=1><首页></A> ″

Response.Write ″<A HREF=xf.asp?Page=″ ＆ (Page－1) ＆ ″><前页></A> ″

Else Response.Write ″<首页> <前页>″

End If

If Page <> rs.PageCount Then

Response.Write ″<A HREF=xf.asp?Page=″ ＆ (Page＋1) ＆ ″><后页></A>″

Response.Write ″<A HREF=xf.asp?Page=″＆ rs.PageCount ＆ ″><尾页></A>″

Else Response.Write ″<后页> <尾页>″

End If

％>

</form></body></html>