productedit_inc.asp

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

<%
	call CheckType(2)

	dim rs,i,j,ID,k,l,m
	dim Pro(14)
	Dim ProClass,ProClassNum
	Dim NewProClass

	ID=sqlcheck(request.QueryString("ID"))

	set rs=server.CreateObject("adodb.recordset")
	rs.open"Select ProductClassID,ProductPrice,ProductPrice1,ProductPic,ProductPic1,ProductContent,ProductName,ProductTuijian,ProductXinpin,ProductTejia,ProductJifen,ProductNum,ProductKey,ProductShortContent,ProductRemai from Product where ProductID="&ID,conn,1,1
		Pro(0)=rs("ProductClassID")
		Pro(1)=rs("ProductPrice")
		Pro(2)=rs("ProductPrice1")
		Pro(3)=rs("ProductPic")
		Pro(4)=rs("ProductContent")
		Pro(5)=rs("ProductName")
		Pro(6)=rs("ProductPic1")
		Pro(7)=checked(rs("ProductTuijian"))
		Pro(8)=checked(rs("ProductXinpin"))
		Pro(9)=checked(rs("ProductTejia"))
		Pro(10)=rs("ProductJifen")
		Pro(11)=rs("ProductNum")
		Pro(12)=rs("ProductKey")
		Pro(13)=rs("ProductShortContent")
		Pro(14)=checked(rs("ProductRemai"))
		
	rs.close
	
	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
%>