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