productsearch_inc.asp

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

<%
	Dim i,j
	Dim NewProClass,ProClass,ClassID,Product
	Dim action,StartPrice,EndPrice,Key,SearchKey,SearchKeyNum
	
		set rs = server.CreateObject("adodb.recordset")
		'**************读商品类别*****************
		
		rs.Open"Select ClassID,ClassName,ClassLevel,ClassHeadID from Class order by ClassLevel,orderid,ClassID desc",conn,1,1
		if not rs.eof then		
			ProClass=rs.getrows
			NewProClass=ProClass
			i=rs.recordcount
		end if
		rs.close
	
		
		
		'重新排列顺序
		for k = 0 to (i-1)
			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-1)
				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
		'**************读商品类别*****************
		
		'**************读搜索关键字*****************
		rs.open"Select top 20 SearchName,SearchCount from Search order by SearchCount desc",conn,1,1
		if not rs.eof then
			SearchKey=rs.getrows
			SearchKeyNum=rs.recordcount
		end if
		rs.close
		'**************读搜索关键字*****************
		set rs=nothing
		
%>