How To Read Cookies Using ASP and Visual C++ (241492)

MORE INFORMATION

1. Open the ATL project you created in Q240191.
2. From the Class View tab, right-click the IASPCookies interface and select the Add Method from the Context menu. The Add Method dialog box should appear.
3. From the Add Method dialog box, enter "ReadTestCookie" (minus the quotes) as the method name, and click OK.
4. From the Class View tab, expand the CASPCookies class, then expand the IASPCookies interface that appears.
5. Double-click on the "ReadTestCookies" method, the implementation of CASPCookies::ReadTestCookies should appear.
6. Paste the following code into the CASPCookies::ReadTestCookies() method implementation.

   	HRESULT hr = NOERROR;
   	IRequestDictionary* pDict = NULL;   // First step to get cookie collection
   	IReadCookie* pReadCookie = NULL;    // Cookie collection
   
   	VARIANT vtCookieDict;               // ptr to dispinterface IReadCookie
   	VARIANT vtCookieName;               // For the name of the cookie
   	VARIANT vtCookieKey;                // For the cookie key<BR/>
   	VARIANT vtCookieVal;		    // For the cookie value
   	
   	BSTR bstrCookieName;                // For the cookie name
   	BSTR bstrCookieKey;                 // For the key
   	
   	// Initialize the temp vars
   	bstrCookieName = SysAllocString(L"KBTESTCOOKIES");
   	bstrCookieKey  = SysAllocString(L"CookieKey");
   
   	// Set the name of the cookie and change the type
   	// If you don't IRequestDictionary::get_Item() will
   	// fail because the variant will come through as VT_EMPTY
   	vtCookieName.bstrVal = bstrCookieName;
   	vtCookieName.vt = VT_BSTR;
   
   	// Set the key we'll use for the cookie's key/value pair.
   	// Make sure to change the type or put_Item() will fail.
   	vtCookieKey.bstrVal = bstrCookieKey;
   	vtCookieKey.vt = VT_BSTR;
   
   	
   	// First you have to get the IRequestDictionary
   	// then call get_Item() to get the actual IReadCookie
   	// object. 
   	hr = m_piRequest->get_Cookies(&pDict);
   
   	if(SUCCEEDED(hr))
   	{
   		// Request access to the cookie named "KBTESTCOOKIES" specifically.
   		// vtCookieDict will return with the ptr
   		// to the IReadCookie object
   		hr = pDict->get_Item(vtCookieName, &vtCookieDict);
   
   		if(SUCCEEDED(hr))
   		{
               // Got the pointer to IReadCookie now make it friendly.
   			pReadCookie = (IReadCookie*)(vtCookieDict.pdispVal);
   			hr = pReadCookie->get_Item(vtCookieKey, &vtCookieVal);
               
               // release what we're done with
               pReadCookie->Release();
   			pDict->Release();
   
   			if(SUCCEEDED(hr))
   			{
                   // Write the cookie value out to the page
   				hr = m_piResponse->Write(vtCookieVal);
   
   			}
   		}
           else
           {
               pDict->Release();
           }
   	
   	}
   
       SysFreeString(bstrCookieName);
   	SysFreeString(bstrCookieKey);
   	SysFreeString(bstrCookieVal);
   	
   	return(hr);
   						

7. From the Build menu, select "Build KBWriteCookies.dll" to build your project.
8. Create a new ASP page and paste in the following code and save the file:

   <%
    Dim obj
    Set obj = Server.CreateObject("KBWriteCookies.ASPCookies")
    Call obj.ReadTestCookie()
   %> 
   						

9. View the ASP page in your Web browser and you should see the following displayed on the page:

      CookieValue 
   						

• This article uses the IScriptingContext interface to gain access to the ASP intrinsic objects, however it is strongly recommended that you use Microsoft Transaction Server's ObjectContext to obtain the ASP intrinsic objects, as support for IScriptingContext may be removed from future versions of ASP.
  
  For additional information, please click the article number below to view the article in the Microsoft Knowledge Base:

  239445 How To Obtain ObjectContext with ObjectControl Inside VC COM DLL From ASP and MTS