【 tulaoshi.com - ASP 】
clear.asp:清空所购全部物品!
<!--#include file="Util.asp" --
<%
Head="您放入购物袋的物品已全数退回!"
DbPath = SERVER.MapPath("ShopBag.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
Session("ProductList") = ""
Session("First")="yes"
%
<HTML
<HEAD<TITLE<%=Head%</TITLE</HEAD
<BODY BACKGROUND="b01.jpg"
<H2 ALIGN=CENTER<%=Head%<HR</H2
<CENTER
<A HREF=Check.asp查看购物袋</A <A HREF=Clear.asp退回所有物品</A<P
<% ListCategory conn %
</CENTER
</BODY
</HTML