del.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp"-->
<!--#include file="../inc/DataUpdate_Application.asp"-->
<%
Call CheckAdminFlag(TempAdminFlag,3)

Dim Uid,Act
uid=CheckStr(Trim(Request("id")))
act=lcase(CheckStr(Trim(Request("act"))))


Function DelAucCount(DelId)
 Dim RsDelAucCount
 sql="select catid,catsonid,BBR_ClassPath from auctions where aucid in ("& DelId &")"
 set rsDelAucCount=conn.execute(sql)
 if Not RsDelAucCount.Eof then
   Do While Not rsDelAucCount.Eof

	Dim TempBBR_ClassPath
  	TempBBR_ClassPath=Replace(rsDelAucCount("BBR_ClassPath"),"|",",")
  	Call CnBBR_AucClass_Amount(TempBBR_ClassPath,0)

   rsDelAucCount.MoveNext
   Loop
 End if
 RsDelAucCount.Close
 Set RsDelAucCount=nothing
End Function

Function Cn_bbr_DelUser(UserID)

 sql="select regid from users where regid in ("& UserId &")"
 Set Rs=Server.CreateObject("ADODB.RecordSet")
 Rs.Open Sql,conn,1,3

 if Rs.Eof or Rs.Bof then
   Call AlertInfo("出错了，请先选择你要删除的用户！","",0)
 else
   Do While Not Rs.Eof
	Dim TempDelID
	TempDelID=Rs("RegID")


	Sql="delete"& SqlDiff &"from Msg where (WriterId="& TempDelID &" or OwnerId="& TempDelID &")"
	Conn.execute(Sql)


	Sql="delete"& SqlDiff &"from Cnbbr_Appraise where (Cnbbr_aAucOwnerID="& TempDelID &" or Cnbbr_aAucBuyerID="& TempDelID &")"
	Conn.execute(Sql)


	Sql="delete"& SqlDiff &"from Shops where ShopOwnerId="& TempDelID
	Conn.execute(Sql)


	Sql="delete"& SqlDiff &"from News where Newsauthor="& TempDelID
	Conn.execute(Sql)


	Sql="delete"& SqlDiff &"from Cnbbr_link where Cnbbr_lOwnerId="& TempDelID
	Conn.execute(Sql)


	Sql="delete"& SqlDiff &"from QiuGou where qgownerid="& TempDelID
	Conn.execute(Sql)


	Sql="delete"& SqlDiff &"from bids where bidbidderId="& TempDelID
	Conn.execute(Sql)


	Sql="delete"& SqlDiff &"from Ykjbids where YkjbidbidderId="& TempDelID &" or ykjbidsellerID="& TempDelID
	Conn.execute(Sql)


	Sql="Delete"& SqlDiff &"from AucImages where AucID in (Select Aucid from Auctions where AucItemOwner="& TempDelID &")"
	Conn.execute(Sql)

	DelAucCount("Select Aucid from Auctions where AucItemOwner="& TempDelID)

	Sql="Delete"& SqlDiff &"from Auctions where AucItemOwner="& TempDelID
	Conn.execute(Sql)



   Rs.MoveNext
   Loop
 End if
 Cnbbr_UpdateStarAuc
 Cnbbr_UpdateStarShop
End Function

  Dim SqlDel
  if act="user" then
     Call Cn_bbr_DelUser(Uid)
     sqldel="delete"& SqlDiff &"from users where regid in (" & uid & ")"
  elseif act="auc" then
     DelAucCount(Uid)
     Sql="delete"& SqlDiff &"from Cnbbr_Appraise where Cnbbr_aAucID in ("& UID &")"
     Conn.execute(Sql)


     Sql="delete"& SqlDiff &"from Msg where ownerid in (Select AucitemOwner from Auctions Where AucId in ("& uID &"))"
     Conn.execute(Sql)
     Sql="delete"& SqlDiff &"from Msg where Writerid in (Select AucitemOwner from Auctions Where AucId in ("& uID &"))"
     Conn.execute(Sql)

     Sql="delete"& SqlDiff &"from Bids where bidItemID in ("& uID &")"
     Conn.execute(Sql)

     Sql="delete"& SqlDiff &"from YkjBids where YkjbidItemID in ("& uID &")"
     Conn.execute(Sql)

     SqlDel="delete"& SqlDiff &"from AucImages where Aucid in ("& uid &")"
     Conn.execute(SqlDel)
     sqldel="delete"& SqlDiff &"from auctions where aucid in (" & uid & ")"
  elseif act="pj" then
     sqldel="delete"& SqlDiff &"from Cnbbr_Appraise where Cnbbr_aId in (" & uid & ")"
  elseif act="msg" then
     sqldel="delete"& SqlDiff &"from msg where msgid in (" & uid & ")"
  elseif act="qg" then
     sqldel="delete"& SqlDiff &"from qiugou where qgid in (" & uid & ")"
  elseif act="bid" then
     sqldel="delete"& SqlDiff &"from bids where bidid in (" & uid & ")"
  elseif act="ykj" then
     sqldel="delete"& SqlDiff &"from ykjbids where ykjbidid in (" & uid & ")"
  elseif act="shop" then

     Sql="delete"& SqlDiff &"from Cnbbr_link where Cnbbr_lOwnerid in (Select ShopOwnerID from Shops Where ShopId in ("& uID &"))"
     Conn.execute(Sql)

     sqldel="delete"& SqlDiff &"from shops where shopid in (" & uid & ")"
  elseif act="link" then
     sqldel="delete"& SqlDiff &"from Cnbbr_link where Cnbbr_lID in (" & uid & ")"
  elseif act="pay" then
     sqldel="delete"& SqlDiff &"from cnbbrpay where paylistid in (" & uid & ")"
  elseif act="news" then
     sqldel="delete"& SqlDiff &"from news where newsid in (" & uid & ")"
  elseif act="template" then
     sqldel="delete"& SqlDiff &"From Cnbbr_template where BBR_TemplateID in ("& UID &")"
  elseif act="templatecss" then
     sqldel="delete"& SqlDiff &"From Cnbbr_Skins where BBR_SkinsID in ("& UID &")"
  else
     response.write"<script language=javascript>alert('数据删除失败！');history.back(-1);</script>"
     response.end
  end if

  Conn.execute(sqldel)

  Response.write"<script language=javascript>alert('数据删除成功！');this.location.href='"& cnbbr_ComeUrl &"';</script>"
  Response.End
%>