代码如下:
Public ScriptEngine As MSScriptControl.ScriptControl
Public Function test()
Dim teststr As String
Set ScriptEngine = New MSScriptControl.ScriptControl
ScriptEngine.Language = "VBscript"
ScriptEngine.ExecuteStatement ("msgBox(""the value of x is"")")
End Function在ASP页面中调用。没有反应,进度一直在38,像进入死循环另外,请帮我写一下MSScriptControl.ScriptControl使用方法好吗?
举个实例更好