admin_orderdel.asp

来自「破解版的企业网站源码！！ 绝对好用 适合各种企业应用 其中包包含产品展示 」· ASP 代码 · 共 22 行

<%@ LANGUAGE="VBScript" %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%
dim sqltext, rs, OrderNum,CurrentPage
CurrentPage = request("Page")
OrderNum=trim(request("OrderNum"))

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

set rs=server.createobject("adodb.recordset")
sqltext="delete from OrderDetail where OrderNum='"&OrderNum&"'"
rs.open sqltext,conn,1,3
set rs=nothing
conn.close

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