ordermanage_inc.asp

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

<%
	dim i,j,rs,PageNum,PageEnd,DataName
	dim Order,action,keyType,key,Query,OrderType
	
	PageNum = 10
	i = 0
	DataName = "条订单"
	
	action = sqlchg(Request.QueryString("action"))
	keyType = sqlcheck(Request.QueryString("keyType"))
	key = sqlchg(Request.QueryString("key"))
	OrderType = sqlcheck(Request.QueryString("OrderType"))

	call CheckType(20)		
	if OrderType = "" then
		Query = "select distinct orderNumber,orderUsername,orderDate,orderStage from [Order] order by orderDate desc"
		OrderType = 6
	elseif OrderType = 7 then
		Query = "select distinct orderNumber,orderUsername,orderDate,orderStage from [Order] where OrderStage = 0 or OrderStage = 2 order by orderDate desc"	
	else
		Query = "select distinct orderNumber,orderUsername,orderDate,orderStage from [Order] where OrderStage = "&OrderType&" order by orderDate desc"
	end if
	
	if action = "search" then
		if KeyType = 0 then
			if OrderType  = 6 then
				Query = "select distinct orderNumber,orderUsername,orderDate,orderStage from [Order] where OrderNumber = '"&key&"' order by orderDate desc"
			else
				Query = "select distinct orderNumber,orderUsername,orderDate,orderStage from [Order] where OrderNumber = '"&key&"' and OrderStage = "&OrderType&" order by orderDate desc"			
			end if
		else
			if OrderType  = 6 then
				Query = "select distinct orderNumber,orderUsername,orderDate,orderStage from [Order] where orderUsername = '"&key&"' order by orderDate desc"
			else
				Query = "select distinct orderNumber,orderUsername,orderDate,orderStage from [Order] where orderUsername = '"&key&"' and OrderStage = "&OrderType&" order by orderDate desc"			
			end if				
		end if
	end if
	
	set rs = conn.execute(Query)
	
	if not rs.eof then
		Order=rs.getrows
		i = ubound(Order,2)
		if not isnumeric(i) then
			i = 1
		end if
	else
		i = -1
	end if
%>