<html> <body> <% dim fs,f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath("/text/testread.txt")) Response.Write("testread.txt 的属性为 " & f.Attributes) set f=nothing set fs=nothing %> <table border="1"> <tr> <td>常数</td> <td>值</td> <td>注释</td> </tr> <tr> <td>Normal</td> <td>0</td> <td>普通文件</td> </tr> <tr> <td>ReadOnly</td> <td>1</td> <td>只读文件</td> </tr> <tr> <td>Hidden</td> <td>2</td> <td>隐藏文件</td> </tr> <tr> <td>System</td> <td>4</td> <td>系统文件</td> </tr> <tr> <td>Directory</td> <td>16</td> <td>文件夹或目录</td> </tr> <tr> <td>Archive</td> <td>32</td> <td>上次备份后已更改的文件</td> </tr> <tr> <td>Alias</td> <td>1024</td> <td>链接或快捷方式</td> </tr> <tr> <td>Compressed</td> <td>2048</td> <td>压缩文件</td> </tr> </table> </body> </html>
效果会显示在右边 Create by 软晨网（RuanChen.com）