<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="conn.asp"-->
<%
call head
dim TP,Action,id
Action=Request.QueryString("Action")
id=usb(request("id"))
tp=usb(request("tp"))
if tp<>1 then
if id="" then
  Call Error("ID无效！")
  end if

  Call saycardd("删除商品成功")
 connnong.Execute"delete from sd where id="&id
 Response.Write "删除商品成功"
else
  Call saycardd("删除商品")
    set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from sd where id="&id,connnong,1,1
  Response.Write "确定删除"&rs("name")&""
  rs.close
set rs=nothing
Response.Write "<br/><a href=""?tp=2&amp;id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">是</a>|<a href=""cksd.asp?sid="&sid&"&amp;saytk="&saytk&""">否</a>"
end if
Response.Write "<br/><a href=""cksd.asp?sid="&sid&"&amp;saytk="&saytk&""">返回商店后台</a>"
%>
<!--#include file="fanf.asp"-->
<%call head1()%>