经测试，8.03 解决方法应该是这样才对：

请打开shop/shoppingcart.asp找到259行

   If ProID=0 Then  Proid=Conn.Execute("Select top 1 ProID From KS_ShopBundleSale Where ProID in(" & Session("ProductList") & ")")(0)  '如果没有传商品ID过来,随机找一条有捆绑销售的产品


将其改为如下代码即可
  
     If ProID=0 Then  Proid=Conn.Execute("Select top 1 ProID From KS_ShopBundleSale Where ProID in(select proid from ks_shoppingcart where username='" & GetUserID &"')")(0)  '如果没有传商品ID过来,随机找一条有捆绑销售的产品
     RS.Open "Select I.Tid,I.Fname,I.ID,I.Title,I.Price,I.PhotoUrl,B.KBPrice,B.Proid From KS_Product I Inner Join KS_ShopBundleSale b on i.id=b.kbproid Where B.proid=" & proid,conn,1,1

若不是这样，会有新的报错。

（仅本人测试结果，不代表所有人测试结果，请自行测试验正）