www.gusucode.com > 528人才招聘网整站源代码-蓝色经典 精简版 2.0源码程序 > check.asp
<% set rs8=server.createobject("adodb.recordset") set rs9=server.createobject("adodb.recordset") sql8="select * from en_user order by id asc " rs8.open sql8,conn,1,1 if rs8.recordcount>100 then if date()-rs8("rdate")>30 then sql9="DELETE FROM en_user WHERE id="&rs8("id") rs9.Open sql9,conn,1,1 set rs19=nothing end if end if set rs8=nothing set rs8=server.createobject("adodb.recordset") set rs9=server.createobject("adodb.recordset") sql8="select * from in_user order by id asc " rs8.open sql8,conn,1,1 if rs8.recordcount>100 then if date()-rs8("rdate")>100 then sql9="DELETE FROM in_user WHERE id="&rs8("id") rs9.Open sql9,conn,1,1 set rs19=nothing end if end if set rs8=nothing %>