productmanage_inc.asp

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

<%	
	call CheckType(0)

	dim rs,RecordNum,i,j,PageNum,PageEnd,DataName,Query,ProductClassID
	dim Product,ClassType,lx
	Dim k,l,m,n
	Dim ProClass,ProClassNum
	Dim NewProClass	
	Dim action,key,keyType
	
	PageNum=20 
	DataName="种商品"
	ProductClassID=sqlcheck(Request.QueryString("ProductClassID"))
	action=sqlchg(Request.QueryString("action"))
	lx=sqlchg(Request.QueryString("lx"))
	key=sqlchg(Request.QueryString("key"))
	ClassType=sqlchg(Request.QueryString("ClassType"))
	keyType=sqlcheck(Request.QueryString("keyType"))

	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
	
	n = i
	'***********************************
	
	if ProductClassID="" then
		Query="Select p.ProductID,c.ClassName,p.ProductName,p.ProductDate,p.ProductPic,p.ProductPic1,p.ProductClassID,p.ProductNum,p.OrderID from Product p inner join Class c on p.ProductClassID=c.ClassID order by p.OrderID,p.ProductID desc"
	else
		Query="Select p.ProductID,c.ClassName,p.ProductName,p.ProductDate,p.ProductPic,p.ProductPic1,p.ProductClassID,p.ProductNum,p.OrderID from Product p inner join Class c on p.ProductClassID=c.ClassID where p.ProductClassID="&ProductClassID&" or instr(c.ClassTree,"&ProductClassID&") order by p.OrderID,p.ProductID desc"
	end if
	
	if action = "search" then
		if keyType = 0 then
			Query="Select p.ProductID,c.ClassName,p.ProductName,p.ProductDate,p.ProductPic,p.ProductPic1,p.ProductClassID,p.ProductNum,p.OrderID from Product p inner join Class c on p.ProductClassID=c.ClassID where p.ProductName like '%"&key&"%' order by p.OrderID,p.ProductID desc"
		end if
		if keyType = 1 then
			Query="Select p.ProductID,c.ClassName,p.ProductName,p.ProductDate,p.ProductPic,p.ProductPic1,p.ProductClassID,p.ProductNum,p.OrderID from Product p inner join Class c on p.ProductClassID=c.ClassID where p.ProductID = "&key&" order by p.OrderID,p.ProductID desc"
		end if
	end if
	
	if action = "zero" then
		Query="Select p.ProductID,c.ClassName,p.ProductName,p.ProductDate,p.ProductPic,p.ProductPic1,p.ProductClassID,p.ProductNum,p.OrderID from Product p inner join Class c on p.ProductClassID=c.ClassID where p.ProductNum <= 0 order by p.OrderID,p.ProductID desc"
	end if
	
	if action = "Num" then
		Query="Select p.ProductID,c.ClassName,p.ProductName,p.ProductDate,p.ProductPic,p.ProductPic1,p.ProductClassID,p.ProductNum,p.OrderID from Product p inner join Class c on p.ProductClassID=c.ClassID order by p.ProductNum,p.ProductID desc"
	end if
	
	if ClassType <> "" then
		Query="Select p.ProductID,c.ClassName,p.ProductName,p.ProductDate,p.ProductPic,p.ProductPic1,p.ProductClassID,p.ProductNum,p.OrderID from Product p inner join Class c on p.ProductClassID=c.ClassID where p.Product"&ClassType&" = 1 order by p.OrderID,p.ProductID desc"
	end if
	
	set rs = conn.execute(Query)
	if not rs.eof then
		Product = rs.getrows
		i = ubound(Product,2)
		if not isnumeric(i) then
			i = 1
		end if
	else
		i = -1
	end if
	
	
%>