在括號里填寫適當?shù)膬热?，以便讀取當前目錄中的文本文件“test.txt” 
<% 
Dim fso ， f 
Set  fso = Server.CreateObject（）  ’創(chuàng)建FSO對象實例 
Set  f = fso.（）（）   ’打開文件并返回textStream對象 
while  Not  f.（） ’當文件指針不在文本文件末尾時執(zhí)行循環(huán) 
Response.Write  f.（）&"<BR>" ’讀取一行字符發(fā)送到瀏覽器 
Wend 
f.Close 
%>

在括號里寫適當?shù)膬热?，以便在當前目錄中?chuàng)建一個名為“test.txt”的文本文件。 
<% 
Dim fso ， f 
Set  fso = Server.CreateObject（）  ’創(chuàng)建FSO對象實例 
Set  f = fso.（）（）     ’創(chuàng)建文件并返回textStream對象 
f.（）  "Hello" 
f.（） 
%>