例如"
数据库 表为 ABC
ABC中有 Q W E R T Y 这几个项
我要实现
Q W E R T Y 中所有数据 的总和

怎么做

'求数据库中字段总和的函数
'参数一:数据库中的表明
'参数二:字段名
'参数三:ADODB.Connection连接(已经连接数据库)
Function SumTotalField(TBName,FieldName,Con)
Dim rsSum
Set rsSum=Con.Execute("select Sum("&FieldName&") From "&TBName)
SumTotalField=rsSum.Fields(0).Value
rsSum.Close
Set rsSum=Nothing
End Function
'用法:求表ABC中字段Q的总和(省略数据库连接对象ADODB.Connection的连接代码)
Dim SumQ
SumQ=SumTotalField("ABC","Q",con)
Response.Write SumQ

person为表的名字
jifen为我的字段名
我想求jifen字段中所有ID的总和
如用户2的积分为200
用户3的积分为300
还有很多用户....
怎样让它得出500来呢
<!--#include file=conn.asp-->
<%
Function SumTotalField(person,jifen,Con)
Dim rsSum
Set rsSum=Con.Execute("select Sum("&person&") From "&jifen&"")
SumTotalField=rsSum.Fields(0).Value
rsSum.Close
Set rsSum=Nothing
End Function

Dim Sumjifen
Sumjifen=SumTotalField("person","jifen",con)
Response.Write Sumjifen
%>

为什么不行那,


错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'Con'
/ceshi.asp, 第 10 行


先谢谢 您

[此贴子已经被作者于2007-5-2 21:07:07编辑过]

把conn.asp的代码贴上来。

<!--#include file=Neeao_SqlIn.Asp-->
<%set conn=server.createobject("adodb.connection")
conn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath(dbPath&"/"&dbname)
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
dim
%>

<!--#include file=conn.asp-->
<%
Function SumTotalField(person,jifen,Con)
Dim rsSum
Set rsSum=Con.Execute("select Sum("&person&") From "&jifen&"")
SumTotalField=rsSum.Fields(0).Value
rsSum.Close
Set rsSum=Nothing
End Function

Dim Sumjifen
Sumjifen=SumTotalField("person","jifen",conn)
Response.Write Sumjifen
%>
改成这样呢？

还是不成
Microsoft JET Database Engine (0x80040E37)
Microsoft Jet 数据库引擎找不到输入表或查询 'jifen'。 确定它是否存在，以及它的名称的拼写是否正确。
这行错误: Set rsSum=Con.Execute("select Sum("&person&") From "&jifen&"")

Function SumTotalField(person,jifen,Con)
Dim rsSum
Set rsSum=Con.Execute("select Sum("&jifen&") From "&person&"")
SumTotalField=rsSum.Fields(0).Value
rsSum.Close
Set rsSum=Nothing
End Function
把表名跟列名搞翻了。