怎样使得嵌入WEB页面的OCX控件不被阻止

各位高手：
    我写了一个OCX控件，把它装入网页中，并且我也通过如下代码进行了注册，但为什么还是被WEB页面阻止呢，依然弹出警告说不安全。
//////////////////////////////////////////////////////////////// 
    // Copied from the ActiveX SDK 
    // This code is used to register and unregister a 
    // control as safe for initialization and safe for scripting 
     
    HRESULT CreateComponentCategory(CATID catid, WCHAR* catDescription) 
    { 
     
    ICatRegister* pcr = NULL ; 
    HRESULT hr = S_OK ; 
     
    hr = CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
    NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (void**)&pcr); 
    if (FAILED(hr)) 
    return hr; 
     
    // Make sure the HKCR\Component Categories\{..catid...} 
    // key is registered 
    CATEGORYINFO catinfo; 
    catinfo.catid = catid; 
    catinfo.lcid = 0x0409 ; // english 
     
    // Make sure the provided description is not too long. 
    // Only copy the first 127 characters if it is 
    int len = wcslen(catDescription); 
    if (len>127) 
    len = 127; 
    wcsncpy(catinfo.szDescription, catDescription, len); 
    // Make sure the description is null terminated 
    catinfo.szDescription[len] = '\0'; 
     
    hr = pcr->RegisterCategories(1, &catinfo); 
    pcr->Release(); 
     
    return hr; 
    } 
     
     
    HRESULT RegisterCLSIDInCategory(REFCLSID clsid, CATID catid) 
    { 
    // Register your component categories information. 
    ICatRegister* pcr = NULL ; 
    HRESULT hr = S_OK ; 
    hr = CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
    NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (void**)&pcr); 
    if (SUCCEEDED(hr)) 
    { 
    // Register this category as being "implemented" by 
    // the class. 
    CATID rgcatid[1] ; 
    rgcatid[0] = catid; 
    hr = pcr->RegisterClassImplCategories(clsid, 1, rgcatid); 
    } 
     
    if (pcr != NULL) 
    pcr->Release(); 
     
    return hr; 
    } 
     
    HRESULT UnRegisterCLSIDInCategory(REFCLSID clsid, CATID catid) 
    { 
    ICatRegister* pcr = NULL ; 
    HRESULT hr = S_OK ; 
    hr = CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
    NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (void**)&pcr); 
    if (SUCCEEDED(hr)) 
    { 
    // Unregister this category as being "implemented" by 
    // the class. 
    CATID rgcatid[1] ; 
    rgcatid[0] = catid; 
    hr = pcr->UnRegisterClassImplCategories(clsid, 1, rgcatid); 
    } 
     
    if (pcr != NULL) 
    pcr->Release(); 
     
    return hr; 
    } 
     
     
    /***************************************** 
    在 xxxctl.cpp 文件中添加如下两个头文件 
    *****************************************/ 
    #include "comcat.h" 
    #include "objsafe.h" 
     
    /***************************************** 
    修改如下函数 
    *****************************************/ 
    BOOL CxxxCtrl::CxxxCtrlFactory::UpdateRegistry(BOOL bRegister) 
    { 
    // TODO: Verify that your control follows apartment-model threading rules. 
    // Refer to MFC TechNote 64 for more information. 
    // If your control does not conform to the apartment-model rules, then 
    // you must modify the code below, changing the 6th parameter from 
    // afxRegInsertable | afxRegApartmentThreading to afxRegInsertable. 
     
    if (bRegister) 
    { 
    HRESULT hr = S_OK ; 
     
    // register as safe for scripting 
    hr