<%
  '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

%>