cart.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 50 行

<%
dim cart,c_pic
dim cart_kkt,cart_j
dim ProductNum,total
dim listPro,listProNum

'userlogin
cart = shop.connectXml(XML,"/language/cart")  
c_pic = shop.connectXml(XML,"/language/pic") 

set cart_kkt = new kktTemplate    
             				
cart_kkt.set_file "hndKktTemp", "kktTemplate/cart.dwt" 	

for cart_j = 0 to 7
	cart_kkt.set_var "cart"&cart_j, cart(cart_j), false 
next

cart_kkt.set_var "c_pic2", c_pic(2), false 

ProductNum = 0
total = 0

listPro = split(session("ProductList"),",")
listProNum = ubound(listPro)

if listProNum <= 0 then
	listProNum = -1
end if

if cart_j <> -1 then
	for cart_j = 0 to (listProNum - 1)
		cart_kkt.set_var "ProductNum", listPro(4+cart_j), false	
		cart_kkt.set_var "ProductTotal", listPro(3+cart_j)*listPro(4+cart_j), false
		
		ProductNum = ProductNum + listPro(4+cart_j)
		total = total + listPro(3+cart_j)*listPro(4+cart_j)	
		
		cart_j = cart_j + 3
	next
end if

cart_kkt.set_var "ProductNum", ProductNum, false 
cart_kkt.set_var "total", total, false 

cart_kkt.parse "out", "hndKktTemp", false      				
cart_kkt.p "out"                              			
set cart_kkt = nothing   
           			
%>