<%
dim fs,fname
'首先定义变量
set fs=Server.CreateObject("Scripting.FileSystemObject")
'创建服务类型FSO
set fname=fs.CreateTextFile("c:\test.txt",true)
'服务方法创建文本文件
fname.WriteLine("Hello World!")
'写入一段指定的文本（字符串）和换行符到一个 Txt 文件中。
fname.Close
'关闭
set fname=nothing
'清空CTF
set fs=nothing
'清空 FSO
%> |
