index_inc.asp

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

<%
	dim rsTop,NewOrder,NewMsg,NewPinlun,NewOrderNum
	
	'读订单
	set rsTop = conn.execute("Select distinct OrderNumber from [Order] where OrderStage = 0 or OrderStage = 2")
	if not rsTop.eof then
		NewOrderNum = rsTop.getrows
		NewOrder = ubound(NewOrderNum,2) + 1
		if not isnumeric(NewOrder) then
			NewOrder = 1
		end if
	else
		NewOrder = 0
	end if
	
	'读消息
	set rsTop = conn.execute("Select count(*) from Message where MsgTo = '管理员' and MsgReaded = 0 and MsgType = 0")
	NewMsg = rsTop(0)
	
	'读评论
	set rsTop = conn.execute("Select count(*) from Message where MsgFrom <> '管理员' and MsgReFlag = 0 and MsgType = 1")
	NewPinlun = rsTop(0)		
	
%>