程序代码：<%
'Normal 0 普通文件。没有设置任何属性。
'ReadOnly 1 只读文件。可读写。
'Hidden 2 隐藏文件。可读写。
'System 4 系统文件。可读写。
'Volume 8 磁盘驱动器卷标。只读。
'Directory 16 文件夹或目录。只读。
'Archive 32 上次备份后已更改的文件。可读写。
'Alias 64 链接或快捷方式。只读。
Dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.getfolder("D:\wwwroot\1.txt")
if f.attributes <> 32 then
f.attributes = 32
end if
%>
这个是我在网上找的代码，测试可用但是， 只能对单个文件进行修改文件权限，有没有哪个asp牛牛 可以把 这 Set f = fso.GetFile("D:\wwwroot\1.txt") 换成指定目录，或者能够批量的，谢谢啦'Normal 0 普通文件。没有设置任何属性。
'ReadOnly 1 只读文件。可读写。
'Hidden 2 隐藏文件。可读写。
'System 4 系统文件。可读写。
'Volume 8 磁盘驱动器卷标。只读。
'Directory 16 文件夹或目录。只读。
'Archive 32 上次备份后已更改的文件。可读写。
'Alias 64 链接或快捷方式。只读。
Dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.getfolder("D:\wwwroot\1.txt")
if f.attributes <> 32 then
f.attributes = 32
end if
%>
[ 本帖最后由 aspbccn 于 2013-8-9 22:29 编辑 ]