admin_newsspecial.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#include file="conn.asp"-->
<!--#include file="admin_loginchk.asp"-->
<%admin1%>
<title>下 载 专 题 管 理</title>
<!--#include file="top.asp"-->
<table border="0" width="99%" cellspacing="1" cellpadding="1" style="margin-top:6px;margin-bottom:6px" align="center">
  <tr> 
    <td valign=top width="20%" style="border:1px solid black;" bgcolor="#999999">
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top>
      <table border="0" cellpadding="4" cellspacing="1" width="98%" align="center" bgcolor="#333333">
        <tr align="center" bgcolor="#999999"> 
          <td>下 载 专 题 管理 </td>
        </tr>
        <tr align="center" bgcolor="#CCCCCC"> 
          <td align="center" valign="top">
            <table border="0" width="98%" bgcolor="#000000" cellpadding="0" cellspacing="1">
              <tr bgcolor="#abb8d6"> 
                <td  colspan="6" align="center" valign="middle"><b><font color="#FF0000">请 
                  慎 重 操 作 ！</font></b></td>
              </tr>
              <tr> 
                <td align="center" colspan="6" height="50" bgcolor="#FFFFFF"><font color="#FF0000">用简洁的代码，写出最好用的代码，是我永远的追求！</font></td>
              </tr>
              <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql6 ="SELECT  * From special order by sorder"
rs.open sql6,Conn,3,3
%>
              <tr align="center"> 
                <td width="6%" bgcolor="#abb8d6">原序</td>
                <td width="5%" bgcolor="#abb8d6">新序</td>
                <td width="12%" bgcolor="#abb8d6">专题名称</td>
                <td width="28%" bgcolor="#abb8d6">更名</td>
                <td width="22%" bgcolor="#abb8d6">执&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;行</td>
         
              </tr>
              <%			
i=0
do while not rs.eof
i=i+1%>
              <tr> 
                <td width="6%" align="center" bgcolor="#FFFFFF"><%=rs("sID")%></td>
                <td width="5%" align="center" bgcolor="#FFFFFF"><%=rs("sorder")%></td>
                <td width="12%" align="center" bgcolor="#FFFFFF"><%=rs("sname")%></td>
                <td width="28%" align="center" bgcolor="#FFFFFF" valign="bottom"> 
                  <form name="form1" method="post" action="admin_newsfuntions.asp?ID=<%=rs("sid")%>">
                    <input type="text" name="class" value="<%=rs("sname")%>" maxlength="50" size="8">
                    <input type="submit" name="Submit2" value="保存">
                    <input type="hidden" name="action" value="modiclass">
                  </form>
                </td>
                <td width="22%" bgcolor="#FFFFFF" align="center"> <a href="admin_newsfuntions.asp?ID=<%=rs("sid")%>&action=delclass" >删除</a> 
                  <%if i=1 then%>
                  拉上 
                  <%else%>
                  <a href="admin_newsfuntions.asp?ID=<%=rs("sid")%>&action=upclass" >拉上</a> 
                  <%end if%>
                  <%if i=rs.recordcount then%>
                  拉下 
                  <%else%>
                  <a href="admin_newsfuntions.asp?ID=<%=rs("sid")%>&action=downclass" >拉下</a></td>
                <%end if%>
           
              </tr>
              <%
rs.MoveNext
Loop

rs.close
set rs=nothing
%>
              <tr> 
                <td colspan="6" height="40" align="center" bgcolor="#FFFFFF"><a href="admin_newsfuntions.asp?action=classinit">初始化分类排序</a></td>
              </tr>
              <tr> 
                <form method="post" action="admin_newsfuntions.asp?action=addclass" name="type">
                  <td align="center" colspan="6" bgcolor="#abb8d6" height="60"> 
                    增加专题： 
                    <input class=text type="text" name="type" size="15">
                    <input type="hidden" name="howmany" size="15" value=<%=i%>>
                    <input type="submit" name="Submit" value="添加">
                    <input type="reset" value="重写" name="B1">
                  </td>
                </form>
              </tr>
            </table>
 </td>
        </tr>
        <tr align="left" valign="top" bgcolor="#CCCCCC"> 
          <td><font color="#990033">说明:</font> 本程序由去看去看-7k7k.com制作!本站提供永远的技术支持！有任何问题，请访问我们的论坛<a href="去看去看-7k7k.com/bbs" target="_blank">去看去看-7k7k.com/bbs</a><br>
            程序内容可以借鉴、学习、交流，但要保留本站的版权申明！</td>
        </tr>
      </table>
      
      </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
<%conn.close
set conn=nothing%>
</body>
</html>