网页制作技巧:用VFP管理网页文件

来源:网络发布时间:2009-06-02

  您正在看的FoxPro教程是:用VFP管理网页文件。
  随着计算机技术的发展,Internet已经渗透到我们生活的各个方面中,如何管理和维护一个网站中的网页文件,对于网站来说至关重要。
  笔者利用VFP的管理思想,将网站的一个目录树及其下面的所有网页文本保存到库中从而达到维护网页文件的功能,这样当某一个用户无意中删除了网页文件时可以借助于存放在库中的文件加以恢复。
  功能介绍
  利用VFP创建一个表单,在该表单中安排四个命令按钮,如图所示。选择站点目录是直接调用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
  这里,我们仅实现了文本文件的保存和恢复,如果将通用型字段加入到表中,就可以实现对于图形文件的保存和恢复,那么该程序就更加完善了。
纠错

育路版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:育路网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为育路网发布的内容可能涉嫌侵犯其合法权益,应该及时向育路网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,育路网在收到上述法律文件后,将会尽快移除被控侵权内容。