booksaleremove.asp

来自「所在类别： 随书资源/T 工业技术/TP 自动化技术、计算机技术/TP31 计算」· ASP 代码 · 共 17 行

<%@ LANGUAGE="VBScript"  %><% Response.Buffer=true %>
<% 
if request("SaleID")<>"" then
    '建立数据库连接
    Set cn=Server.CreateObject("ADODB.Connection") 
    cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
              "DataBase=图书销售;Data Source=(local)"
    cn.Open 
    querystr = "DELETE 订购记录 WHERE rec_id=" & request("SaleID")
    cn.execute querystr
    cn.Close
    set cn=nothing
end if
'返回订单显示页面
Response.Redirect "BooksSaleDetail.asp?UserID=" & request("UserID") & _
                   "&SaleDate=" &  request("SaleDate")
%>