Question

ASP语句 求和

<!--#include file="conn.asp" -->
<%
cctv=request("cctv")
%>
<%
mtv=request("mtv")
%>
<%
if request.Cookies("user")="" then
response.Redirect("default.asp")
response.End()
end if
%>
<center>
<div class="tit"> <p><font size="5"><%=mtv%><%=cctv%>送货汇总表</font></div>
<%
exec="Select * from xxbg,subject where vill=subjectName and vill='"&cctv&"' and town='"&mtv&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if rs.eof then
response.write("<img src=img/6.gif>")
else
%>

<center>

<table cellSpacing="1" cellPadding="0" width="846"bgColor="#cccccc" border="0">
<tr>
<td rowspan="2" width="73" >流水号</td>
<td rowspan="2" width="97" >送货日期</td>
<td rowspan="2" width="97" >送货地址</td>
<td rowspan="2" width="73" >配货车</td>
<td colspan="2" >配货</td>
<td colspan="2" >回收</td>
<td rowspan="2" width="48" >实际</td>
<td rowspan="2" width="48" >周转</td>
<td rowspan="2" width="74" >优惠款</td>
<td rowspan="2" width="74" >应付款</td>
<td rowspan="2" width="49" >单价</td>
<td rowspan="2" width="74" >实付款</td>
</tr>
<tr>
<td width="31" >套</td>
<td width="31" >箱</td>
<td width="31" >套</td>
<td width="31" >箱</td>
</tr>
<%
rs.PageSize=20
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>
<tr>
<td width="73" ><%=rs("id")+("20090000")%></td>
<td width="97" ><%=rs("time1")%></td>
<td width="97" ><%=rs("town")%><%=rs("vill")%></td>
<td width="73" ><%=rs("pati")%></td>
<td ><%=rs("ylzh")%></td>
<td ><%=rs("iden")%></td>
<td ><%=rs("sey")%></td>
<td ><%=rs("sex")%></td>
<td width="48" ><%=rs("cause")%></td>
<td width="48" ><%=rs("mast")%></td>
<td width="74" ><%=rs("age")%></td>
<td width="74" ><%
a=rs("hao")
b=rs("ylzh")
c=a*b
response.write c
%></td>
<td width="49" ><%=rs("hao")%></td>
<td width="74" ><%=rs("yes")%></td>
</tr>
<%
rs.movenext
next
%>
<tr> <td rowspan="2" width="73" >
合计
</td>
<td rowspan="2" width="97" ></td>
<td rowspan="2" width="97" > </td>
<td rowspan="2" width="73" > </td>
<td width="31" ></td>
<td width="31" ></td>
<td width="31" > </td>
<td width="31" ></td>
<td rowspan="2" width="48" ></td>
<td rowspan="2" width="48" ></td>
<td rowspan="2" width="74" ></td>
<td rowspan="2" width="74" ></td>
<td rowspan="2" width="49" ></td>
<td rowspan="2" width="74" ></td></tr>
</table>

<%
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>
我想求这一块的合计，谢谢。答对问题，请再在下面回答一下。本题400分，谢谢各位了

http://zhidao.baidu.com/question/108097848.html

<td width="73" ><%=rs("id")+("20090000")%></td>
<td width="97" ><%=rs("time1")%></td>
<td width="97" ><%=rs("town")%><%=rs("vill")%></td>
<td width="73" ><%=rs("pati")%></td>
<td ><%=rs("ylzh")%></td>
<td ><%=rs("iden")%></td>
<td ><%=rs("sey")%></td>
<td ><%=rs("sex")%></td>
<td width="48" ><%=rs("cause")%></td>
<td width="48" ><%=rs("mast")%></td>
<td width="74" ><%=rs("age")%></td>
<td width="74" ><%
a=rs("hao")
b=rs("ylzh")
c=a*b
response.write c
%></td>
<td width="49" ><%=rs("hao")%></td>
<td width="74" ><%=rs("yes")%></td>

Answer 1

思路是这样的，有三个input 第一个是name第二个是起始时间stime要求日期格式第三个终止时间etime要求时间格式，提交后到处理页,首先做第二个和第三个input的时间检查。合格后处理，tname=request("name");stime=request("stime");etime=request("etime");
sql="select sum([ruku]) as [ruku1] where name='"&tname&"' and [time]=<#"&etime&"# and [time]>=#"&stime&"# " 这是ac库如果是sql库sql="select sum([ruku]) as [ruku1] where name='"&tname&"' and [time]=<'"&etime&"' and [time]>='"&stime&"'"这是列出一个人，列出所有人就是sql="select sum([ruku]) as [ruku1] where name='"&tname&"' and [time]=<#"&etime&"# and [time]>=#"&stime&"# group by [name]"

Answer 2

具体看不太清楚你要求哪的合计啊。给你个大概吧
条件那写你要求的字段的条件，如果是求所有和，就直接去掉where 条件就行了。
这个单独用的一个记录集RS2，不会跟你的那个记录集RS发生冲突，保证安全。
<%
Set Conn=Server.CreateObject("Adodb.Connection")
exec="Select * from 表名 where 条件"
set rs2=server.createobject("adodb.recordset")
rs2.open exec,conn,1,1
dim totalall
totalall=0
do while not rs2.eof
totalall+=rs2("要求和的字段名")
rs2.movenext
loop
rs2.close
set rs2=close
%>
把这个里面汉字该成你要求的，放到你输出合计之前就好。
然后在输出合计结果那，输出变量totalall的值就行了。
最简单的就这么输出<%=totalall%>这个放到你要输出的单元格那就OK

Answer 3

以配货中的套为例
<%
rs.PageSize=20
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.PageSize
'这里给配货(套)定个初始值
pht=0
if rs.EOF then
exit for
end if
%>
<tr>
<td width="73" ><%=rs("id")+("20090000")%></td>
<td width="97" ><%=rs("time1")%></td>
<td width="97" ><%=rs("town")%><%=rs("vill")%></td>
<td width="73" ><%=rs("pati")%></td>
<td ><%=rs("ylzh")%></td>
<td ><%=rs("iden")%></td>
<td ><%=rs("sey")%></td>
<td ><%=rs("sex")%></td>
<td width="48" ><%=rs("cause")%></td>
<td width="48" ><%=rs("mast")%></td>
<td width="74" ><%=rs("age")%></td>
<td width="74" ><%
a=rs("hao")
b=rs("ylzh")
c=a*b
response.write c
%></td>
<td width="49" ><%=rs("hao")%></td>
<td width="74" ><%=rs("yes")%></td>
</tr>

<%
'循环前累加配货的套数,让其循环一次加一次
pht=pht+rs("ylzh")
rs.movenext
next
%>
最后只需要在你需要显示结果的地方写上<%=pht%>

其他的你以此类推

Answer 4

什么意思呀
？