list.asp

网店批发系统,很好很强大,很好很强大很好很强大

<%
dim action,listTitle,list_pic
dim listPro,listProNum,listquery
dim list_kkt,list_j,listpic
dim ProductNum,Total,ProType

'ClassTitle
listTitle = shop.connectXml(XML,"/language/list")
list_pic = shop.connectXml(XML,"/language/pic")

set list_kkt = new kktTemplate 

list_kkt.set_file "hndKktTemp", "kktTemplate/list.dwt"
list_kkt.set_block "hndKktTemp", "listProList", "a"

for list_j = 0 to UBound(listTitle)
	list_kkt.set_var "listTitle"&list_j, listTitle(list_j), false 
next
for list_j = 8 to 11
	list_kkt.set_var "list_pic"&list_j, list_pic(list_j), false 
next

'response.Write session("ProductList")
ProductNum = 0
total = 0
ProType = 0

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

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

if list_j <> -1 then
	for list_j = 0 to (listProNum - 1)
		list_kkt.set_var "ProductID", listPro(1+list_j), false
		list_kkt.set_var "ProductName", listPro(2+list_j), false
		list_kkt.set_var "ProductNum", listPro(4+list_j), false	
		list_kkt.set_var "ProductPrice", listPro(3+list_j), false	
		list_kkt.set_var "ProductTotal", listPro(3+list_j)*listPro(4+list_j), false
			listpic = shop.DBClass("Select ProductPic,ProductPic1 from Product where ProductID = "&listPro(1+list_j)&"")	
			list_kkt.set_var "ProductPic", listpic(0,0), false
		list_kkt.parse "a", "listProList", true
		
		ProductNum = ProductNum + listPro(4+list_j)
		total = total + listPro(3+list_j)*listPro(4+list_j)
		ProType = ProType + 1		
		
		list_j = list_j + 3
	next
end if

list_kkt.set_var "ProductNum", ProductNum, false 
list_kkt.set_var "total", total, false 
list_kkt.set_var "ProType", ProType, false 

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