showtext.asp

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

<!--#include file="conn.asp"-->
<!--#include file="checkAdmin.asp"-->
<%
	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)	
	
	conn.close
	set conn = nothing
	
	Response.Write("<a href='OrderManage.asp?OrderType=7' target='right' onclick='top.document.getElementById('topTitle').innerHTML='未处理订单';'>您有"&NewOrder&"份未处理订单;</a>&nbsp;&nbsp;<a href='manageMessage.asp?lx=2' target='right' onclick='top.document.getElementById('topTitle').innerHTML='未读短信息';'>您有"&NewMsg&"条未读短信息;</a>&nbsp;&nbsp;<a href='ProductPinglun.asp?lx=2' target='right' onclick='top.document.getElementById('topTitle').innerHTML='未回复评论';'>您有"&NewPinlun&"条未回复评论;</a>")
	Response.End()	
%>