如何显示每页小计和最后页总计
我需要分多页显示数据,不知如何处理每页小计和最后页总计
数据来自查询数据库表。
我通过调用自定义过程display来格式化输出网页。
网页中用table插入每行记录。
<center><font face="仿宋_GB2312" size="5">帐户当前余额查询结果</font>
<p>
<%Rs.pagesize=15
RowCount =Rs.pagesize
call display
%>
<table border="1" cellspacing="0" cellpadding="4" width="687" >
<td align="center" width="48" ><font size="3">帐户号</font><td align="center" width="55"><font size="3">帐户简称</font><td align="center" width="86"><font size="3">上次余额(元)</font>
<td align="center" width="84"><font size="3">当前余额(元)</font><td align="center" width="100"><font size="3">开户行</font>
<td align="center" width="48"><font size="3">帐户性质</font>
<td align="center" width="88"><font size="3">最后一次发生额</font>
<td align="center" width="70"><span style="font-size:14.0pt;mso-bidi-font-size:12.0pt;
font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman";mso-bidi-font-family:"Times New Roman";mso-font-kerning:1.0pt;
mso-ansi-language:EN-US;mso-fareast-language:ZH-CN;mso-bidi-language:AR-SA">当天交易数<td align="center" width="132"><font size="3">最后变动日期</font>
<tr>
<%do while not rs.eof AND RowCount>0%>
<td align="center" height="1" width="48"><%Response.Write "<a href='act_bal_info1.asp?act_no="& rs("act_no") &"' target=blank>"%><%response.write rs("act_bank_no")%>
<td align="center" width="55"><%response.write rs("act_name2")%>
<td align="center" height="1" width="86"><%response.write unencrypt(trim(rs("act_old_bal")))%>
<td align="center" width="84"><%response.write unencrypt(rs("act_cur_bal"))%>
<td align="center" width="100" ><%response.write rs("bank_name")%>
<td align="center" width="48" ><%response.write rs("act_qua")%>
<td align="center" width="88" ><%response.write unencrypt(rs("act_amt"))%>
<td align="center" width="70" ><%response.write rs("act_count")%>
<td align="center" width="132" ><%response.write rs("act_date")%>
<tr>
<%
Rs.MoveNext
RowCount=RowCount-1
Loop
if request("design")<>"" then
call query_log
design=""
end if
else%>
</table>
</center>
<%
if request("cost")="" then
response.write "暂时没有数据!"
else
%>
' 以下是display过程
<%
sub display ' 翻页显示
rs.absolutepage=1
if request("page11")<>"" then
Rs.AbsolutePage =Request("page11")
end if
if request("sign_syh")=011 then
Rs.AbsolutePage =rs.pagecount
end if
if request("sign_syh")=000 then
Rs.AbsolutePage =1
end if
if request("sign_syh")=010 then
if Rs.AbsolutePage <>rs.pagecount then Rs.AbsolutePage=Rs.AbsolutePage+1
end if
if request("sign_syh")=001 then
if Rs.AbsolutePage <>1 then Rs.AbsolutePage=Rs.AbsolutePage-1
end if
dim len_i,len_p,len_q,len_j
dim design_s
design_s=1
if request("sign_syh")=101 then
if trim(request.form("page"))<>"" then
len_i=len(trim(request.form("page")))
for len_p=1 to len_i
if (57<asc(mid(trim(request.form("page")),len_p,1))) or (asc(mid(trim(request.form("page")),len_p,1))<48) then
design_s=0
end if
next
if asc(mid(trim(request.form("page")),1,1))=48 then design_s=0
if design_s=1 then
len_q=int(trim(request.form("page")))
len_j=rs.pagecount
if (len_q<=len_j) then
if len_q>0 then
rs.absolutepage=len_q
end if
end if
end if
end if
end if
i=rs.absolutepage
response.write " "
response.write " "
response.write " "
response.write " "
response.write " "
response.write "共"
response.write rs.pagecount
response.write "页"
response.write " "
response.write "第"
response.write Rs.AbsolutePage
response.write "页"
response.write "<input type='submit' value='第一页' name='bfirst' onclick='change_value(this)'>"
response.write "<input type='submit' value='上一页' name='bup' onclick='change_value(this)'>"
response.write "<input type='submit' value='下一页' name='bnext' onclick='change_value(this)'>"
response.write "<input type='submit' value='最末页' name='blast' onclick='change_value(this)'>"
response.write "<input type='submit' value='查 询' name='bquit' onclick='change_value(this)'>"
response.write "<input type='submit' value='最新记录' name='bnew' onclick='bal_open(this)'>"
response.write "第"
response.write "<input type=text name=page size='3'>"
response.write "页"
response.write "<input name='query' type='submit' value='查 看' onclick='change_value(this)'>"
response.write "<input type='hidden' value='00' name='sign_syh' >"
item_term1=request("item_term1")
item_select1=request("item_select1")
cost=request("cost")
item_term2=request("item_term2")
item_select2=request("item_select2")
cost1=request("cost1")
item_term3=request("item_term3")
item_select3=request("item_select3")
cost2=request("cost2")
response.write "<input type='hidden' value= '"& item_term1 &"' name='item_term1' >"
response.write "<input type='hidden' value= '"& item_select1 &"' name='item_select1' >"
response.write "<input type='hidden' value= '"& cost &"' name='cost' >"
response.write "<input type='hidden' value= '"& item_term2 &"' name='item_term2' >"
response.write "<input type='hidden' value= '"& item_select2 &"' name='item_select2' >"
response.write "<input type='hidden' value= '"& cost1 &"' name='cost1' >"
response.write "<input type='hidden' value= '"& item_term3 &"' name='item_term3' >"
response.write "<input type='hidden' value= '"& item_select3 &"' name='item_select3' >"
response.write "<input type='hidden' value= '"& cost2 &"' name='cost2' >"
response.write "<input type='hidden' name='page11' value='"& i &"'>"
end sub%>
现在无法实现在每页中显示小计金额和最后页中显示总计金额
帮帮我啊!!