<% 
    Dim arr_Ident(2)
    arr_Ident(0)="jjfz"
    arr_Ident(1)="ybdy"
    arr_Ident(2)="zsdy"
    Dim sum_i,sum_g,zy,sum,condition
    zy=0
    pi=1
    sum_g=year(date())
    sum_i=0
      set rs=server.createobject("adodb.recordset")
    do while sum_g>0
    do while zy<=3
    do while sum_i<3
    condition=arr_Ident(sum_i)
    sql="select Grade,djob from File_info "&_
    "where Name<>'' and Grade="&sum_g&" and djob="&zy
    rs.open sql,conn,3,2
    Response.write ""&sql&"<Br>"
    sum=rs.recordcount
    Response.write ""&sum&"<Br>"
    sql="select * from conclusion where Ident="&sum_i&" and Grade="&sum_g&" and djob="&zy
    rs.open sql,conn,3,3
    if not (rs.eof and rs.bof) then
    sql="update conclusion set "&condition&"="&sum&" where Ident="&sum_i&" and Grade="&sum_g&" and djob="&zy
    else
    sql="insert into conclusion([Ident],[Grade],[djob],["&condition&"]) values ("&sum_i&","&sum_g&","&zy&","&sum&")"
    end if
    rs.execute(sql)
    sum_i=sum_i+1
    loop
    zy=zy+1
    sum_i=0
    loop
    zy=0
    sum_g=sum_g-1
    loop
    rs.close
    set rs=nothing
%>

1，显示的sum永远是0，但是数据库中有符合条件的，很疑惑
2，不能写入conclusion表

望高手不吝赐教，在此万分感谢！