saveorderdel.asp

自己开发的一个网站数据库系统,希望和大家一块交流学习

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"-->
<%
dim intId

intId=Request("id")
sql="delete from orders where id="&intId
'response.write sql
'response.End
conn.execute (sql)
 sql="select * from orderdetail where orderid="&intId
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "<font color=red>该定单没有任何商品呀</font>"
    else
    goodsno=rs.recordcount
    response.write "<font color=red>该定单共有"&goodsno&"件商品</font>"
    end if
    rs.close
   do while goodsno>0
    sql="select * from orderdetail where orderid="&intId
    rs.open sql,conn,3,3
    if rs.eof then
        response.write "<font color=red>该定单已经没有任何商品</font>"
    else
    rs.delete
    rs.update
    end if
    rs.close
    goodsno=goodsno-1
   loop
     response.write "<font color=red><p>定单和定单详情删除成功</font>"%>
<script language=Javascript>
<!--
alert("删除成功！");
window.location="<%=session("adminOldUrl")%>"
//-->
</script>