各位老师：

下表是查询结果表，如何获取“类型”中第一个“高”与第二个“高”、第二个“高”与第三个“高”......之间的间隔数？最大的间隔是多少？？

（以下表为例：第一个“高”与第二个“高”间距为 2；第二个“高”与第三个“高”的间距为 1；第三个“高”与第四个“高”的间距为 3；第四......；它们之间最大的间距是第三个“高”与第四个“高”的间距，间距为 3）；请问各位老师，怎么实现？感谢！！非常急！先谢了！！

序号    类型
1        高
2      
3      
4        高
5      
6        高
7     
8     
9      
10       高
11   
12       高
13       高
14     
15     
…………….   

如果用ArrayList两个循环怎么写！是否可以给些代码？感谢！！

自己顶一下！

<%
id="4-1,6-4,10-6,12-10,13-12,...."  ’第二个高的ID-第二个高的ID；第三个高的ID-第二个高的ID.......
‘ID="3,2,4,2,1......"‘怎么获取？？

    Public Function max(strarr,outtype)
      Dim strsplit,tempmin,tempmax,i
      strsplit = split(id,",")
      tempmin = strsplit(0)
      tempmax = strsplit(0)
    For i=0 to ubound(strsplit)
    If strsplit(i)<tempmin then tempmin=strsplit(i)
    If strsplit(i)>tempmax then tempmax=strsplit(i)
  Next
    If outtype=1 then
    max=tempmax
  Else
    max=tempmin
  End if
  End Function
%>
如何获取ID的这个数组？如果能这样获取，用上面的代码应该就可以实现，但这数组不晓得怎么获取！！

麻烦各位老师帮帮忙了！！

非常感谢老师！

老师：
CStr(num) 可以获取最大间隔数；
CStr(i)  可以获取倒数第一个“高”到最后一条信息的间隔数
最大间隔数、倒数第一个“高”到最后一条信息的间隔数都实现了，现在就要只需实现倒数第一个“高”到倒数第二个“高”的间隔数了，感谢老师再看看怎么修改？
<%
dim isgao
i = 0
num = 0
isgao = true
do while not rs.eof
    if rs("类型") = "高" then
        isgao = false
    end if
    if isgao then
        i = i + 1
    else
        if i > num then
            num = i
        end if
        i = 0
        isgao = true
    end if
    rs.movenext
loop
response.write "最大间隔为" & CStr(num)
response.write "倒数第一个高到最后一条信息的间隔为" & CStr(i)
response.write "倒数第一个高到倒数第二个高的间隔为" & ......
%>

是呀！但倒数第二个元素我不知道怎么取！尝试了很多，但都不成功！

数据是存在数据库里的，表名是SG；字段有四：ID  GAO  ZHONG  AI

是的！

太感谢了老师！感谢！！