delorderlist.asp

来自「青岛远程电子工程有限公司整站 青岛远程电子工程有限公司整站 青岛远程电子工」· ASP 代码 · 共 21 行

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

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

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

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