bbr_sellershopcommend.asp

. 缓存处理技术

<!-- #include file="conn_and_config.asp" -->
<!--#include file="chksession.asp"-->
<!--#include file="ChkUserShop.asp"-->
<%
Dim UID,Act,BBR_SellerCommend
uid=Request.Form("id")
act=Request.Form("act")
BBR_SellerCommend=Request.QueryString("BBR_SellerCommend")
if Not isNum(BBR_SellerCommend) then Call AlertInfo("出错了，参数传递有误！请重新尝试！","",0)
if BBR_SellerCommend<>0 then BBR_SellerCommend=1

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

sql="select catid,catsonid,BBR_SellerCommend from auctions where aucid in ("& uid &")"
set rs=Server.CreateObject("ADODB.Recordset")
Rs.Open Sql,conn,1,3
CnbbrConnTimes
if rs.Eof then
   Call AlertInfo("出错了，请先选择你要在店铺推荐的商品！","",0)
else
   Do While Not rs.Eof 

	rs("BBR_SellerCommend")=BBR_SellerCommend
	rs.update
   rs.MoveNext
   Loop
End if
if BBR_SellerCommend=1 then
   Response.write"<script language=javascript>alert('店铺首页商品推荐成功！');this.location.href='"& cnbbr_ComeUrl &"';</script>"
   Response.End
else
   Response.write"<script language=javascript>alert('商品已取消店铺首页推荐！');this.location.href='"& cnbbr_ComeUrl &"';</script>"
   Response.End
end if

Rs.Close
Set Rs=nothing
%>