showtext.asp

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

<!--#include file="conn.asp"-->
<!--#include file="checkAdmin.asp"-->
<%
	Response.Buffer = True 
	Response.ExpiresAbsolute = Now() - 1 
	Response.Expires = 0 
	Response.CacheControl = "no-cache" 
	Response.AddHeader "Pragma", "No-Cache" 
%>
<%
	dim rsTop,NewOrder,NewMsg,NewPinlun,NewOrderNum,stat,statNum
	
	stat = 0
	
	if Session("stat") <> "" then
		statNum = split(Session("stat"),",")
	end if
	
	'读订单
	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

	if Session("stat") <> "" then	
		if Cstr(statNum(0)) <> Cstr(NewOrder) then
			stat = 1
		end if
	end if
	
	'读消息
	set rsTop = conn.execute("Select count(*) from Message where MsgTo = '管理员' and MsgReaded = 0 and MsgType = 0")
	NewMsg = rsTop(0)
	
	if Session("stat") <> "" then	
		if Cstr(statNum(1)) <> Cstr(NewMsg) then
			stat = 1
		end if
	end if
	
	'读评论
	set rsTop = conn.execute("Select count(*) from Message where MsgFrom <> '管理员' and MsgReFlag = 0 and MsgType = 1")
	NewPinlun = rsTop(0)
	
	if Session("stat") <> "" then	
		if Cstr(statNum(2)) <> Cstr(NewPinlun) then
			stat = 1
		end if
	end if
	
	Session("stat") = NewOrder&","&NewMsg&","&NewPinlun
	
	conn.close
	set conn = nothing
	
	Response.Write(""&NewOrder&","&NewMsg&","&NewPinlun&","&stat&"")
	Response.End()	
%>