dll 代码:
[id(1), helpstring("method GenerateConfirmedCode")] HRESULT GenerateConfirmedCode([in]BSTR azRegistryID,[in]BSTR azUsername ,[out,retval]BSTR* azConfirmedCode); 
STDMETHODIMP CGetRegistryInWeb::GenerateConfirmedCode(BSTR azRegistryID, BSTR azUsername, BSTR* azConfirmedCode)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState()) // TODO: Add your implementation code here
*azConfirmedCode = azRegistryID;
return S_OK;
}

解决方案 »

  1.   

    STDMETHODIMP CGetRegistryInWeb::GenerateConfirmedCode(BSTR azRegistryID, BSTR azUsername, BSTR* azConfirmedCode)
    {
    AFX_MANAGE_STATE(AfxGetStaticModuleState())// TODO: Add your implementation code here
    CString _azRegistryID;
    _azRegistryID=azRegistryID;
    *azConfirmedCode = _azRegistryID.AllocSysString();
    return S_OK;
    }'ASP
    Dim azRegistryID
    Dim azUsername
    azRegistryID=需要的值
    azUsername=需要的值
    Set Obj=Server.CreateObject("工程名.GetRegistryInWeb")
    RetValue=Obj.GenerateConfirmedCode(azRegistryID,azUsername)'retvalue是返回的值OK
    Set Obj=nothing