ASP
asp循环累加
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区下面代码是把根据时间把罚款查出来，现求如何循环把相同时间内的罚款累加到一起附给一个变量
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
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
...全文
