order_del.asp

来自「一个不错的个人商务网站的源码」· ASP 代码 · 共 26 行

<%
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<%
ids=my_request("pid",0)
Page = my_request("Page",1)

id=split(ids,",")
for i=0 to ubound(id)

   sqltext="delete from buyer where ddbh='"&trim(id(i))&"'"
   conn.execute (sqltext)
   
   sqltext="delete from list where cartbh='"&trim(id(i))&"'"
   conn.execute (sqltext)
   response.write sqltext
   
next
   conn.close
   set conn=nothing
  response.redirect "AdminOrderList.asp?page="&Page
%>