ActionX对外发布属性和方法(10分)

请问各位老大，有谁知道ActiveX是怎么样对JSP或ASP对外发布公用属性和方法的，也就是使方法和属性在HTML页面上可以供JSP或ASP程序用。或者传递参数用啊。急用，谢了。

哈哈,
添加接口
IPersistPropertyBag

添加声明

function IPersistPropertyBag.InitNew = PersistPropBagInitNew;
function IPersistPropertyBag.Load = PersistPropBagLoad;
function IPersistPropertyBag.Save = PersistPropBagSave;
function PersistPropBagInitNew: HResult
stdcall;
function PersistPropBagLoad(const pPropBag: IPropertyBag;
const pErrorLog: IErrorLog): HResult
stdcall;
function PersistPropBagSave(const pPropBag: IPropertyBag;
fClearDirty: BOOL
fSaveAllProperties: BOOL): HResult
stdcall;


// -- implement PersistPropBagInitNew

function TActiveFormX.PersistPropBagInitNew: HResult;
begin
Result := S_OK;
end;

// -- implement PersistPropBagLoad

function TActiveFormX.PersistPropBagLoad(const pPropBag:
IPropertyBag
const pErrorLog: IErrorLog): HResult
stdcall;
var
v: OleVariant;
begin
if pPropBag.Read('Caption', v, pErrorLog) = S_OK then
Label1.Caption := v;
Result := S_OK;
end;

// -- implement PersistPropBagSave

function TActiveFormX.PersistPropBagSave(const pPropBag:
IPropertyBag
fClearDirty: BOOL
fSaveAllProperties: BOOL)
: HResult
stdcall;
var
v: OleVariant;
begin
v:= Label1.Caption;
pPropBag.Write('Caption', v);
Result := S_OK;
end;


function IPersistPropertyBag.InitNew = PersistPropBagInitNew;
function IPersistPropertyBag.Load = PersistPropBagLoad;
function IPersistPropertyBag.Save = PersistPropBagSave;
function PersistPropBagInitNew: HResult
stdcall;
function PersistPropBagLoad(const pPropBag: IPropertyBag;
const pErrorLog: IErrorLog): HResult
stdcall;
function PersistPropBagSave(const pPropBag: IPropertyBag;
fClearDirty: BOOL
fSaveAllProperties: BOOL): HResult
stdcall;

添加完接口，以后怎么办，能否给出一个实例
谢谢