Question

嵌套循环问题，asp的，求救

set rs=server.CreateObject("ADODB.RecordSet")
set rs12=server.CreateObject("ADODB.RecordSet")

rs.Source="select distinct cuxi from xiaxian "
rs.Open rs.Source,conn,1,1
Dim a
dim zl,i
i=0
redim a(rs.recordCount-1)
do while not rs.eof

rs12.Source="select long from xiaxian where cuxi='"&rs(0)&"'"
rs12.Open rs12.Source,conn,1,1
if not rs12.EOF then
do while not rs12.eof

zl=CInt(rs12(0))+CInt(zl)
rs12.MoveNext

loop
end if
a(i)=zl

%>
<tr>
<td height="18">  <%=request("pinming")%></td>
<td height="18">  <%=request("guige")%></td>
<td height="18" align="center"><%=rs(0)%></td>
<td height="18" align="center" colspan=2><%=zl%><%=a(i)%><%=rs.recordCount%>||<%=rs12.recordCount%></td>
</tr>

<%
rs.MoveNext
i=i+1
loop

%>
以上是代码，感觉没错啊，结果总是不对
数据如下：
color cuxi long
红 0.5 1000
绿 0.5 500
黑 0.75 2000
黄 4 100
白 2 1200

想按粗细 罗列出来，把都是0.5的长度加在一起，0.75 以及2 、4 对应的长度的总和显示出来，希望的现实结果如下
cuxi long
0.5 1500
0.75 2000
4 100
2 1200

Answer 1

没看懂你的意思，你是不是想按cuxi这个字段统计long的合计数呢？还是只把cuxi是0.5的加一起其他的不变？如果是第一种，一条sql语句就可以。
rs12.Source="select long from xiaxian where cuxi='"&rs(0)&"'"
上面这句话前加上zl=0
里面的每次循环完后要对zl重新赋值为0，否则会重复相加