帮忙看一下这个程序，在6.0下实现同样功能该怎么写！

HRESULT CCHtmlTestView::SetHTML(LPCTSTR strHTML)
{
HRESULT hr; // Get document object
SPIHTMLDocument2 doc = GetHtmlDocument(); // Create string as one-element BSTR safe array for IHTMLDocument2::write.
CComSafeArray<VARIANT> sar;
sar.Create(1,0);
sar[0] = CComBSTR(strHTML); // open doc and write
LPDISPATCH lpdRet;
HRCHECK(doc->open(CComBSTR("text/html"),
CComVariant(CComBSTR("_self")),
CComVariant(CComBSTR("")),
CComVariant((bool)1),
&lpdRet));

HRCHECK(doc->write(sar)); // write contents to docro
HRCHECK(doc->close()); // close
lpdRet->Release(); // release IDispatch returned return S_OK;
}