cart.asp

正版创力4.1SQL商业版!!!ASP版。

	else
		TaxCharge	= 0
		TempStr		= Replace(TempStr,"{$taxintro}","不需要")
	end if
	MoneyTotal		= MoneySum+DCharge+TaxCharge
	TempStr			= Replace(TempStr,"{$delivercharge}",DCharge)
	TempStr			= Replace(TempStr,"{$taxcharge}",TaxCharge)
	TempStr			= Replace(TempStr,"{$moneytotal}",MoneyTotal)
	TempStr			= Replace(TempStr,"{$moneysum}",MoneySum)
	TempStr			= Replace(TempStr,"{$presentexp}",PresentExp)
End Sub

Sub ProductBuy()
	Cl.Path=CurrentPath & " >> 收银台"
	Cl.Title="收银台--" & Cl.Title

	Dim ConSignee, Address, ZipCode, Phone, Email, DTypeCode
	ConSignee	= "" : Address	= "" : DTypeCode= ""
	ZipCode		= "" : Phone	= "" : Email	= ""
	If Cl.UserID > 0 then
		Email			= Cl.User_Info(7)
		Set Rs=Cl.Execute_U("Select UserReName,UserTelePhone,UserAddRess,ZipCode From "&Db.UserTable&" Where "&Db.UserID&"="&Clng(Cl.UserID)&"")
		if Not Rs.Eof Then
		ConSignee		= Rs(0) & ""
		Phone			= Rs(1) & ""
		Address			= Rs(2) & ""
		ZipCode			= Rs(3) & ""
		End if
		Rs.Close : Set Rs = Nothing
	End if
	Set RS=Cl.Execute("Select TypeID,TypeName,Intro,IsDefault from Cl_DeliverType where IsDisabled="&FalseType&" order by OrderID")
	Do while Not rs.eof
		if rs(3) then
		DTypeCode = DTypeCode & "<input type=""radio"" name=""DeliverType"" value="""&rs(0)&""" checked>"
		else
		DTypeCode = DTypeCode & "<input type=""radio"" name=""DeliverType"" value="""&rs(0)&""">"
		end if
		DTypeCode = DTypeCode & "&nbsp;"&rs(1)&"(<font color=blue>"&rs(2)&"</font>)<br />"
		Rs.movenext
	Loop
	Rs.Close : Set Rs = Nothing
	Call Template.Load(-2,15)
	TempStr	= Template.Html
	TempStr	= Replace(TempStr,"{$consignee}",ConSignee)
	TempStr	= Replace(TempStr,"{$phone}",Phone&"")
	TempStr	= Replace(TempStr,"{$email}",Email&"")
	TempStr	= Replace(TempStr,"{$zipcode}",ZipCode&"")
	TempStr	= Replace(TempStr,"{$address}",Address&"")
	TempStr	= Replace(TempStr,"{$delivertype}",DTypeCode)
	TempStr	= Replace(TempStr,"{$cartnav}",CartNav)
	TempStr	= Replace(TempStr,"{$cartlist}",CartList(1))
End Sub

Sub MyCart()
	Cl.Title="我的购物车--" & Cl.Title
	Cl.Path=CurrentPath & " &gt;&gt; 我的购物车"
	If InfoID > 0 Then
		Set Rs = Cl.Execute("select StockNum from Cl_Product Where InfoID="&InfoID&"")
		If Rs.Eof Then Call Cl.OutErr(0,"无此商品或商品已经暂停消售！")
		if rs("StockNum")<=0 then Call Cl.OutErr(0,"实在对不起，此商品已经暂停消售！")
		Set Rs = Nothing
		dim TmpCarts
		TmpCarts=Session("UserCart")
		if Instr("|"&TmpCarts,"|"&InfoID&":")=0 then
			if TmpCarts="" then
				TmpCarts=InfoID & ":1"
			else
				TmpCarts=TmpCarts & "|" & InfoID & ":1"
			end if
			Session("UserCart")=TmpCarts
		end if
	End If
	Call Template.Load(-2,14)
	TempStr		= Template.Html
	TempStr		= Replace(TempStr,"{$cartnav}",CartNav)
	TempStr		= Replace(TempStr,"{$cartlist}",CartList(0))
	TempStr		= Replace(TempStr,"{$isdisabled}",sDisabled)
End Sub

Sub ModifyCart()
	Dim sTemp,TmpID,i,TmpNum,TmpSession
	TmpSession=""
	sTemp = Split(Replace(Request("id")," ",""),",")
	For i=0 to ubound(sTemp)
		TmpID = sTemp(i)
		if TmpID<>"" and IsNumeric(TmpID) then
			TmpNum=Cl.GetClng(request.form("num_"&TmpID))
			if TmpNum=0 then TmpNum=1
			if TmpSession="" then
				TmpSession = TmpID & ":" & TmpNum
			else
				TmpSession = TmpSession & "|"&TmpID & ":" & TmpNum
			end if
		end if
	Next
	Session("UserCart")=TmpSession
	Call Cl.OutMsg(0,"成功更改了购物车内所选的商品！","Cart.asp")
End Sub

Function CartNav()
	Dim sName,sDiscount,sPrePrice,sMoney,sPoint,sTotalExp
	Dim sHTML
	if Not Cl.ChkUserLogin then
		sName		="游客"	: sDiscount	="不打折"
		sPrePrice	="不优惠": sMoney	=0
		sPoint		=0		: sTotalExp	=0
	Else
		sName		=Cl.MemberName: sDiscount	="不打折"
		sPrePrice	="不优惠"		: sMoney	=Cl.User_Info(16)
		sPoint		=Cl.User_Info(15): sTotalExp=0
	End If
	sHTML=Cl.Language.selectSingleNode("//User/CartNav").text
	sHTML=Replace(sHTML,"{$username}",sName)
	sHTML=Replace(sHTML,"{$groupname}",Cl.GetUserGroupName(Cl.UserGroupID))
	sHTML=Replace(sHTML,"{$discount}",sDiscount)
	sHTML=Replace(sHTML,"{$preprice}",sPrePrice)
	sHTML=Replace(sHTML,"{$usermoney}",sMoney)
	sHTML=Replace(sHTML,"{$userpoint}",sPoint)
	sHTML=Replace(sHTML,"{$totalexp}",sTotalExp)
	CartNav = sHTML
End Function

Function CartList(StrVar)
	Dim TmpCarts,i,TmpID,TmpSQL,TmpNum
	Dim sInfoID,sProductName,OriginalPrice,TruePrice,sDiscount
	Dim sPresent,Price,PriceSum,ExpSum
	Dim sHTML,sContentHTML,ListHTML,LoopStr,ReplaceStr

	TmpCarts	= Session("UserCart")
	sDisabled	= " disabled"
	TmpSQL		= "" : ListHTML=""
	if TmpCarts	= "" and StrVar=1 then Call Cl.OutMsg(0,"对不起！您目前好像还没有选购商品。","Cart.asp")
	sHTML		= Cl.Language.selectSingleNode("//User/CartList").text
	LoopStr		= Template.GetPartContent(sHTML,"[Cl_Loop]","[/Cl_Loop]")
	ReplaceStr	= "[Cl_Loop]" & LoopStr & "[/Cl_Loop]"

	TmpCarts	= Split(TmpCarts,"|")
	for i=0 to ubound(TmpCarts) 
		if TmpSQL="" then
		TmpSQL=left(TmpCarts(i),Instr(TmpCarts(i),":")-1)
		else
		TmpSQL=TmpSQL & "," & Left(TmpCarts(i),Instr(TmpCarts(i),":")-1)
		end if
	Next
	'Response.write TmpSQL
	'Response.end
	if TmpSQL<>"" then
		SQL="Select InfoID,ProductName,MarketPrice,MemberPrice,TruePrice,Discount,PresentExp,ProductUnit from Cl_Product Where Status=1 and InfoID in("&TmpSQL&")"
		Set Rs=Cl.Execute(SQL)
		if Not Rs.Eof then
		SQL = Rs.GetRows(-1)
		For i=0 to Ubound(SQL,2)
			sDiscount	= SQL(5,i)
			if sDiscount=10 then sDiscount="无"
			sInfoID	= SQL(0,i)
			sProductName= SQL(1,i)
			TmpNum		= Cart_Get_Num(sInfoID)'购物单品的数量
			If TmpNum <= 0 Then TmpNum = 1
			if Cl.UserGroupID=5 then
				OriginalPrice	= SQL(2,i)'原始零售价
				TruePrice		= OriginalPrice '游客使用市场价
			else
				OriginalPrice	= SQL(3,i)'原始零售价
				if SQL(4,i)>0 then
					TruePrice	= SQL(4,i)	'指定实际价
				else
					TruePrice	= OriginalPrice * (SQL(5,i)/10)'当前零售价×会员折扣率
				end if
			end if
			sPresent	= SQL(6,i)
			PriceSum	= TruePrice * TmpNum
			ExpSum		= sPresent * TmpNum
			PresentExp	= PresentExp + ExpSum'所购商品的积分合计
			MoneySum	= MoneySum + PriceSum'所购商品的总金额合计
			ListHTML	= LoopStr
			if StrVar=0 then
			ListHTML	= Replace(ListHTML,"{$checkbox}","<input type=checkbox name=id value='"&sInfoID&"' checked>")
			ListHTML	= Replace(ListHTML,"{$buynum}","<input type=text class=txt_num name=num_"&sInfoID&" value='"&TmpNum&"' size=3 maxlength=3 style='text-align: center;'>")
			else
			ListHTML	= Replace(ListHTML,"{$checkbox}",sInfoID&".")
			ListHTML	= Replace(ListHTML,"{$buynum}",TmpNum)
			end if
			ListHTML	= Replace(ListHTML,"{$productname}",sProductName)
			ListHTML	= Replace(ListHTML,"{$productunit}",SQL(7,i))
			ListHTML	= Replace(ListHTML,"{$originalprice}",Cl.FormatNum(OriginalPrice,2))
			ListHTML	= Replace(ListHTML,"{$discount}",sDiscount)
			ListHTML	= Replace(ListHTML,"{$trueprice}",Cl.FormatNum(TruePrice,2))
			ListHTML	= Replace(ListHTML,"{$pricesum}",Cl.FormatNum(PriceSum,2))
			ListHTML	= Replace(ListHTML,"{$expsum}",ExpSum)
			sContentHTML = sContentHTML & ListHTML
		Next
		sDisabled=""
		SQL=Empty
		End if
		Rs.close:Set rs=Nothing
	end If
	sHTML=Replace(sHTML,ReplaceStr,sContentHTML)

	sHTML=Replace(sHTML,"{$moneysum}",Cl.FormatNum(MoneySum,2))
	sHTML=Replace(sHTML,"{$presentexp}",PresentExp)
	CartList = sHTML
End Function

Function Cart_Get_Num(Byval sID)
	Cart_Get_Num = 1
	Dim sCarts,sTemp,sTempID,i
	sCarts	= Session("UserCart")
	If sCarts="" or IsNull(sCarts) Then Exit Function
	sID		= Cl.GetClng(sID)
	sTemp	= Split(sCarts,"|")
	For i=0 to ubound(sTemp)
		sTempID = Cl.GetClng(Split(sTemp(i),":")(0))
		If sID=sTempID then
			Cart_Get_Num = Cl.GetClng(Split(sTemp(i),":")(1))
			Exit Function
		End if
	Next
End Function

'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Com
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Com All Rights Reserved.
'==================================================
%>