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

怎么做

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编辑过]

<!--#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
%>

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