ASP中FSO的神奇功能 - 用FSO進行內(nèi)容管理
更新時間:2006年10月28日 00:00:00 作者:
作 者 : 甘冀平
到此,你對FSO可能已經(jīng)有了很好的體會。讓我們再深入研究一步,來解決更復雜的難題。
首先,你可能希望對文件改名。為了跟蹤所有的文檔,你將要重新命名它們以便唯一,這樣就可以被系統(tǒng)容易地區(qū)
別。很不幸,F(xiàn)SO不允許簡單的文件改名操作,所以我們不得不修改一下。
< %
' create the fso object
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c: emp est.txt"
strDate = Replace(Date(), "/", "")
strDir = "c:inetpubwwwrootarticles" & strDate
strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" &
second(Now) & ".html"
' open the old file
set file = fso.opentextfile(path, 1) < -- For reading
strText = file.readall
set file = nothing
' check for and/or create folder
if not fso.folderexists(Server.MapPath(strDir)) then
set f = fso.CreateFolder(Server.MapPath(strDir))
else
set f = fso.GetFolder(Server.MapPath(strDir))
end if
' create and write new file
set file = fso.Createtextfile(f.path & "" & strNewFileName)
file.write(strText)
set f = nothing
file.close
set file = nothing
' delete the old file
fso.DeleteFile(path & "" & rst("FileName") & i)
' clean up
set fso = nothing
%>
FSO能力的不足在這里卻成了優(yōu)勢,我們可以一次執(zhí)行2步。首先,打開文件并讀入文件的內(nèi)容。假設這里要創(chuàng)建一個
唯一的文件夾和一個唯一的文件來存儲文章。然而,因為文件夾的路徑每天都將改變,所以必須首先檢查是否文件夾已經(jīng)
存在,如果不存在,就創(chuàng)建它。這在if not fso.folderexists代碼段完成。然后,取得那個路徑,創(chuàng)建一個新的文件。新
文件建立完成后,刪除掉舊文件,這通過fso.DeleteFile來完成。
這2步就是:對文件改名,然后移動到一個更合適的目錄下。注意,在這里還可以對文件進行更多地操作,比如在寫
入新文件前進行一下內(nèi)容的編輯。
到此,你對FSO可能已經(jīng)有了很好的體會。讓我們再深入研究一步,來解決更復雜的難題。
首先,你可能希望對文件改名。為了跟蹤所有的文檔,你將要重新命名它們以便唯一,這樣就可以被系統(tǒng)容易地區(qū)
別。很不幸,F(xiàn)SO不允許簡單的文件改名操作,所以我們不得不修改一下。
< %
' create the fso object
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c: emp est.txt"
strDate = Replace(Date(), "/", "")
strDir = "c:inetpubwwwrootarticles" & strDate
strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" &
second(Now) & ".html"
' open the old file
set file = fso.opentextfile(path, 1) < -- For reading
strText = file.readall
set file = nothing
' check for and/or create folder
if not fso.folderexists(Server.MapPath(strDir)) then
set f = fso.CreateFolder(Server.MapPath(strDir))
else
set f = fso.GetFolder(Server.MapPath(strDir))
end if
' create and write new file
set file = fso.Createtextfile(f.path & "" & strNewFileName)
file.write(strText)
set f = nothing
file.close
set file = nothing
' delete the old file
fso.DeleteFile(path & "" & rst("FileName") & i)
' clean up
set fso = nothing
%>
FSO能力的不足在這里卻成了優(yōu)勢,我們可以一次執(zhí)行2步。首先,打開文件并讀入文件的內(nèi)容。假設這里要創(chuàng)建一個
唯一的文件夾和一個唯一的文件來存儲文章。然而,因為文件夾的路徑每天都將改變,所以必須首先檢查是否文件夾已經(jīng)
存在,如果不存在,就創(chuàng)建它。這在if not fso.folderexists代碼段完成。然后,取得那個路徑,創(chuàng)建一個新的文件。新
文件建立完成后,刪除掉舊文件,這通過fso.DeleteFile來完成。
這2步就是:對文件改名,然后移動到一個更合適的目錄下。注意,在這里還可以對文件進行更多地操作,比如在寫
入新文件前進行一下內(nèi)容的編輯。
相關文章
ASP中文本文件與數(shù)據(jù)庫文件的數(shù)據(jù)交換(FSO)
ASP中文本文件與數(shù)據(jù)庫文件的數(shù)據(jù)交換(FSO)...2006-10-10ASP中FSO對象對IIS WEB服務器數(shù)據(jù)安全的威脅及對策
ASP中FSO對象對IIS WEB服務器數(shù)據(jù)安全的威脅及對策...2006-10-10asp(vbs)fso OpenTextFile方法參數(shù)說明
OpenTextFile是asp語言中的一個方法,打開指定的文件并返回一個 TextStream 對象,可以通過這個對象對文件進行讀、寫或追加2015-04-04