📄 admin_pic.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = "include.asp"-->
<!--#include file = "admin_checkmana.asp"-->
<%
if EnoughPopedom("pic")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
%>
<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)
'=========================================================
        set rs = server.createobject("adodb.recordset")
        sql = "select * from newsclass order by RootID asc,orders asc"
        rs.open sql,conn,1,1
%>
<body bgcolor=#F9FBFD background="" leftmargin=0 topmargin="0">
<TABLE width="525" height="27" 
                        border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
        <TR> 
          <TD width="149" > <TABLE cellSpacing=0 
                              cellPadding=0 width="525" border=0>
          <TBODY>
            <TR> 
              <TD valign="top">&nbsp;</TD>
              <TD height="16">&nbsp;</TD>
            </TR>
            <TR> 
              <TD valign="top">&nbsp;</TD>
              <TD height="25">&nbsp; </TD>
            </TR>
            <TR> 
              <TD width="47" valign="top"><div align="right"></div></TD>
              <TD width="560" height="18"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
                  <tr> 
                    <td bgcolor="#F7FFF4"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
                        <tr> 
                          <td height="26"> <div align="center"><b><strong><font color="#990000">请选择你要管理图片的栏目：</font></strong><font color="#990000"><font color="#FF0000">红色栏目下面表示有图片新闻</font><strong>　[</strong></font></b><font color="#990000"><a href="Admin_PicModifyAll.asp" target="_self"><font color="#0000FF">管理所有图片新闻</font></a><b><strong>]</strong></b></font></div></td>
                        </tr>
                      </table> 
                      <table width="470" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td bgcolor="#F7FFF4"> 
                            <%
                                if rs.recordcount=0 then
                                response.write("<font color=red>还没有新闻栏目</font>→<font color=blue><a href=admin_ClassManage.asp>添加栏目</a></font>")
                                end if
        while not rs.eof
           if rs("ParentID")=0 then
              response.write("<hr size=1 noshade color=#97C893>")
           end if
           for i=1 to rs("depth")
              Response.Write "&nbsp;<font color=""#666666"">│</font>"
           next
           if rs("Child")<>0 then
		      Response.Write "&nbsp;<font color=""#666666"">├</font> "
		      response.write("<img src=pic/NewsPr.gif>")
        	  response.write(rs("classcn"))
    		  response.write("<br>")
		   else
		   response.write("&nbsp;<font color=""#666666"">├</font>&nbsp;<img src=pic/NewsPr1.gif><A href=Admin_PicModify.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>
                      </table>
                      <!--#include file = name.asp-->
                    </td>
                  </tr>
                </table></TD>
            </TR>
          </TBODY>
        </TABLE> </table>
⌨️ 快捷键说明

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