📄 admin_addqu.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-2003 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://BBS.COOIN.COM)
'=========================================================
%>
<%
        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></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=""#97C893"">│</font>"
           next
           if rs("Child")<>0 then
		      Response.Write "&nbsp;<font color=""#97C893"">├</font> "
		      response.write("<img src=pic/NewsPr.gif>")
        	  response.write(rs("classcn"))
    		  response.write("<br>")
		   else
		   response.write("&nbsp;<font color=""#97C893"">├</font>&nbsp;<img src=pic/NewsPr1.gif><A href=Admin_Newsadd.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 + -