del_orderlist.asp

一套很早的多用户电子商务程序

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<%
   billno=request("billno")
   user_id=Session("LoginSuccess")
   set rs=server.createobject("adodb.recordset")
   sqltext="select * from OrderList where user_id='"&user_id&"' and  billno='"&billno&"'"
   rs.open sqltext,conn,1,1
   if rs("f_pay")="已汇款" or rs("f_send")="已发货" then
   response.Write "此条订单已经处理，不能删除"
   response.end()
   end if
   rs.close:set rs=nothing
   
   p_shop=request.cookies("sp_name")

   set rs=server.createobject("adodb.recordset")
   sqltext="delete from OrderList where user_id='"&user_id&"' and billno='"&billno&"'"
   rs.open sqltext,conn,3,3
   set rs=nothing
   
   set rs=server.createobject("adodb.recordset")
   sqltext="delete from ShopList where Form_Id='"&billno&"'"
   rs.open sqltext,conn,3,3
   set rs=nothing
   
   response.redirect "odrsrchset.asp?page="&request("Page")
%>