• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用VFP管理网页文件

      作者:何咏明、尹有仁

      随着计算机技术的发展,Internet已经渗透到我们生活的各个方面中,如何管理和维护一个网站中的网页文件,对于网站来说至关重要。

      笔者利用VFP的管理思想,将网站的一个目录树及其下面的所有网页文本保存到库中从而达到维护网页文件的功能,这样当某一个用户无意中删除了网页文件时可以借助于存放在库中的文件加以恢复。

      功能介绍

      利用VFP创建一个表单,在该表单中安排四个命令按钮,

      用VisualFoxpro开发主从结构数据库系统
      VFP编辑框中实现自动更正的方法,Visual FoxPro 9.0更强大了,如何用VFP的dbf进行SQL Server 7.0 的分布式查询,VFP智能感应的二次开发,谈两种数据库内容HTML格式的输出方法,用FoxWeb在网上快速发布你的FOXPRO数据库,在VFP5.0中实现中英文自动切换,在VFP中实现跟变式组合框及椭圆图形菜单,通过编程运行拨号网络连接,VFP中实现在浏览器中运行应用程序方法,为Visual FoxPro应用程序增加文件压缩功能,在VFP中模拟动画,用Visual FoxPro 5.0 设计数据文件结构浏览器,VFP表跟踪实现方法,让VFP程序在浏览器中运行,怎样在Visual FoxPro 中增加与去除网络联接,谈谈VFP和SQL SERVER搭配做C/S系统,卡拉OK字幕着色动态显示,利用Foxpro在网络环境下开发数据库管理软件经验点滴,用Foxpro制作Windows输入法码表
      Visual Foxpro

      如图所示。选择站点目录是直接调用VFP的函数选定一个目录,并将选定的目录保存到一个历史表history_tab(字段:dir_name);保存网页文件则通过编写一个递归调用的遍历目录树的函数thisform.search(cur_directory)来遍历选定的一个目录,将该目录中所需要的网页文件获取到一个表data_asp;恢复网页文件则是直接从表data_asp中恢复所有的网页文件。

      保存选定目录中的网页文件需要借助于递归调用的思想方法来遍历一个目录树,这可以使用数据结构中所谓“深度优先搜索”的算法来完成,表单中的方法程序search(current_dir)就是完成该功能。

      实现代码

      表单中的方法程序及命令按钮代码如下:

      添加的表单方法程序:thisform.search,参数current_dir

      parametercurrent_dir

      locali,cur_dir,tempdir,file1(1,1),extens,ok,file2

      chdir(current_dir)

      =adir(file1,".","AD")&&&&将该目录下的所有文件保存到数组file1中

      cur_dir=curdir()&&&&保存当前目录

      fori=1toalen(file1,1)

      若遇到一个子目录时则进行递归调用

      ifalltrim(file1(i,1))!="."andalltrim(file1(i,1))!=".."and("D"$file1(i,5))

      ifright(rtrim(cur_dir),1)="\"

      tempdir=cur_dir+file1(i,1)

      else

      tempdir=cur_dir+"\"+file1(i,1)

      endif

      thisform.search(tempdir)

      else

      检测是否是网页扩展名

      chdir(cur_dir)&&&&回退到父目录

      ok=.f.&&&&一个文件目录是否为网页文件

      ifat(".",fullpath(file1(i,1)))<>0

      extens=right(fullpath(file1(i,1)),len(fullpath(file1(i,1)))-at(".",fullpath(file1(i,1))))

      docase

      caselower(extens)="asp"

      ok=.t.

      caselower(extens)="htm"

      ok=.t.

      caselower(extens)="html"

      ok=.t.

      caselower(extens)="php"

      ok=.t.

      caselower(extens)="htx"

      ok=1

      caselower(extens)=”js”

      ok=.t.

      caselower(extens)="idc"

      ok=.t.

      caselower(extens)="idx"

      ok=.t.

      endc

      ifok=.t.

      &&&&是网页文件则插入到表data_asp中

      file2=fullpath(file1(i,1))

      insertintodata_aspvalues(file2,"",thisform.cur_directory)

      appememocontentfrom(file2)

      endif

      endif

      endif

      next

      选择站点目录

      thisform.cur_directory=getdir()

      selecthistory_tab

      locateallfordir_name=thisform.cur_directory

      iffound()

      insertintohistory_tabvalues(thisform.cur_directory)

      else

      selectdata_asp

      deleallfordir_name=thisform.cur_directory

      endif

      保存网页文件

      localchoice,defaultdir

      ifalltrim(thisform.cur_directory)==""

      choice=messagebox

      ("你应该选择一个站点目录",0)

      else

      defaultdir=curdir()

      chdir(thisform.cur_directory)

      =thisform.search(thisform.cur_directory)

      chdir(defaultdir)

      endif

      恢复网页文件

      selectdata_asp

      setdeleteon

      gotop

      scan

      copymemocontentto(filename)

      endscan

      return

      *退出

      selectdata_asp

      pack

      selecthistory_tab

      pack

      closeall

      releasethisform

      这里,我们仅实现了文本文件的保存和恢复,如果将通用型字段加入到表中,就可以实现对于图形文件的保存和恢复,那么该程序就更加完善了。

      用VisualFoxpro开发主从结构数据库系统
      VFP编辑框中实现自动更正的方法,Visual FoxPro 9.0更强大了,如何用VFP的dbf进行SQL Server 7.0 的分布式查询,VFP智能感应的二次开发,谈两种数据库内容HTML格式的输出方法,用FoxWeb在网上快速发布你的FOXPRO数据库,在VFP5.0中实现中英文自动切换,在VFP中实现跟变式组合框及椭圆图形菜单,通过编程运行拨号网络连接,VFP中实现在浏览器中运行应用程序方法,为Visual FoxPro应用程序增加文件压缩功能,在VFP中模拟动画,用Visual FoxPro 5.0 设计数据文件结构浏览器,VFP表跟踪实现方法,让VFP程序在浏览器中运行,怎样在Visual FoxPro 中增加与去除网络联接,谈谈VFP和SQL SERVER搭配做C/S系统,卡拉OK字幕着色动态显示,利用Foxpro在网络环境下开发数据库管理软件经验点滴,用Foxpro制作Windows输入法码表
      Visual Foxpro

    • 0
    • 0
    • 0
    • 99
    • 单栏布局 侧栏位置: