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

　　您正在看的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
　　这里，我们仅实现了文件的保存和恢复，如果将通用型字段加入到表中，就可以实现对于图形文件的保存和恢复，那么该程序就更加完善了。

转帖于：软件水平考试_考试吧