autodel.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<%
function autodel(ttime)
if not cint(DateDiff("d",ttime,now())) mod 3=0 then
   set rs=server.CreateObject("adodb.recordset")
   sqlstr="select top 1 * from hx66_bbsset"
   rs.open sqlstr,conn,1,3
   if not rs.eof then
      if rs("hx66_bbsdeled")=1 then
         rs("hx66_bbsdeled")=0
         rs.update
      else
         exit function
      end if
   end if
   rs.close
   set rs=nothing
   exit function
else
   set rs=server.CreateObject("adodb.recordset")
   sqlstr="select top 1 * from hx66_bbsset"
   rs.open sqlstr,conn,1,1
   if not rs.eof then
      if rs("hx66_bbsdeled")=1 then
         exit function
      else
         dim rss,sqlstrs
         set rss=server.CreateObject("adodb.recordset")
         sqlstrs="select top 1 * from hx66_bbs order by id desc"
         rss.open sqlstrs,conn,1,1
         dim nid,candel
             if not rss.eof then
                nid=rss("id")
                candel=nid-candelnum
             else
                exit function
             end if
         rss.close

         sqlstrs="select * from hx66_bbs where id<="&candel&" and DateDiff('d',hx66_time,now())>="&candelday
         rss.open sqlstrs,conn,1,3
         dim rssc,sqlstrsc
         set rssc=server.CreateObject("adodb.recordset")
         do while not rss.eof
         sqlstrsc="select * from hx66_saybbs where hx66_iid="&rss("id")
         rssc.open sqlstrsc,conn,1,3
         do while not rssc.eof
         rssc.delete
         rssc.movenext
         loop
         rssc.close
         rss.delete
         rss.movenext
         loop
         set rssc=nothing
         rss.close

         'sqlstrs="select * from hx66_ltlink where DateDiff('d',hx66_time,now())>=hx66_day"
         'rss.open sqlstrs,conn,1,3
         'do while not rss.eof
         'rss.delete
         'rss.movenext
         'loop
         'rss.close

         sqlstrs="select top 1 * from hx66_bbsset"
         rss.open sqlstrs,conn,1,3
             if not rss.eof then
                rss("hx66_bbsdeled")=1
                rss.update
             end if
        rss.close
        set rss=nothing

     end if
   end if
rs.close
set rs=nothing
end if
end function
%>