您正在看的FoxPro教程是：用VFP管理網(wǎng)頁文件。
隨著計算機(jī)技術(shù)的發(fā)展，Internet已經(jīng)滲透到我們生活的各個方面中，如何管理和維護(hù)一個網(wǎng)站中的網(wǎng)頁文件，對于網(wǎng)站來說至關(guān)重要。
筆者利用VFP的管理思想，將網(wǎng)站的一個目錄樹及其下面的所有網(wǎng)頁文本保存到庫中從而達(dá)到維護(hù)網(wǎng)頁文件的功能，這樣當(dāng)某一個用戶無意中刪除了網(wǎng)頁文件時可以借助于存放在庫中的文件加以恢復(fù)。
功能介紹
利用VFP創(chuàng)建一個表單，在該表單中安排四個命令按鈕，如圖所示。選擇站點目錄是直接調(diào)用VFP的函數(shù)選定一個目錄，并將選定的目錄保存到一個歷史表 history_tab（字段：dir_name）；保存網(wǎng)頁文件則通過編寫一個遞歸調(diào)用的遍歷目錄樹的函數(shù) thisform.search（cur_directory）來遍歷選定的一個目錄，將該目錄中所需要的網(wǎng)頁文件獲取到一個表data_asp；恢復(fù)網(wǎng)頁文件則是直接從表data_asp中恢復(fù)所有的網(wǎng)頁文件。
保存選定目錄中的網(wǎng)頁文件需要借助于遞歸調(diào)用的思想方法來遍歷一個目錄樹，這可以使用數(shù)據(jù)結(jié)構(gòu)中所謂“深度優(yōu)先搜索”的算法來完成，表單中的方法程序search（current_dir）就是完成該功能。
實現(xiàn)代碼
表單中的方法程序及命令按鈕代碼
添加的表單方法程序：thisform.search,參數(shù)current_dir
parametercurrent_dir
locali,cur_dir,tempdir,file1（1,1）,extens,ok,file2
chdir（current_dir）
=adir（file1,".","AD"）&&&&將該目錄下的所有文件保存到數(shù)組file1中
cur_dir=curdir（）&&&&保存當(dāng)前目錄
fori=1toalen（file1,1）
若遇到一個子目錄時則進(jìn)行遞歸調(diào)用
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
檢測是否是網(wǎng)頁擴(kuò)展名
chdir（cur_dir）&&&&回退到父目錄
ok=.f.&&&&一個文件目錄是否為網(wǎng)頁文件
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.
&&&&是網(wǎng)頁文件則插入到表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
保存網(wǎng)頁文件
localchoice,defaultdir
ifalltrim（thisform.cur_directory）==""
choice=messagebox
（"你應(yīng)該選擇一個站點目錄",0）
else
defaultdir=curdir（）
chdir（thisform.cur_directory）
=thisform.search（thisform.cur_directory）
chdir（defaultdir）
endif
恢復(fù)網(wǎng)頁文件
selectdata_asp
setdeleteon
gotop
scan
copymemocontentto（filename）
endscan
return
*退出
selectdata_asp
pack
selecthistory_tab
pack
closeall
releasethisform
這里，我們僅實現(xiàn)了文件的保存和恢復(fù)，如果將通用型字段加入到表中，就可以實現(xiàn)對于圖形文件的保存和恢復(fù)，那么該程序就更加完善了。
