orderaction.asp

网络商城系统

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%dim action,id
action=request.querystring("action")
id=request.queryString("id")
select case action
case "del"
conn.execute "delete from theorder where order_id="&id
conn.execute "delete from basket where order_number='"&id&"'"
response.Redirect "ordermanage.asp"
case "delete"
conn.execute "delete from theorder where order_id="&id
conn.execute "delete from basket where order_number='"&id&"'"
response.Redirect "ordconfirmed.asp"
case "confirm"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from theorder where order_id="&id,conn,3,3
rs("order_confirm")=true
rs.Update
rs.Close
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('此订单已确认');"
response.write"this.location.href='ordermanage.asp';</SCRIPT>" 
case "cancel"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from theorder where order_id="&id,conn,3,3
rs("order_confirm")=false
rs.Update
rs.Close
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('此订单已解除确认');"
response.write"this.location.href='ordconfirmed.asp';</SCRIPT>" 
end select
%>