我在ATL里加了一个方法,如下(用VC.NET环境)
.idl文件中
[id(2), helpstring("method Sum")] HRESULT Sum([in] SAFEARRAY(long) *ppsa, [out,retval] long *pSum);.h文件中
STDMETHOD(Sum)(SAFEARRAY **ppsa, long *pnSum);.cpp文件中
STDMETHODIMP CTestObj::Sum(SAFEARRAY **ppsa, long *pnSum)在ASP页面中调用时出现"下标越界"的错误...请问如何改呢??? 
<%
Dim oTestObj 
Dim vMyArray(6)
Dim vRtnValue  vMyArray(0) = 1
 vMyArray(1) = 2
 vMyArray(2) = 3
 vMyArray(3) = 4
 vMyArray(4) = 5
 vMyArray(5) = 6 Set oTestObj = Server.CreateObject("ATLTest.TestObj")
 vRtnValue = oTestObj.Sum(vMyArray())'<<-----------------这行出错
 Response.Write "<BR>Value : " & vRtnValue%>