productresearch_inc.asp

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

<%
	Dim i,j
	Dim NewProClass,ProClass,ClassID,Product,ProductID
	Dim action,StartPrice,EndPrice,Key,OrderNumber,OrderPass
	Dim SearchKeyNum,SearchKey
	Dim sql1,sql2,sql3,sql4,sql0,query
	dim ProductNum,l,rs,k,m
	
	call shop.DBOpen()
	
	'判断页商品数量是否更改
	if Request.Form("PageNum") <> "" then
		Response.Cookies("PageNum") = Request.Form("PageNum")
	end if
	'判断每页商品个数
	if Request.Cookies("PageNum")="" then
		PageNum = 5
	else
		PageNum = Cint(Request.Cookies("PageNum"))
	end if

	action = sqlchg(Request("action"))
	StartPrice = sqlchg(Request("StartPrice"))
	EndPrice = sqlchg(Request("EndPrice"))
	ClassID = sqlchg(Request("ClassID"))
	Key = sqlchg(Request("Key"))
	ProductID = sqlcheck(Request("ProductID"))
	OrderNumber = sqlchg(Request("OrderNumber"))
	OrderPass = sqlchg(Request("OrderPass"))

	ProductNum = 0	
	l=0
	SearchKeyNum = 0
	
	Set rs = Server.CreateObject("Adodb.Recordset")		

			'如果是商品ID
			if ProductID <> "" then
				sql0 = "p.ProductID = "&Cint(ProductID)&" and "
			end if
		
			'价格判断
			if StartPrice <> "" then
				sql1 = "ProductPrice1 >= "&Cint(StartPrice)&" and "
			end if
			
			if EndPrice <> "" then
				sql4 = "ProductPrice1 <= "&Cint(EndPrice)&" and "
			end if
			
			'类别判断
			if ClassID <> "" then
				sql2 = "(instr(ClassTree,"&ClassID&") or ClassID = "&Cint(ClassID)&") and "
			end if
			
			'名称判断
			if key <> "" then
				sql3 = "ProductName like '%"&Key&"%' and "	
			end if

	if action = "Product" then
		'搜索开始		
		query = "Select p.ProductID,p.ProductName,p.ProductPic,p.ProductPrice,p.ProductPrice1 from Product p inner join [Class] c on p.ProductClassID = c.ClassID where "&sql0&sql1&sql4&sql2&sql3&" 1=1 order by ProductID desc"

		set rs = conn.execute(query)
		if not rs.eof then
			Product = rs.GetRows
			ProductNum = Ubound(Product,2)
			if not isnumeric(ProductNum) then
				ProductNum = 1
			end if
		else
			ProductNum = -1
		end if
		rs.close
		'写入数据库
		if Key <> "" and ProductNum <> 0 then
			set rs = conn.execute("Select Count(*) from Search where SearchName = '"&Key&"'")
			j = rs(0)
			rs.close
			'如果没
			if j = 0 then
				conn.execute("Insert into Search (SearchName,SearchCount) values ('"&Key&"','1')")
			'如果搜索过
			else
				conn.execute("Update Search set SearchCount = SearchCount + 1 where SearchName = '"&Key&"'")
			end if
		end if
	end if
	'***************订单搜索*********************
	if action = "Order" then
		set rs = conn.execute("Select orderUserName from [Order] where OrderNumber = '"&OrderNumber&"' and OrderPass = '"&OrderPass&"'")
		if not rs.eof then
			Session("Username") = rs(0)
			Session.Timeout = 5
			
			response.Write("页面跳转中，您可以直接查看及修改订单状态。。。")
			response.Write("<script language='javascript'>window.location.href='UserCenter.asp?action=ViewDingDan&ID="&OrderNumber&"';</script>")
			response.End()
		else
			response.Write("<script language='javascript'>window.location.href='error.html';</script>")
			response.End()
		end if
	end if
		
		'**************读商品类别*****************
		
		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
		
%>