del.asp

. 缓存处理技术

<!-- #include file="conn_and_config.asp" -->
<!--#include file="chksession.asp"-->
<%
Call Cnbbr_CheckPost(0)
Dim UID,Act
uid=CheckStr(Trim(Request("id")))
act=Lcase(CheckStr(Trim(Request("act"))))

if Uid="" or act="" then Call AlertInfo("出错了，参数传递有误！请重新尝试！","",0)

if Act="auc" then
   sql="select AucItemTitle,BBR_ClassPath,BidTimes,YkjBidTimes from auctions where (bidtimes+ykjBidTimes=0) and aucid in ("& uid &")"
   set Rs=conn.execute(sql)
   Do While Not rs.Eof
	if Rs("BidTimes")+Rs("YkjBidTimes")>0 then 
	   Response.Write"<Script language=javascript>alert('提示：商品〖"& Rs("AucItemTitle") &"〗已经有人出价，操作失败！');</Script>"
	end if

	Call SysCount(2,-1)
	Call ClassAucCount(Rs("BBR_ClassPath"),-1)
	Call UserAucCount(LoginedUserID,-1)
   rs.MoveNext
   Loop
   Sql="delete"& SqlDiff &"from AucImages where Aucid in ("& uid &")"
   Conn.execute(Sql)
End if


if Act="ly" then
   Sql="Select * from msg where msgid in ("& uid &")"
   set Rs=Conn.execute(sql)
   CnbbrConnTimes
   if Not Rs.Eof then
      Do while Not Rs.eof
	 if Clng(Rs("WriterId"))=Clng(Request.Cookies(Super_User)("Uid")) then
	    Sql="update msg set Sender_DelMsg=1 where msgid="& Rs("Msgid")
	    Conn.execute(sql)
	    CnbbrConnTimes
         elseif Clng(Rs("OwnerId"))=Clng(Request.Cookies(Super_User)("Uid")) then
	    Sql="update msg set Receiver_DelMsg=1 where msgid="& Rs("Msgid")
	    Conn.execute(sql)
	    CnbbrConnTimes
	 else
	    Call AlertInfo("短信息删除失败，你无权操作此信息！","",0)
	 end if
      Rs.MoveNext
      Loop
   end if
end if


  Dim SqlDel

  if act="auc" then
     sqldel="delete"& SqlDiff &"from auctions where AucitemOwner="& Request.Cookies(Super_User)("Uid") &" and aucid in (" & uid & ")"
  elseif act="ly" then
     sqldel="delete"& SqlDiff &"from msg where OwnerID="& Request.Cookies(Super_User)("Uid") &" and Sender_DelMsg=1 and Receiver_DelMsg=1 and msgid in ("& uid &")"
  elseif act="news" then
     sqldel="delete"& SqlDiff &"from news where NewsAuthor="& Request.Cookies(Super_User)("Uid") &" and newsid in ("& uid &")"
  elseif act="qg" then
     sqldel="delete"& SqlDiff &"from qiugou where QgOwnerID="& Request.Cookies(Super_User)("Uid") &" and qgid in ("& uid &")"
  elseif act="link" then
     sqldel="delete"& SqlDiff &"from Cnbbr_Link where Cnbbr_lOwnerID="& Request.Cookies(Super_User)("Uid") &" and Cnbbr_lid in ("& uid &")"
  else
     response.write"<script language=javascript>alert('数据删除失败！');history.back(-1);</script>"
     response.end
  end if
  Conn.execute(sqldel)


  Dim GoBackUrl
  Select Case act
    Case "auc": goBackUrl="BBR_Sell_Auction.asp"
    Case "ly": goBackUrl="cnbbrmsg_Receive.asp"
    Case "news": goBackUrl="shopNewsEdit.asp"
    Case "qg": goBackUrl="BBR_QiuGou_Edit.asp"
    Case "link": goBackUrl="Search_link.asp"
    Case else: goBackUrl="bbrHome.asp"
  End Select

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

Function DelAucCount(DelId)
 sql="select catid,catsonid from auctions where aucid in ("& DelId &")"
 set rs=conn.execute(sql)
 CnbbrConnTimes
 if rs.Eof then
   Call AlertInfo("出错了，请先选择你要删除的商品！","",0)
 else
   Do While Not rs.Eof


	 Call CnBBR_AucClass_Amount(rs("catid"),0)
	 Call CnBBR_AucClass_Amount(rs("catsonid"),0)

   rs.MoveNext
   Loop
 End if
End Function

%>