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