日期:2014-05-17 浏览次数:21089 次
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