
<html>

<body>



<%

dim fs,f

set fs=Server.CreateObject("Scripting.FileSystemObject")

set f=fs.GetFile(Server.MapPath("testread.txt"))

Response.Write("文件 testread.txt 的属性是：" & f.Attributes)

set f=nothing

set fs=nothing

%>



</body>

</html>