读写文件的问题

Question

Dim t : set t= fso.OpenTextFiile(sname,2)
t.Write "aaaaaa"
t.Close
Set t=Nothing

Answer 1

获取最后一行内容
$last_line=end(file($file_path));你这样打开文件句柄就可以实现清空
$f=fopen($file_path,"w");

Answer 2

<%
Set fs = CreateObject("Scripting.FileSystemObject")
NewFile=Server.MapPath("/asp/chap06/at/newfile.txt")
'新建一文件/newfile.txt,若该文件已存在，则覆盖它
Set a = fs.CreateTextFile(NewFile, True)
Response.Write"新文件已建立！"
%>