可以这样简略写的大概
<%
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
%>
<%= 小计%> ---显示小计