一个简单的网上书城的例子（一）

结构:
第一个库shopbag.mdb,两个表:
buyiformation表存客户信息如下：
name,tel,address,productid,quatity,sum
第二个表products存商品信息：
categoryid（商品分类号），productid,productname,descrition,
ischeck(用户是否选这一商品），price(单价）

下面试一个工具文件！util.

<%
sub listcategory( conn )

   set rs = conn.execute( "category" )
   while not rs.eof
%>
　<a href=buy.asp?categoryid=<%=rs("categoryid")%>&description=<%=server.urlencode(rs("description"))%>>
<%=rs("description")%>
</a>　
<%
      rs.movenext
   wend
end sub

sub puttoshopbag( productid, productlist )
   if len(productlist) = 0 then
      productlist = "" & productid & ""
   elseif instr( productlist, productid ) <= 0 then
      productlist = productlist & ", " & productid & ""
   end if
end sub

%>