<!--#include file="conn.asp"-->
<%
dim id

id=usb(request.QueryString("id"))
set rsxl=Server.CreateObject("ADODB.Recordset")
rspl="select * from shop_xx where cstr(fid)='"&myid&"' and cstr(id)='"&id&"'"
rsxl.open rspl,connshop,1,2
if rsxl.eof then
Response.write "请从有效路径进入<br/>"
Else
%>
<%


call head()
Call saycarda("取消推荐")
%>
<!--#INCLUDE file="../bbs/sy1.asp"-->


<%sql="update [shop_xx] set zs=0 Where id="&id
  connshop.Execute(sql)%>
取消成功<br/>
<a href='mysp.asp?sid=<%=sid%>'>商品列表</a>|<a href='tdp.asp?sid=<%=sid%>&amp;id=<%=myid%>'>商店界面</a><br/>
<%end if%>
<!--#include file="fanhui.asp"-->
<%
call headsay()
%>
