<!--#include file="../conn.asp"-->
<!--#include file="../ks_cls/kesion.commoncls.asp"-->
<!--#include file="PackCart.asp"-->
<%
'****************************************************
' Software name:Kesion CMS 9.5
' Email: service@kesion.com . 营销QQ:4000080263  Tel:400-008-0263
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************

Dim KS:Set KS=New PublicCls
Dim Num:Num=Conn.Execute("Select count(1) From KS_Shoppingcart Where flag=0 and UserName='"& GetUserID & "'")(0)
Response.Write "document.writeln(""<a href='/shop/shoppingcart.asp' target='_blank'><span> " & Num & "</span></a>"");"
Set KS=Nothing
CloseConn
%>
