如何能为组件建立一个字符串类型的属性（ATL)?

我为组件加入了整形的属性
STDMETHODIMP CSSL::get_num(short *pVal)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState()) // TODO: Add your implementation code here
*pVal = m_nNum; return S_OK;
}STDMETHODIMP CSSL::put_num(short newVal)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState()) // TODO: Add your implementation code here
m_nNum = newVal; return S_OK;
}
m_nNum是short型的私有成员变量在asp中调用
Set sobj = Server.CreateObject("mycom.xxx.1")
sobj.num = 123 
Response.Write (sobj.num)
没错，我又想加入一个字符串型的属性,按下面的方法能够执行成功，我该如何建立
sobj.str = "c:\xxx\xxx\xxx.xx"
Response.Write (sobj.str)我用的方法错在那里？
STDMETHODIMP CSSL::get_str(short *pVal)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState()) // TODO: Add your implementation code here
*pVal = _com_util::ConvertStringToBSTR(m_pstr);
return S_OK;
}STDMETHODIMP CSSL::put_str(short newVal)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState()) // TODO: Add your implementation code here
m_pstr = OLE2A(newVal);
return S_OK;
}
m_pstr是char*型的私有成员变量