asp 向组件传数组的问题

study 2004-04-22 03:16:32

Dim obj
Set obj = Server.CreateObject("PTest.CTest")
Dim a(100)
For i = 0 To 100
a(i) = i
Next
obj.show(a())
Set obj = Nothing

下标越界，如何处理？谢谢。

...全文

52 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

playking 2004-04-22

打赏
举报

怎么没人帮忙吗？

playking 2004-04-22

打赏
举报

怎么没人帮忙吗？

playking 2004-04-22

打赏
举报

ｕｐ

lihandong 2004-04-22

打赏
举报

playking 2004-04-22

打赏
举报

谁能解决这个问题？各位老大帮帮忙

study 2004-04-22

打赏
举报

组件代码：
Sub show(a())
...
Set ObjResponse = ObjContext("Response")
Dim i
For i = LBound(a) To UBound(a)
ObjResponse.Write a(i) & "<br>"
Next
End Sub

已经考虑了上下边界的问题了。
另外,angelheavens(龙辉) 说的方法也试过，会出现“类型不匹配”的错误。

playking 2004-04-22

打赏
举报

playking 2004-04-22

打赏
举报

To inelm(木野狐) :

public Sub show(a As Variant)

........

End Sub
我昨天晚上试过，不行的，脚本调用的时候出错

nchen123 2004-04-22

打赏
举报

数据类型要使用 Variant

playking 2004-04-22

打赏
举报

楼上的各位，你们实际试过吗？

liuyu202 2004-04-22

打赏
举报

Dim obj
Set obj = Server.CreateObject("PTest.CTest")
Dim a(100)
For i = 0 To 99 '这里改改
a(i) = i
Next
obj.show(a())
Set obj = Nothing

playking 2004-04-22

打赏
举报

组件中应该怎么定义这个Sub?
public Sub show(a)

........

End Sub
这样定义不行，Type Mismatch!!!

angelheavens 2004-04-22

打赏
举报

事例:
<%
Dim obj
Class objClass
Public Function show(Arr)
Dim j
For J=0 to UBound(Arr)
Response.Write(Arr(j)&"<br>")
Next
End Function
End Class

Set obj = new objClass
Dim a(100)
For i = 0 To 100
a(i) = i
Next
obj.show(a)
Set obj = Nothing
%>

playking 2004-04-22