bs_eshop_del.asp

来自「ChinaWeb标准企业网站管理系统 V3.01」· ASP 代码 · 共 31 行

<!--#include file="bsconfig.asp"-->
<%
'=========================================================
'
' 产品名称：良精科技 公司(企业)网站管理系统（简称：myszw.com）
' 版权所有: myszw.com 
' 程序制作：myszw.com开发团队
' Copyright 2004-2005 myszw.com - All Rights Reserved. 
'
'========================================================
%>
<%
dim SQL, Rs, contentID,CurrentPage

CurrentPage = request("Page")
contentID=request("ID")

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

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

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