www.gusucode.com > 公寓出租网站整站源码 1.0程序 > admin/Admin_OrderDel.asp
<%@ 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 "Admin_Order.asp?page="&CurrentPage %>