<!--#include file="../../connshop.asp"-->
<!--#include file="../config.Inc"-->
<!--#include file="../Lebi_db_cls.asp"-->
<!--#include file="../Lebi_cache_cls.asp"-->
<!--#include file="../Lebi_cache.asp"-->
<!--#include file="../Lebi_LangInfo.asp"-->
<!--#include file="../Lebi_main.asp"-->
<!--#include file="../Lebi_function.asp"-->
<!--#include file="../Lebi_Word.asp"-->
<%
'**************************************
'* 最后更新 2012-06-30 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
connopen()
Dim strFile,sql,styletype
styletype = request("styletype")
Dim favocou,zj,cang,cookiesid
CookiesId = CheckNum(request.cookies(cookiesname&"_user")("cookiesid"),GetUserId())
moneyhl = request("moneyhl")
If Not IsNumeric(moneyhl) Or IsEmpty(moneyhl) Then moneyhl = 1
If request.cookies(cookiesname&"_user")("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
If Lebi_UserId <>"" Then
		cang=conn.execute("select count(id) from [Lebi_action] where user_id='"& Lebi_UserId &"'")(0)
Else
		cang=0
End If
response.write "document.getElementById('carttotalprice').innerHTML="""& formatnumber2(zj/moneyhl) &""";document.getElementById('carttotalnum').innerHTML="""& favocou &""";document.getElementById('carttotalfav').innerHTML="""& cang &""";"
connclose()
%>