<% Dim FSO,MyFile,Action,Str Action=Request.Form("Action") If Action="Add" Then Str=Reqeust.Form("wd") Set FSO=Server.CreateObject("Scripting.FileSystemObject") Set MyFile=FSO.OpenTextFile(Server.MapPath("./t.txt/"),8)'打开文件 MyFile.WriteLine(Str)'写入内容 Set MyFile=Nothing Set FSO=Nothing End If %>

ddd