ASP中应用FSO的问题

代码:

<% 
function readFile(FilePath)
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.OpenTextFile(server.mappath(FilePath),1)
    readFile = txt.Readall
    txt.close
    set txt=nothing 
    set fso=Nothing
end function
Function writefile(FilePath,Str)
    Set fso = Server.CreateObject("Scripting.FileSystemObject") 
    Set txt = fso.CreateTextFile(Server.Mappath(FilePath),True) 
    txt.Write Str 
    txt.close 
    set txt=nothing 
    set fso=nothing 
	writefile = "写入完成~"
End Function
act = Request.Form("act")
If act = "w" Then
	Response.Write(writeFile("./mjj.asp",Request.Form("r")))
ElseIf act = "r" Then
	mjj = readfile("./mjj.asp")
End If
%>
<hr />
<form action="" method="post">
<input type="hidden" name="act" value="w" />
<textarea name="r" rows="10" cols="50">test</textarea><br />
<input type="submit" value="写入mjj.asp" />
</form>
<hr />
<form action="" method="post">
<input type="submit" value="读取mjj.asp" /><br />
<input type="hidden" name="act" value="r" />
<textarea name="w" rows="10" cols="50"><%= mjj %></textarea>
</form>