日期:2014-05-17 浏览次数:20906 次
Set Rs = server.createobject("ADODB.Recordset") Sql = "select top 50 EditDate from Tbl where ValidityDate > '"& TodayDate &"' and IsPause = '0' order by EditDate desc" Rs.Open Sql , Conn , 3 , 2 If Rs.Eof and Rs.Bof Then Response.Write("无符合条件的信息!") Response.End() else do while not rs.eof Rs("EditDate")=Qsite.FormatDate(Now())'出错在这行 Rs.update rs.movenext loop End If Rs.Close