<!--#include file="connbbs.asp"-->
<!--#include file="connre.asp"-->
<%
cut
function cut
sqlre="select rootid from rose_ege " 
set rsre=connre.execute(sqlre)
 if not rsre.eof then
 do while not rsre.eof 
 rootid1=rsre(0)
 sqlbbs="select rootid from bbs1 where rootid="&rootid1
 set rsbbs=connbbs.execute(sqlbbs)
   if rsbbs.eof then
   rootid=rootid1&","&rootid
   end if
   rsbbs.close
   set rsbbs=nothing
   rsre.movenext
    loop
	end if
	if len(rootid)<>0 then
	rootid="("&left(rootid,len(rootid)-1)&")"
sqlre="delete from rose_ege where rootid in "&rootid
 connre.execute(sqlre)
 response.write"<div align=center><br><table border=1 cellpadding=2 bordercolor=black bgcolor=#EEEEEE ><tr><td height=5 style='font:9pt Verdana;color:red;' nowrap>数据库中共<font color=blue>"&count&"</font>冗繁数据清除完毕插件开发：<a href='http://www.jmjh.net/bbs' target='_blank'>rexsp</a></td></tr></table></div>"
 else
 response.write"<div align=center><br><table border=1 cellpadding=2 bordercolor=black bgcolor=#EEEEEE <tr><td height=5 style='font:9pt Verdana;color:red;' nowrap>数据库中没有冗繁数据  插件开发：<a href='http://www.jmjh.net/bbs' target='_blank'>rexsp</a></td></tr></table></div>"
 end if
 end function

%>