logo

哈达波斯网|专注网站

ASP

MSScriptControl.ScriptControl组件介绍

ASP  2020/9/18 13:16:13  管理员  

MSScriptControl.ScriptControl组件实例对象属性

属性名称类型备注
AllowUIBOOL检测是否允许运行用户的接口元素。如果为False,则诸如消息框之类的界面元素不可见。
CodeObjectObject脚本暴露给宿主调用的对象。只读。
ModulesModules宿主提供给脚本的组件库模块。只读。(COM组件通常都是以对象收集的形式向用户提供可以留给用户二次开发的对象集合,每一个收集即一个Modules)
LanguageString设置或获取脚本引擎解释的语言,例如:VBScript、JScript。
NameString脚本引擎的名称。只读。
ProceduresProcedures返回模块中定义的过程的集合
SitehWndHWND在脚本中显示UI的父窗口句柄
StateEnum设置或返回控件的状态,如果为0,控件只执行语句但不转发事件,为1则为加入的本控件接受的对象转发事件。
TimeoutLong控件的执行脚本的超时值,-1表示不超时
UseSafeSubsetBOOL设置或返回宿主程序是否关心安全。宿主程序的安全级别可以从此属性设置
ErrorError错误对象,发生错误时,此属性返回一个错误对象


 MSScriptControl.ScriptControl组件实例方法名称

方法名称参数功能
AddCodeCode As String往脚本引擎中加入要执行的脚本
AddObjectName As String, Object As Object, [AddMembers As Boolean = False]往脚本引擎加入一个对象,以便在脚本中可以使用该对象提供的方法等。
EvalExpression As String表达式求值
ExecuteStatementStatement As String解释并执行脚本语句
Reset 丢弃所有的对象和代码,将State属性置0。
RunProcedureName As String, ParamArray Parameters() As Variant运行一个指定的过程


 MSScriptControl.ScriptControl组件实例事件名称

事件名称功能
Error有错误发生时激发该事件
TimeOut执行过程超时时发生


 MSScriptControl.ScriptControl使用方法
 1、在程序中加入ScriptControl
 2、定义一个ScriptControl的实例
 3、调用AddCode等方法向脚本引擎中加入要执行的脚本。
 4、调用Run执行要执行的脚本函数。

Function IsObjInstalled(strClassString) 
	On Error Resume Next 
	IsObjInstalled = False 
	Err = 0 
	Dim xTestObj 
	Set xTestObj = server.CreateObject(strClassString) 
	If 0 = Err Then IsObjInstalled = True 
	Set xTestObj = Nothing 
	Err = 0 
End Function 

response.Write(IsObjInstalled("MSScriptControl.ScriptControl") &"<br>")

Set obj = server.CreateObject("MSScriptControl.ScriptControl")
obj.AllowUI = True
obj.Language = "JavaScript"
Script = obj.Eval("function add(s1,s2){ return s1+s2;};add(10,5);")
Set obj = Nothing 

response.Write(Script)


网站首页  | 最新公告  | 漏洞修补  | 网站模板  | 知识文档  | 与我联系
Copyright © 2015 jlasp.com All Rights Reserved.
哈达波斯网|专注网站 版权所有
地址:吉林省吉林市昌邑区 联系QQ:383612004 联系人:董先生
未经本站授权,禁止复制或建立镜像,内容仅用于学习参考!
ICP备案号:吉ICP备15000891号-1 | 

吉公网安备 22020202000301号