<html><body>建立一个新文件的范例<br><br>
<%
Dim objFSO '声明一个名称为 objFSO 的变量以存放对象实例
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.CreateTextFile(Server.MapPath("newfile.htm"))
Response.Write "已经成功建立新文件"&Server.MapPath("newfile.htm")
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>
</body></html>