我想把不定数量的id值传给处理结果的asp页
使之能够用　for　each　．．in　．．　将每个id值取出进行操作
不知如何实现？

另外　求　jmail　收　附件　的代码

谢谢！

[此贴子已经被作者于2005-10-26 11:49:53编辑过]

可以用数组

也可以用字符串的分割法，就是比如这样一串字符串。

a|b|c|d|e|f|这是一串字符，可以用Mid函数给分割成一个数组

分割后是Ary(0)="a",Ary(1)="b",……这样可以用一个字符串变量传递一个数组的值。

不知vbscript能否定义不定长的数组　还是要先定义一个足够大的数组？
传递时是只需将数组指针传过去吗？还是也要将数组大小传过去？　能否写一下定义数组的代码？

[此贴子已经被作者于2005-10-26 15:05:56编辑过]

回３楼　谢谢
但如将　"a,b,c,d,e,f,...."这样用逗号而不是竖线分割的字符串发过去
能否直接用　for　each．．in．．　而不用另外编写　分离出变量　的函数？

我到是有现成的函数
Public Function AryMidStr(sstr(),str)
       On Error Resume Next
       Dim tstr, mstr, tui
       Dim i, num, j
       num = 0
       For i = 0 To Len(str)
           tstr = Mid(str, i + 1, 1)
     IF tstr = "," Then
              num = num + 1
           End If
       Next
       ReDim sstr(num)
       j = 0
       For i = 0 To Len(str)
           tstr = Mid(str, i + 1, 1)
           IF tstr <> "," Then
              mstr = mstr & tstr
           Else
              IF j < num Then
                 sstr(j) = mstr
                 mstr = ""
                 j = j + 1
              End If
           End If
       Next
       AryMidStr = num
    End Function

用法示例
<%
Dim AryT()
Dim num
Dim Str
Dim i
Str="a,b,c,d,e,f,"
num=AryMidStr(AryT,Str)
For  i=0 to num
     Response.Write "AryT("&CStr(i)&")="&AryT(i)&"<br>"
Next
%>

第一个参数是数组接收分离出来的字符串，第二个参数是未被分离的字符串。返回值返回数组的大小也就是数组的元素个数。