del_orderlist.asp

来自「一套很早的多用户电子商务程序」· ASP 代码 · 共 20 行

<%@ LANGUAGE="VBScript" %>
<!--#include file="conn.asp"-->
<!--#include file="Check.asp"-->
<%
   dim SQL, Rs, contentID,CurrentPage
   CurrentPage = request("Page")
   contentID=request("ID")

   set rs=server.createobject("adodb.recordset")
   sqltext="delete from OrderList where Form_Id="& contentID
   rs.open sqltext,conn,3,3
   set rs=nothing
   
   set rs=server.createobject("adodb.recordset")
   sqltext="delete from ShopList where Form_Id="& contentID
   rs.open sqltext,conn,3,3
   set rs=nothing

   response.redirect "orderlist_check.asp?page="&CurrentPage
%>