您正在看的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.[page]

    &&&&是网页文件则插入到表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

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