用Fso創建文件的時候,返回的是一個TextStream對象...
而Fso要設置一個文件或者文件夾的屬性的時候.必須得到的是一個 文件或文件夾 對象.
先生成文件.然后用GetFile得到這個文件的File對象.然后設置它的Attributes屬性值,就可以了.

<%
'創建一個FileSystemObject對象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'創建一個File對象的事例
Set Myfile=MyFileObject.GetFile(server.mappath("1.txt"))
'設置其屬性為只讀
MyFile.attributes=1
%>