clearbasket.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="top.asp"-->
<%
if session("user_id")="" then
        response.redirect "error.asp?error=006"
response.end
end if
user_id=session("user_id")
if request("basket_id")="" then
        sql="select * from 56770_basket where user_id='"&user_id&"' and basket_check=false"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
        response.redirect "Buy.asp"
else
        do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "Buy.asp"
else
        sql="select * from 56770_basket where basket_id="&request("basket_id")
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
        response.redirect "Buy.asp"
else
        do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "Buy.asp"
end if
%>