del_orderlist.asp

一个非常好的旅游网站程序.

<%@ LANGUAGE="VBSCRIPT" %>

<%
 '＝＝＝＝＝＝＝＝＝＝＝＝＝删除客户订单＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
if request.cookies("sp_name")="" then
  response.redirect "login.asp"
end if
%>
<!--#include file="conn.asp"-->
<%
   dim SQL, Rs, contentID,CurrentPage,p_shop
   CurrentPage = request("Page")
   contentID=request("ID")
   p_shop=request.cookies("sp_name")

   set rs=server.createobject("adodb.recordset")
   sqltext="delete from OrderList where p_shop='"&p_shop&"' and 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
%>