我要将列出的每条记录中的字段“金额”的数值相加，怎么写代码？请指点，感激不尽!!!
<%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("kly1.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from payout order by 凭证字号"
rs.Open sql,conn,3,2
if rs.EOF then
Response.Write "暂时没有任何人员信息!"
response.write"
请添加."
response.end
end if
page=clng(request("txtpage"))
rs.pagesize=15
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
%>
支出表
<% if page<>1 then%>
<% end if%>
<% if page<>rs.pagecount then%>
<% end if%>
<%
showonepage rs,page
%>
<%
sub showonepage(rs,page)
rs.absolutepage=page
for ipage=1 to rs.pagesize
rstoshow rs
rs.movenext
if rs.eof then exit for
next
end sub
%>
<%sub rstoshow(rs)%>
<% end sub%>
| 字号 | 日期 | 内容 | 金额(元) | 添加时间 | 删除 | 修改 |
<%=rs("凭证字号")%> | <%=rs("日期")%> | <%=rs("内容")%> | <%=rs("金额")%> | <%=rs("添加时间")%> | | |
页码:<%=page%>/<%=rs.pagecount%> |
<%rs.close%>
