clear.asp

ASP入门与提高实用教程 源文件(上传网站)

<!--#include file="conn.asp"-->
<%
if session("user_name")="" then
    response.write "你尚未登录或不是本站会员<br>请登录后再来订购本站货物！"
    response.end
end if
user_name=session("user_name")
if request("basket_id")="" then
    sql="select * from basket where user_name='"&user_name&"' 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 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 
%>