VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 数据库 > VF教程 >
  • vfp教程之快速发布VFP数据库

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〉
相关教程