28,390
社区成员
发帖
与我相关
我的任务
分享
<%set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn, 1, 1
if rs.eof and rs.bof then
response.write "还没有数据,请添加!"
Else
rs.pagesize=maxrecord
rs.AbsolutePage=currentpage
i=0
ss=0
do while not rs.eof%>
<td>
<%
if rs("shijian")<>"" then
dim date1,date2,s
s=0
date1=rs("bxsj")
date2=rs("shijian")
s = dateDiff("n",date1,date2)
response.Write(int(s/60)&"小时"&int(s mod 60)&"分钟")
else
response.write "----"
end if%>
</td>
<%
ss=ss+s
rs.movenext
dim sss
i=i+1
if i>=rs.pagesize then exit do
loop
sss=Int(ss / rs.recordcount)
%>
<td>
<%
if rs("shijian")<>"" then
dim date1,date2,s
s=0
date1=rs("bxsj")
date2=rs("shijian")
s = dateDiff("n",date1,date2)
response.Write(int(s/60)&"小时"&int(s mod 60)&"分钟")
else
response.write "----"
end if
%>
<%
set count_back=conn.execute(sql)
s2=0
do while count_back.eof=false
sql3="select sum(shijian-bxsj)*24*60*60*1000 from bx_info"
set rs_sum=conn.execute(sql3)
s2=s2+rs_sum(0)
count_back.movenext
loop
%> </td>
这样又算出来错误的。大神能再指导一下么,而且运行要好久。[/quote]
你用的是什么数据库? <td>
<%
if rs("shijian")<>"" then
dim date1,date2,s
s=0
date1=rs("bxsj")
date2=rs("shijian")
s = dateDiff("n",date1,date2)
response.Write(int(s/60)&"小时"&int(s mod 60)&"分钟")
else
response.write "----"
end if
%>
<%
set count_back=conn.execute(sql)
s2=0
do while count_back.eof=false
sql3="select sum(shijian-bxsj)*24*60*60*1000 from bx_info"
set rs_sum=conn.execute(sql3)
s2=s2+rs_sum(0)
count_back.movenext
loop
%> </td>
这样又算出来错误的。大神能再指导一下么,而且运行要好久。