<!--#include file="../../top.asp"-->
<%
'**************************************
'* 最后更新 2010-09-20 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
Dim CookiesId
CookiesId = CheckNum(request.cookies(cookiesname&"_user")("cookiesid"),GetUserId())
Dim favocou,zj,cang
moneyhl = request("moneyhl")
If Not IsNumeric(moneyhl) Or IsEmpty(moneyhl) Then moneyhl = 1
If CookiesId <>"" Then
		set Rs = conn.execute("select basket_count,price,IsGift from [Lebi_lsbuy] where (sessionid="& CookiesId &" or (user_id = '"& Lebi_UserId &"' and user_id <> ''))")
		If rs.eof And rs.bof Then
				favocou=0
				zj=0
		Else
				Do While Not rs.eof
				favocou = favocou + rs(0)
				Select Case rs(2)
					   Case "0" zj = zj + rs(1) * rs(0)
				End Select
				rs.movenext
				loop
		End If
		rs.close:Set rs=Nothing
Else
		favocou=0
		zj=0
End If
response.write""& formatnumber2(zj/moneyhl) &"|"& favocou &""
%>