使用版本:tc5.0
比如:
function Asc(str)
var strprogram,ScriptContorl,ret
strprogram="Function add(str): add=Asc(str): End Function"
ScriptContorl=com("MSScriptControl.ScriptControl")
ScriptContorl.Language="VBScript"
ScriptContorl.AddCode(strprogram)
ret=ScriptContorl.Run("add",str)
ScriptContorl=null
return ret
end
调用Asc()函数时返回值不正确