productadd_inc.asp

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

<%
	call CheckType(1)

	Dim rs,i,j,k,l,m
	Dim ProClass,ProClassNum
	Dim NewProClass
	i=0
	l=0
	
	set rs = conn.execute("Select ClassID,ClassName,ClassLevel,ClassHeadID from Class order by ClassLevel,orderid,ClassID desc")
	if not rs.eof then
		ProClass = rs.getrows
		ProClassNum = ubound(ProClass,2)
		if not isnumeric(ProClassNum) then
			ProClassNum = 1
		end if
	else	
		ProClassNum = -1
	end if
	
	i = ProClassNum
	NewProClass = ProClass
	
	'重新排列顺序
	for k = 0 to i
		if ProClass(2,k) = 0 then
		
			NewProClass(0,l)=ProClass(0,k)
			NewProClass(1,l)=ProClass(1,k)
			NewProClass(2,l)=ProClass(2,k)
			l=l+1
			
			checkChild(ProClass(0,k))
		end if
	next
	
	function checkChild(father)
		dim n
		for n = 0 to i
			if ProClass(3,n) = father then
			
				NewProClass(0,l)=ProClass(0,n)
				NewProClass(1,l)=ProClass(1,n)
				NewProClass(2,l)=ProClass(2,n)
				l=l+1
				checkChild(ProClass(0,n))
			end if		
		next
	end function
	
	for k = 0 to (i-1)
			NewProClass(3,k)=""
		for m = 1 to NewProClass(2,k)
			NewProClass(3,k)=NewProClass(3,k)&"-"
		next
	next
%>