8-01.asp

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· ASP 代码 · 共 8 行

<%
path = Server.MapPath("test.txt")
set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
set MyTextFile = MyFileObject.CreateTextFile(path)
MyTextFile.WriteLine("我在当前的目录创建了一个叫test.txt的文件")
MyTextFile.Close()
%>