建立費用表fy

連線資料庫省略

2.A

sql="select * from fy"

set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,3

do while not rs.eof

fyzh=fyzh+rs("費用")

loop

rs.movenext

%>

B

sql="select * from fy"

set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,3

do while not rs.eof

fyjs=fyjs+1

loop

rs.movenext

%>

3A

sql="select * from fy "

set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,3

ntime=year(date())

do while not rs.eof

if ntime=year(rs("時間")) then

fyzh=fyzh+rs("費用")

end if

loop

rs.movenext

%>

B

sql="select * from fy "

set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,3

ntime=year(date())

do while not rs.eof

if ntime=year(rs("時間")) then

fyjs=fyjs+1

end if

loop

rs.movenext

%>