基本思路：

        1、把DLL做为资源加入到ActiveX中。

        2、在网页加载ActiveX时，先提取出资源，临时存在系统目录中（可能还有更好的方法，但我现在还没有找到）。
        3、在用动态调用动态库的方法加载临时生成的动态库。

        4、调用动态库中的函数。

        5、当退出网页时，删除临时动态库。

        其思路简单，但不知这样方法的用处大不大。因我不是做WEB方面开发的。

    现在对关键地方进行少量说明：

       提取资源内容生成临时文件：

  HGLOBAL hRes;
  HRSRC hResInfo;
  //寻找EXE资源名
  hResInfo = ::FindResource(g_hInstance,(LPCSTR)IDR_DLL1,"DLL");
  hRes = ::LoadResource(g_hInstance,hResInfo ); // Load it
  DWORD dFileLength = ::SizeofResource(g_hInstance, hResInfo ); 
  //创建DLL文件
  char pPath[MAX_PATH];
  GetSystemDirectory(pPath, MAX_PATH);

  strcpy(g_pFile, pPath);
  strcat(g_pFile, "\\ExpDll1.Dll");
  HANDLE hFile = CreateFile(g_pFile, GENERIC_WRITE | GENERIC_READ,
        FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, CREATE_NEW,                 FILE_ATTRIBUTE_NORMAL,         NULL);
  DWORD dwNumberOfBytesWritten = 0;
  if(hFile > 0)
     WriteFile(hFile, (LPCVOID)hRes, dFileLength, &dwNumberOfBytesWritten,   NULL);
else
MessageBox("加载Res不成功","提示信息",MB_OK);
CloseHandle(hFile);

导入临时生成的DLL函数：

hDll = ::LoadLibrary(g_pFile);
if(hDll != NULL)
fun = (void(__stdcall *)(void))(GetProcAddress(hDll, "ExpShowMsg"));
else
MessageBox("加载DLL不成功","提示信息",MB_OK);

释放DLL并删除临时DLL文件：

//释放DLL
::FreeLibrary(hDll);
//删除DLL文件
::DeleteFile(g_pFile);

　

就这么容易。如果还有不清的地方，老兄你就看源程序吧！如果老兄有方法去掉那个“准”字，请给我说一下方法。在下在这里先谢了。

    注：源程序中一个目录是Active源程序，另一个是DLL源程序。要注册控件后方可运行.

     环境:VC6 + Win2000+FrontPage2000