asp循环累加

[h554107392]

下面代码是把根据时间把罚款查出来，现求如何循环把相同时间内的罚款累加到一起附给一个变量
Select Case Request.ServerVariables("REQUEST_METHOD")
Case "POST"
shijian=request("shijian")
end select
If shijian<>"" Then
shijian1=shijian&"-"&"01"
set rs=server.CreateObject("adodb.recordset")
sql1="select fakuan from s_xinxibiao where jieanshijian like '%"&shijian1&"%'"
rs.open sql1,dbconn,1,1
If Not(rs.bof and rs.eof) Then
num3=black(cint(rs("fakuan")))
rs.close
set rs=nothing
end if
end if

[SNOYC]

cint(rs("fakuan")) ???那你为啥把这个还变成TEXT型呢

用2楼的SQL是可以的，换成int型或者decimal类型

[h554107392]

我们用的是access数据库 但是数据设计不是我做的

[lzp4881]

Select Case Request.ServerVariables("REQUEST_METHOD")
Case "POST"
shijian=request("shijian")
end select
If shijian<>"" Then
shijian1=shijian&"-"&"01"
set rs=server.CreateObject("adodb.recordset")
sql1="select sum(fakuan) as fakuan from s_xinxibiao where jieanshijian like '%"&shijian1&"%'"
rs.open sql1,dbconn,1,1
If Not(rs.bof and rs.eof) Then
num3=black(cint(rs("fakuan")))
rs.close
set rs=nothing
end if
end if

[h554107392]

补充一条 fakuan 在数据库中是文本类型