del_product.txt

来自「123基于web的网络购物系统附毕业设计论文」· 文本 代码 · 共 18 行

<%@ LANGUAGE="VBSCRIPT" %>
<%
if request.cookies("adminok")="" then
  response.redirect "shop_login.htm"
end if
%>
<!--#include file="conn.asp"-->
<%
   dim SQL, Rs, contentID,CurrentPage
   CurrentPage = request("Page")
   contentID=request("ID")

   set rs=server.createobject("adodb.recordset")
   sqltext="delete from Product where Product_No="& contentID
   rs.open sqltext,conn,3,3
   set rs=nothing
   response.redirect "product_check.asp?page="&CurrentPage
%>