class.asp

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

<%
dim C_ClassID,C_ClassLevel
dim ClassTitle
dim ProClass,ProClassNext,query
dim ProClass_kkt,ProClass_j,ProClass_w

C_ClassID=shop.sqlcheck(Request.QueryString("ID"))

'ClassTitle
ClassTitle = shop.connectXml(XML,"/language/class")
	
'ProClass
if C_ClassID = "" then
	query = "Select ClassID,ClassName,ClassHeadID,ClassLevel from [Class] where ClassLevel = 0 or ClassLevel = 1 ORDER BY orderid,ClassID desc"
else
	query = "Select ClassID,ClassName,ClassHeadID,ClassLevel from [Class] where ClassHeadID = (Select ClassHeadID from [Class] where ClassID = "&C_ClassID&") or ClassLevel = (Select ClassLevel from [Class] where ClassID = "&C_ClassID&") + 1  ORDER BY orderid,ClassID desc"	
end if
ProClass = shop.DBClass(query)

set ProClass_kkt = new kktTemplate 

ProClass_kkt.set_file "hndKktTemp", "kktTemplate/class.dwt"

ProClass_kkt.set_block "hndKktTemp", "ProClassList", "a"
ProClass_kkt.set_block "ProClassList", "nextList", "n"

ProClass_kkt.set_var "ClassTitle", ClassTitle(0), false 

if ArrayNum <> -1 then
	if C_ClassID = "" then
		C_ClassLevel = 0
	else
		C_ClassLevel = ProClass(3,0)
	end if

	for ProClass_j = 0 to UBound(ProClass,2)
		if ProClass(3,ProClass_j) = C_ClassLevel then
			ProClass_kkt.set_var "ClassID", ProClass(0,ProClass_j), false
			ProClass_kkt.set_var "ClassName", ProClass(1,ProClass_j), false	
			ProClass_kkt.unset_var "n" 
			for ProClass_w = 0 to UBound(ProClass,2)
				if ProClass(3,ProClass_w) = (C_ClassLevel + 1) and ProClass(2,ProClass_w) = ProClass(0,ProClass_j) then
					ProClass_kkt.set_var "nClassID", ProClass(0,ProClass_w), false
					ProClass_kkt.set_var "nClassName", ProClass(1,ProClass_w), false
					ProClass_kkt.parse "n", "nextList", true
				end if	
			next
			ProClass_kkt.parse "a", "ProClassList", true
		end if
	next
else
	Response.Write("该类别不存在")
	Response.End()
end if

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