asp代码
<%
set oTest = Server.CreateObject("shuku.edit")
dim i,Curpage,totalcont
i=1
oTest.fenye(Cint(i),totalcont,Curpage)
%>COM接口
[in] [out] [out]
STDMETHODIMP Cedit::get_fenye(VARIANT CurPage, VARIANT *RecordCount, VARIANT *PageCount, VARIANT *pVal)
<%
set oTest = Server.CreateObject("shuku.edit")
dim i,Curpage,totalcont
i=1
oTest.fenye(Cint(i),totalcont,Curpage)
%>COM接口
[in] [out] [out]
STDMETHODIMP Cedit::get_fenye(VARIANT CurPage, VARIANT *RecordCount, VARIANT *PageCount, VARIANT *pVal)
两个out在VBScript中可以用么?我在思考。