關于對后臺[待審文章][待審評論][待審會員]的一點重要改進(2)_動易Cms教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
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
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td <td class="topbg" align="center"><span class="Glow">各 頻 道 未 審 評 論 篇 數</span></td>
<td </tr>
<tr>
<td <td>
<%
for y=1 to x
response.write "<a href='Admin_Comment.asp?ChannelID=" & vChannelIDAry(y) & "'>" & vChannelName(y) & "</a>" & "[<span style='color:#ff0000'>" & vCommentCount(y) & "</span>] "
next
%>
</td>
<td </tr>
</table>
<%
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
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td <td class="topbg" align="center"><span class="Glow">待 審 批 及 未 驗 證 會 員 情 況</span></td>
<td </tr>
<tr>
<td <td>
<%
if vNoApproveUser > 0 then
response.write "<a href='Admin_User.asp?SearchType=11&GroupID=7'>" & "待審批會員" & "</a>" & "[<span style='color:#ff0000'>" & vNoApproveUser & "</span>] "
end if
if vTestUser > 0 then
response.write "<a href='Admin_User.asp?SearchType=11&GroupID=8'>" & "未驗證會員" & "</a>" & "[<span style='color:#ff0000'>" & vTestUser & "</span>] "
end if
%>
</td>
<td </tr>
</table>
相關動易Cms教程:
- MAC錯誤的解決方法
- 如何屏蔽動易后臺導航里的某個功能菜單?
- 動易.NET版本留言自動選定欄目方法
- 動易SiteFactoty整合Discuz!NT3.0
- 在任意位置獲取根節點ID標簽
- 如何開啟SiteWeaver6.8的支持,反對功能
- Windows 2008安裝動易.NET系統之四----動易系統安裝篇
- Windows 2008安裝動易.NET系統之三----數據庫篇
- Windows 2008安裝動易.NET系統之二----IIS、目錄環境配置篇
- 數據庫修復,SQL Server 2005內部操作不一致的處理
- 如何安裝動易.net程序權限配置
- 為什么提示對Windows系統文件夾下的Temp目錄沒有訪問權限?
- 相關鏈接:
- 教程說明:
動易Cms教程-關于對后臺[待審文章][待審評論][待審會員]的一點重要改進(2)。