shop_clearbasket.asp

来自「后台登陆admin.asp」· ASP 代码 · 共 52 行

<!--#include file="mdb.asp"-->
<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
if UserLogined<>True then
        response.write"<SCRIPT language=JavaScript>alert('对不起，您不是我们的会员或还没有登陆，请注册或登陆！');"
        response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if request("basket_id")="" then
        sql="select * from shop_basket where user_id='"&Hx66_name&"' and basket_check=false"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
        response.redirect "shop_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 "shop_Buy.asp"
else
    sql="select * from shop_basket where user_id='"&Hx66_name&"' and basket_id="&int(request("basket_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
        response.redirect "shop_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 "shop_Buy.asp"
end if
%>