<div style="text-indent: 2em;">
'*********************************************************
' 目的: 注册插件函数 
'
' 注释: 将插件信息保存到数组中。即在原有数组最后增加一个元素
'保存传递过来的插件名称和激活函数/过程的信息。
' 
' 位置: /FUNCTION/c_system_base.asp
'*********************************************************
Function RegisterPlugin(strPluginName,strPluginActiveFunction)

	'On Error Resume Next

	Dim i
	i=UBound(PluginName)

	ReDim Preserve PluginName(i+1)
	ReDim Preserve PluginActiveFunction(i+1)

	PluginName(i)=strPluginName
	PluginActiveFunction(i)=strPluginActiveFunction

	'Err.Clear

End Function
'*********************************************************