在function中使用recordset对象

function GetTotalFee(rsObj)
set rs = rsobj


allsum = 0
rs.Movefirst

while not rs.eof 
      daysum =0
      for i=6 to rs.fields.count-8
      if instr(lcase(rs.fields(i).name),"remark")=0 then
        if Not IsNull(rs(rs.fields(i).name)) then 
            if cint(trim(rs(rs.fields(i).name)))<>0 then
                daysum=daysum+cint(trim(rs(rs.fields(i).name)))
                'Response.write daysum&"<br>"

            end if
        end if
      end if

      next

      allsum = allsum + cint(daysum)

 
rs.MoveNext

wend
GetTotalFee = allsum
end function

sql_display="select * from expense where fileno ='"&strBH&"' order by expenseDate asc"
    

    set objDisplay=conn.execute(sql_display)

调用

 <%=GetTotalFee(objDisplay) %>