在下划线上填写适当的内容，以便向当前目录中的文本文件“test.txt”中写入数据 
<% 
Dim fso ， f ， rc 
rc = （）（"txtContent"）  ’接收表单提交的文本数据 
’创建FSO对象实例 
Set  fso = （）（"Scripting.FileSystemObject"）   
’创建文件并返回textStream对象，以覆盖方式打开文件 
Set  f = fso. CreateTextFile   （Server.MapPath（"./test.txt"），true）   
 ’向文件中写入数据 
f. WriteLine  rc&"（）"   
f. Close    ’关闭文件流对象 %>