<%
'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.GetFile("D:\WebSite\NNbrank.com\html\news\20088\83195.htm")
if f.attributes <> 1 then
f.attributes = 1
end if
%>
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。