📄 admin_review.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<head>
<title>www.cooin.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=css/css.css rel=stylesheet>
</head>
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
if EnoughPopedom("review")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if

        set rs = server.createobject("adodb.recordset")
        sql = "select * from newsclass order by RootID asc,orders asc"
        rs.open sql,conn,1,1
%>
<body bgcolor=#FFFFFF leftmargin=0 topmargin="30">
<tr> 
  <td width=100%>
<TABLE width="15%" height="78" 
                        border=0 align="center" cellPadding=0 cellSpacing=1>
      <TBODY>
        <TR> 
          <TD width="149" height="76"> 
            <TABLE width="504" height="27" 
                        border=0 align="center" cellPadding=0 cellSpacing=0>
              <TBODY>
                <TR> 
                  <TD width="504" > <TABLE cellSpacing=0 
                              cellPadding=0 width="504" border=0>
                      <TBODY>
                        <TR> 
                          <TD width="504" height="18"> <table width="504" border="0" cellpadding="0" cellspacing="1" bgcolor="5AA453">
                              <tr> 
                                <td bgcolor="#F7FFF4"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
                                    <tr> 
                                      <td height="26"> <div align="left"><b><font color="#000000">　<strong><font color="#990000"><strong>请选择管理评论的栏目类别　　　</strong></font></strong></font></b><font color="#000000"><font color="#990000">[<a href="Admin_ReviewAll.asp"><font color="#FF0000">管理所有评论</font></a>]</font></font></div></td>
                                    </tr>
                                  </table>
                                  <br> <table width="479" border="0" align="center" cellpadding="0" cellspacing="0">
                                    <tr> 
                                      <td> 
                                        <%
    if rs.recordcount=0 then
      response.write("<font color=red>还没有新闻栏目</font>")
    end if
        while not rs.eof
           if rs("ParentID")=0 then
              response.write("<hr size=1 noshade color=#BAD1E9>")
           end if
           for i=1 to rs("depth")
              response.write("－")
           next
           if rs("Child")<>0 then
        	  response.write(rs("classcn"))
    		  response.write("<br>")
		   else
		   response.write("<A href=admin_reviewmanager.asp?classcn="&rs("classcn")&"&Classen="&rs("Classen")&" target=main><font color=red>"&rs("classcn")&"</font></A><br>")
		   end if
      rs.movenext
    wend
rs.close
 %>
                                      </td>
                                    </tr>
                                    <tr> 
                                      <td>&nbsp;</td>
                                    </tr>
                                  </table>
                                  <!--#include file = name.asp-->
                                </td>
                              </tr>
                            </table></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
            </table>
            </table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -