发新话题
打印

服务器端用FSO生成文件的一个范例

<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>

TOP

发新话题