该改进适合每天疲于奔命在各频道间查看是否有待审文章和待审评论的用户。如果只有几个或10来个频道还问题不大，几十上百个频道的网站估计在频道间走一遍就得烦死！

此主题相关图片如下：


现提供解决办法：
<%
dim MDB_Article_ADO,MDB_Article_LinkStr,MDB_Channel_ADO,MDB_Channel_LinkStr,MDB_Comment_ADO,MDB_Comment_LinkStr,MDB_User_ADO,MDB_User_LinkStr
dim vChannelID_1,vChannelID_2,a1,a2,vNoApproveUser,vTestUser
dim vArticleID,vChannelID,vChannelIDAry(50),vChannelName(50),vCommentCount(50),x,y
set MDB_Article_ADO = Server.CreateObject("ADODB.Recordset")
MDB_Article_LinkStr = "select * from PE_Article where status=0 order by ChannelID"
MDB_Article_ADO.open MDB_Article_LinkStr,Conn,1,1
a1 = 0
a2 = 0
vChannelID_1 = 0
vChannelID_2 = 0
if MDB_Article_ADO.recordcount > 0 then
%>

	各 频 道 未 审 文 章 篇 数
	<% do while not MDB_Article_ADO.eof vChannelID_1 = MDB_Article_ADO("ChannelID") if vChannelID_1 <> vChannelID_2 then if vChannelID_2 <> 0 then response.write "" & a1 & "] " end if set MDB_Channel_ADO = Server.CreateObject( "ADODB.Recordset") MDB_Channel_LinkStr = "select * from PE_Channel where ChannelID=" & vChannelID_1 MDB_Channel_ADO.open MDB_Channel_LinkStr,Conn,1,1 response.write "" & MDB_Channel_ADO("ChannelName") & "[" MDB_Channel_ADO.close set MDB_Channel_ADO=nothing a1 = 1 vChannelID_2 = vChannelID_1 else a1 = a1 + 1 end if MDB_Article_ADO.movenext loop if vChannelID_2 <> 0 then response.write "" & a1 & "] " end if %>

<%
end if
MDB_Article_ADO.close
set MDB_Article_ADO=nothing
%>
<%
Set MDB_Comment_ADO = Server.CreateObject("ADODB.Recordset")
MDB_Comment_LinkStr = "select * from PE_Comment where passed=False order by InfoID"
MDB_Comment_ADO.open MDB_Comment_LinkStr,Conn,1,1
vCommentCount(0) = 0
vChannelIDAry(0) = 0
vChannelName(0) = ""
x = 0
y = 0
do while not MDB_Comment_ADO.eof
vArticleID = MDB_Comment_ADO( "InfoID")
Set MDB_Article_ADO=Server.CreateObject( "ADODB.Recordset")
MDB_Article_LinkStr= "select * from PE_Article where ArticleID="& vArticleID &""
MDB_Article_ADO.open MDB_Article_LinkStr,Conn,1,1
vChannelID=MDB_Article_ADO( "ChannelID")
MDB_Article_ADO.close
set MDB_Article_ADO=nothing
if vChannelID = vChannelIDAry(x) then
vCommentCount(x) = vCommentCount(x) + 1
else
for y = 0 to x
if vChannelID = vChannelIDAry(y) then
exit for
end if
next
x = y
Set MDB_Channel_ADO=Server.CreateObject( "ADODB.Recordset")
MDB_Channel_LinkStr= "select * from PE_Channel where ChannelID=" &vChannelID &""
MDB_Channel_ADO.open MDB_Channel_LinkStr,Conn,1,1
vChannelIDAry(x) = MDB_Channel_ADO( "ChannelID")
vChannelName(x) = MDB_Channel_ADO( "ChannelName")
vCommentCount(x) = vCommentCount(x) + 1
MDB_Channel_ADO.close
set MDB_Channel_ADO=nothing
end if
MDB_Comment_ADO.movenext
loop
MDB_Comment_ADO.close
set MDB_Comment_ADO=nothing
%>
<%
dim vCommentCount1
vCommentCount1 = 0
for y=1 to x
vCommentCount1 = vCommentCount1 + vCommentCount(y)
next
if vCommentCount1 > 0 then
%>

	各 频 道 未 审 评 论 篇 数
	<% for y=1 to x response.write "" & vChannelName(y) & "" & "[" & vCommentCount(y) & "] " next %>

<%
end if
%>
<%
Set MDB_User_ADO = Server.CreateObject("ADODB.Recordset")
MDB_User_LinkStr = "select * from PE_User where GroupID >=7 and GroupID <=8 order by GroupID"
MDB_User_ADO.open MDB_User_LinkStr,Conn,1,1
vNoApproveUser = 0
vTestUser = 0
do while not MDB_User_ADO.eof
if MDB_User_ADO("GroupID") = 7 then
vNoApproveUser = vNoApproveUser + 1
end if
if MDB_User_ADO("GroupID") = 8 then
vTestUser = vTestUser + 1
end if
MDB_User_ADO.movenext
loop
MDB_User_ADO.close
set MDB_User_ADO=nothing
%>
<%
if vNoApproveUser + vTestUser > 0 then
%>

	待 审 批 及 未 验 证 会 员 情 况
	<% if vNoApproveUser > 0 then response.write "" & "待审批会员" & "" & "[" & vNoApproveUser & "] " end if if vTestUser > 0 then response.write "" & "未验证会员" & "" & "[" & vTestUser & "] " end if %>

<%
end if
%>

复制到/admin/admin_index_main.asp里面的下列代码之前：

                     

建 站 管 理 快 捷 入 口

日 常 管 理 快 捷 入 口