组件下载地址http://www.w120.com/buy/down.htm
www.w120.com/product/readme05.htm

设定目录权限属性:要修改权限的目录或文件e:\www,Windows用户名abc.com,使用权限C

新增或替换目录权限
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostCACLS("add","e:\www","abc.com","C")
if b then
response.write "成功"
else
response.write "失败"
end if
set obj = nothing
%>

删除目录中的用户权限
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostCACLS("del","e:\www","abc.com","C")
if b then
response.write "成功"
else
response.write "失败"
end if
set obj = nothing
%>