刚学Asp有个问题想请教，怎么用Asp运行一个外部文件，我想是用shell，可用了报错后说没有shell对象，请高手贴一个怎么用的示范代码，小弟

[Tom010]

刚学Asp有个问题想请教，怎么用Asp运行一个外部文件，我想是用shell，可用了报错后说没有shell对象，请高手贴一个怎么用的示范代码，小弟不胜感激！

Dim Shell
dim i
Set Shell=CreateObject("Shell")
i=Shell.Execute("stop.bat",1)

[bluemoon0001]

Set objShell=CreateObject("WScript.Shell")
objShell.Run "c:\我收到的留言\stop.bat",1,FALSE
Set objShell = Nothing

[Tom010]

有错误：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242 错误 '80070002'

/test.asp，行3
请指教

[bluemoon0001]

这是用在客户端的，你用在什么地方？

[bluemoon0001]

把你的测试代码贴出来看一下。

[Tom010]

还是你那段代码，我现在想用在服务器段，我改怎么办呢？请指教！！！

<%
Set objShell=CreateObject("WScript.Shell")
objShell.Run "stop.bat",1,FALSE
Set objShell = Nothing
%>

[Tom010]

我把它保存为Asp文件了

[bluemoon0001]

你这是服务器端代码，你要执行服务器端的程序是吗？代码如下：

<%
Set objShell=Server.CreateObject("WScript.Shell")
objShell.Run "stop.bat",1,FALSE
Set objShell = Nothing
%>

如果是客户端如下：

<script language="vb">
Set objShell=CreateObject("WScript.Shell")
objShell.Run "stop.bat",1,FALSE
Set objShell = Nothing
</script>

[Tom010]

还是不行,有错误
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242 错误 '80070002'

/test.asp，行6
若把 objShell.Run "stop.bat",1,FALSE 注释掉就没错误拉，why？请多多指教！！

[webser]

没有shell 对象

[bluemoon0001]

你的服务器上有没有WScript组件？

[Tom010]

我也不太清楚，怎么才能看的出来啊！

[Tom010]

我把路径改成绝对路径了，不报错了，可就是运行不了stop.bat

[gilbert007]

听课：）