<!--#include file="../conn.asp"-->
<%
Dim Num:Num=0
Dim ProductIDArr,Products:Products=Session("ProductList")
If Products<>"" Then
 ProductIDArr=Split(Products,",")
 Num=Ubound(ProductIDArr)+1
End If
Response.Write "document.writeln(""<img src='/Images/user/log/5.gif'><a href='/shop/shoppingcart.asp' target='_blank'>购物车 <span style='color:#ff0000'>" & Num & "</span> 件商品</a> | <a href='/user/user_Favorite.asp' target='_blank'>收藏夹</a> | <a href='/user/user_order.asp' target='_blank'>我的订单</a> | <a href='/user/user_ScoreExchange.asp' target='_blank'>积分兑换</a>"");"
%>
