📄 admin_newsmodify_f.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)
'=========================================================
%>
<%
        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 leftmargin=0 topmargin="40">
<tr> 
  <td width="148">
<TABLE width="485" height="62" 
                        border=0 align="center" cellPadding=0 cellSpacing=0>
      <TBODY>
        <TR> 
          <TD width="149" height="62" > 
            <TABLE cellSpacing=0 
                              cellPadding=0 width="482" border=0>
              <TBODY>
                <TR> 
                  <TD width="482" height="18"> <table width="482" border="0" cellpadding="0" cellspacing="1" bgcolor="#339900">
                      <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="#0000FF">［·</font><font color="#FF0000"><font color="#FF0001"><a href="admin_editall.asp"><font color="#FF0000">编辑所有信息</font></a><font color="#0000FF">·</font></font><font color="#0000FF">］</font></font></b></div></td>
                            </tr>
                          </table>
                          <table width="470" 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=#97C893>")
           end if
           for i=1 to rs("depth")
              Response.Write "&nbsp;<font color=""#58A052"">│</font>"
           next
           if rs("Child")<>0 then
		       Response.Write "&nbsp;<font color=""#58A052"">├</font> "
			   response.write("<img src=pic/NewsPr.gif>")
        	  response.write(rs("classcn"))
    		  response.write("<br>")
		   else
		   response.write("&nbsp;<font color=""#58A052"">├</font>&nbsp;<img src=pic/NewsPr1.gif><A href=Admin_Newsmodify_f1.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>
⌨️ 快捷键说明

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