可以这样简略写的大概
<%
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from 表 where ......),conn,1,1
if not rs.eof then
for i=1 to rs.recordcount
总数量记录数
数量=rs("数量")
小计=小计 +数量
----用的时候再改成你对应的名称
rsa.movenext
---循环往下加,,直到到达总记录条数。。。
next
%>
<%= 小计%>
---显示小计