头痛，头痛，请高人给我一剂良方！！！

[cs_HH]

function getObjDisposal(objStaValue)
Dim Gro(), Uer(), Rol()
Dim i, n, m
i =0
n=0
m=0
For Each objDisp In colle
'If Trim(objDisp.Disposal_Hint) = combo1.Text "办公室主任拟办-收文 登记" Then
If Trim(objDisp.Disposal_Hint) = Trim(objStaValue) Then
For Each objStates In SubFlow.Statuses
If objStates.Index = objDisp.State_To.Index Then
ReDim Gro(objStates.Groups.Count)
ReDim Uer(15, 20)
For Each iGroup In objStates.Groups
If i <= objStates.Groups.Count Then
Gro(i) = iGroup.Group_name
n = 0
For Each jUser In iGroup.Users
If n <= iGroup.Users.Count Then
Uer(i, n) = jUser.user_name
n = n + 1
End If
Next
ReDim Rol(iGroup.Roles.Count)
m = 0
For Each nRole In iGroup.Roles
If m <= iGroup.Roles.Count Then
Rol(i, m) = nRole.Role_Name
m = m + 1
End If
Next
i = i + 1
End If
Next
End If
Next
End If
Next

end function

我在客户端的onclick事件调用上面函数，怎么让该服务器端运行函数返回给客户端Gro(), Uer(), Rol()三数组。

[8988]

搞不懂，说清楚一点。

[twttwt]

吃止痛片吧，阿门。

[red-fly]

可以再用一个数组嘛，把Gro(),Uer(),Rol()做为其成员，这样不就可以了吗?