刚学asp,遇到一个求和问题

[复制链接]
本帖最后由 xiao-jun 于 2010-4-27 16:03 编辑

怎么样把这些列出的费用,也自动求和,显示出来呢?





===========================================================以下是我的代码:

<table width="100%"  border="1" cellspacing="0" bordercolor="#000000">
  <tr bordercolor="#000000">
    <%
drss.movenext
III=III+1
loop
end if
%>
    <td width="8%"><div align="center"><b><b> 类型</b></b></div></td>
    <td width="16%"><div align="center"><b>业务金额</b></div></td>
  </tr>
  <% If Request.QueryString("CurPage")="" or Request.QueryString("CurPage")=0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If

if lid<>"" then
souselect=souselect&" and y_lei="&lid&""
end if
if tt<>"" then
souselect=souselect&" and y_zhuangtai="&int(tt)&""
end if
if request("souname")<>"" then
souselect=souselect&"and (y_zhuti like '%"&request("souname")&"%' or y_user like '%"&request("souname")&"%' or y_bjie like '%"&request("souname")&"%'  or y_user_kehu like '%"&request("souname")&"%')"
end if
set drs= Server.CreateObject("adodb.recordset")
drs.open ("select * from nnt_yewu "&souselect&" "&selectquan&" order by y_stime desc "),conn,1,1

if drs.eof then
                                  Response.Write("<tr><td colspan=6>该公司今日无任何已 完成 业务,请查询后再打印。</td></tr>")
                                  else
                                 
                                  dRS.PageSize=20
        Dim TotalPages   
        TotalPages = dRS.PageCount   
   
        If CurPage>dRS.Pagecount Then     
                CurPage=dRS.Pagecount   
        end if
   
    dRS.AbsolutePage=CurPage   
   
        drs.CacheSize = dRS.PageSize   
         
    Dim y_bjie
        y_bjie=split(drs("y_bjie"),"|@|")
        
        
        Dim Totalcount   
        Totalcount =INT(dRS.recordcount)
        do while (Not dRS.Eof) and (II<dRS.PageSize)
        y_user_kehu=split(drs("y_user_kehu"),"||")
%>
  <script language="JavaScript">
window.onload=function(){
obj=document.all.tags('INPUT');
for(i=0;i<obj.length;i++)
obj.value=(obj.parentElement.parentElement.sectionRowIndex-1);
}
</script>
  <tr bordercolor="#000000"  onmouseover="javascript:bgColor='#C8E4FF'">
    <td><div align="center"><%= yewulei_fen(drs("y_lei")) %></div></td>
    <td align="center"><% if drs("y_money")>0 then %>
        <font color="#FF3300"><%= FormatCurrency(drs("y_money")) %> </font>
        <% ElseIF drs("y_money")<0 then%>
        <font color="#006600"><%= FormatCurrency(drs("y_money")) %> </font>
        <% end if %></td>
  </tr>
  <tr>
    <td><div align="center" style="font-family: "黑体"; font-size: 14px; font-weight: bold">总金额</div></td>
    <td bordercolor="#000000"><div align="center">1</div></td>
  </tr>
</table>
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏
收藏0
本帖违规,我要举报
举报本帖
免责声明:
本站资源均来源于网络或是会员上传,版权和著作权归原作者所有,如有不愿意被转载,请点击这里通知我们第一时间删除!
所有资源仅供下载后在本地学习研究参考使用!您必须在下载资源后的24个小时之内,从您的电脑中彻底删除。
所有资源不能用于任何商业和非法目的,否则一切后果请用户自负。如您需要商用,请支持和购买正版,本站不对您的使用负任何责任!
会员所发布的信息中如有涉及到具体的第三方个人(单位/公司)隐私、商业秘密等,侵犯其权益,对其构成不良影响的,本站有权不做通知直接删除!

精彩评论2

跳转到指定楼层
#板凳
sukula 发表于 2015-11-19 11:30:46 | 只看该作者
我为人人,,,人人为我。。。。。
#沙发
maintank 发表于 2010-4-28 11:27:03 | 只看该作者
我也不懂 等着看看
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

关注0

粉丝5

帖子3

发布主题
15年专注源码提供
侵权投诉处理

点击这里投诉侵权

周一至周日10:00-21:00

反馈建议/违规信息举报

webmaster@souho.net 在线客服咨询

扫描二维码关注我们

严禁任何人以任何形式在本站发表与我国法律相抵触的言论!本站资源仅供本地学习研究,禁止用于任何违法犯罪活动!

搜虎源码所有资源来自网络收集整理,版权和著作权归原作者所有,仅供本地研究学习。若有侵权,请联系管理员及时删除!

所有资源严禁用于任何商业目的,否则一切后果请用户自负。如您需要商用,请支持和购买正版,本站不对您的使用负任何责任!

如会员所发布的信息中有涉及到具体的第三方个人(单位/公司)隐私、商业秘密等,侵犯其权益,对其构成不良影响的,本站有权不做通知将该信息予以直接删除处理!

网站备案号: 鄂ICP备17009394号-2