新建 文本文档.txt

漂亮的模板,商店销售统计,日销售,月销售统计,销售录入

rsTotle=0
for i=1 to 31
Set Rs = Conn.execute("Select Sum(["&s_keyword&"]) as sumreveuue From SalesData where saleyear='"&msaleyear&"' and salemonth='"&s_yuefen&"' and saleday='&i&'")
"rs"&i=Rs("sumreveuue")
if Rs("sumreveuue")<>"" then 
sumreveuue=Rs("sumreveuue")
else
sumreveuue=0
end if
rsTotle=rsTotle+sumreveuue
next
%>