asp+vc的高手请进,高分求救!!!!!
vc写一组件,在VB里面调用通过,而asp访问不通过
而且,asp里面可以创建这个组件,可以用到组件的方法,甚至将参数传给了VC组件,VC组件将传入参数正确打出,却还是无法实现登陆到一个影像系统的功能。
vc组件有登陆的方法两个,传入四个参数,返回一个结果值
在VB里面将这个VC组件包装后仍然可以测试通过,而ASP就是不行!VB和ASP测试环境是一样的,难道ASP调用VC组件与VB调用VC组件有什么低层的不同???请高手释疑!!!!!
ASP调用代码
Set capture = server.CreateObject("pawal.capture")
smsg=capture.logon("ePro", "FileNet", "SysAdmin", "SysAdmin")
response.write "strmsg="&smsg&"<br>"
VC方法源码
STDMETHODIMP CCapture::Logon(BSTR sDomain, BSTR sOrganization, BSTR sUser, BSTR sPassword, BSTR * sErrMsg)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState())
error_typ err;
ASE_service_name_typ ims_name;
SEC_name_typ user;
SEC_password_typ password;
SEC_terminal_typ terminal;
ims_name.object[0] = '\0';
strcpy (ims_name.domain, BSTR2A(sDomain) );
strcpy (ims_name.organization, BSTR2A(sOrganization));
strcpy (user, BSTR2A(sUser));
strcpy (password, BSTR2A(sPassword));
strcpy (m_domain , BSTR2A(sDomain)); //backup domain
strcpy (m_organization , BSTR2A(sOrganization)); //backup organization for other funcation
//generate one rand terminal No.
CString strTemp;
srand( (unsigned)time( NULL ) );
m_lSessionNO=rand();
strTemp.Format("%d",m_lSessionNO);
strcpy (terminal,strTemp);
if (err = IMS_logon (user, password, terminal, &ims_name,
IMS_version, &m_imsh)){
*sErrMsg = A2BSTR("Logon FileNet failed (IMS_Logon failed)!");
return S_FALSE;
} else {
*sErrMsg = A2BSTR("");
return S_OK;
}
}