HTML网页如下:
〈HTML〉<HEAD〉
〈TITLE〉Testing C Builder ASP </TITLE〉
〈/HEAD〉
〈BODY〉
You should see the results of your C Builder Active Server method below
〈HR〉
〈%
dim ks1,ks2
Set ASPObj = Server.CreateObject("ShowList.IP_INFO")
ks1=ASPObj.IP_Address
ks2=ASPObj.IP_End response.write(ks1)
response.write(ks2) %〉
〈HR〉
〈/BODY〉
〈/HTML〉 运行后出现入下问题:
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp,行242 ShowList.IP_INFO 错误 '80020009' EAccessViolation /com/IP_INFO.asp,行14 服务器组件部分程序如下: // IP_INFOIMPL : Implementation of TIP_INFOImpl #include
#pragma hdrstop #include "IP_INFOIMPL.H"
#include "DataModuleU.h" /////////////////////////////////////////////////////////////////////////////
// TIP_INFOImpl
STDMETHODIMP TIP_INFOImpl::OnEndPage()
{
HRESULT hr = E_FAIL;
try
{
hr = TASPObject::OnEndPage();
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IIP_INFO);
} return hr;
} STDMETHODIMP TIP_INFOImpl::OnStartPage(LPUNKNOWN AScriptingContext)
{
HRESULT hr = E_FAIL;
try
{
hr = TASPObject::OnStartPage(AScriptingContext);
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IIP_INFO);
} return hr;
} STDMETHODIMP TIP_INFOImpl::get_IP_Address(BSTR* Value)
{
try
{
*Value=WideString("10.67.3.12");
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IIP_INFO);
}
return S_OK;
}; STDMETHODIMP TIP_INFOImpl::get_IP_End(BSTR* Value)
{
try
{
TDM *DM;
DM->ClientDataSet->Open();
*Value=WideString(DM->ClientDataSet->FieldByName("Common_Name")->AsString);
DM->ClientDataSet->Close();
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IIP_INFO);
}
return S_OK;
}; 请教如何解决? 發表人 - djfeihong 於 2004/09/15 18:23:36