VB调用eval出错，如何解决？
Public Function Constant(Tag)
Dim ClassGlobal As Globals
Dim MSSC
Set ClassGlobal = New Globals
Set MSSC = Server.CreateObject("MSScriptControl.ScriptControl")
Constant = MSSC.Eval("ClassGlobal." & Tag)
End Function
VB里调用eval提示出错：
ScriptControl 错误 '80004005'
The operation could not be completed because the script engine has not been initialized to a valid language.
[解决办法]
Server是什么？
[解决办法]
Public Function Constant(Tag)
Dim ClassGlobal As Globals
Dim MSSC
Set ClassGlobal = New Globals
Set MSSC = Server.CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript" ' 试试这样行不行?
Constant = MSSC.Eval("ClassGlobal." & Tag)
End Function
