buy.asp

一个简单的网上购物系统。ASP的源码！ 包括数据库的链接。

<%
'得到一个购买商品的属性
dim item(3)
item(0)=Request.QueryString("pid")
item(1)=Request.QueryString("pname")
item(2)=Request.QueryString("pp")
item(3)=Request.QueryString("ppp")


if IsEmpty(Session("basket")) then
  dim basket(0)
  basket(0)=item
  Session("basket")=basket
else
  basket=Session("basket")
  UB=UBound(basket)
  ReDim Preserve basket(UB+1)
  basket(UB+1)=item
  Session("basket")=basket
end if
%>

<table border="1">
<TR>
	<TH>商品名</TH>
	<TH>原价</TH>
	<TH>会员价</TH>
</TR>
<TR>
<%
for each item in Session("basket")
%>
<TD><%=item(1)%></TD>
<TD><%=item(2)%></TD>
<TD><%=item(3)%></TD>
</TR>
<%
next
%>


</table>
<p><a href="order.asp">下单</a></p>