<%dim rsfor,sqlfor
set rsfor=server.createobject("adodb.recordset")
sqlfor = "select * from [FOX_xinxi] order by b desc"
rsfor.open sqlfor,conn,1,3
do while not rsfor.eof

dim aaa,ccc
aaa=rsfor("b")-datediff("d",rsfor("fbsj"),date())
if aaa>0 or aaa=0 then
rsfor("b")=aaa
rsfor("fbsj")=now()
rsfor.update
end if
%>
<%
ccc=ccc+1
if ccc>=10 then exit do
rsfor.movenext
loop
rsfor.close
set rsfor=nothing
%>
</body></html>