在session("shop")里头放入两个信息，一个是productID,productName,它们用逗号分隔开来。
代码像这样：
          <% 
        ProductID = Request.QueryString("ProductID")
        strSQL = "SELECT * FROM Products WHERE ProductID=" & ProductID 
        Set rs = SetDBRs(strConn, strSQL, "R")          
          dim prodcut 
          prodcut = Session("shop")
          if instr(prodcut,rs("ProductName")) = 0 then 
            prodcut=prodcut & rs("ProductID") & ","
              prodcut = prodcut & rs("ProductName") & ","
              Session("shop") = prodcut
          end if 
        
       %>
在读取出来的时候，利用如下代码：
<%              
               sp=split(Session("shop"),",")
            for i=Ubound(sp) to Lbound(sp) step -2
                    Response.Write "<table width=188 border=0 cellspacing=0 cellpadding=0><tr><td height=18><a href=Details.asp?ProductID="& sp(i) &">" & sp(i-1) & "</a></td></tr></table>"
            Next     
        %>
浏览的时候，提示超出边界，是怎么回事？如何改正呢？谢谢！