admin_newsnclassmana.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">请选择你想编辑的大分类：[<a href=admin_newsnclassmana.asp?action=view&viewid=><font color="#FF0000">全部分类</font></a>] 
                  <%set ms=server.createobject("adodb.recordset")
    sql="select * from Aclass"
    ms.open sql,conn,1,1
	do while not ms.eof %>
                  [<a href=admin_newsnclassmana.asp?action=view&viewid=<%=ms("classid")%>><%=ms("class")%></a>]&nbsp; 
                  <%
	ms.movenext
	loop
	ms.close %>
                </td>
              </tr>
              <%
Set rs = Server.CreateObject("ADODB.Recordset")
if request("viewid")<>"" then
sql ="SELECT  * From ANclass where classid="&request("viewid")
else
sql ="SELECT  * From ANclass order by Nclassorder"
end if
rs.open sql,Conn,3,3
%>
              <tr align="center"> 
                <td width="5%" bgcolor="#abb8d6">原序</td>
                <td width="5%" bgcolor="#abb8d6">新序</td>
                <td width="26%" bgcolor="#abb8d6">大类名称</td>
                <td width="21%" bgcolor="#abb8d6">分类名称</td>
                <td width="23%" bgcolor="#abb8d6">更名</td>
                <td width="20%" bgcolor="#abb8d6">执&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;行</td>
              </tr>
              <%			
i=0
do while not rs.eof
i=i+1%>
              <tr> 
                <td width="5%" align="center" bgcolor="#FFFFFF"><%=rs("NclassID")%></td>
                <td width="5%" align="center" bgcolor="#FFFFFF"><%=rs("Nclassorder")%></td>
                <td width="26%" align="center" bgcolor="#FFFFFF"> 
                  <%
set rs1=server.CreateObject ("ADODB.RecordSet")
sql2="select * from Aclass order by classorder"
rs1.Open sql2,conn,1,1				
%>
                  <form name="form1" method="post" action="admin_newsfuntionn.asp?ID=<%=rs("NclassID")%>">
                   
                  <select size="1" name="classid" style="font-size: 9pt">
                    <%if rs1.EOF then %>
                    <option>暂无任何大类</option>
                    <%
			else
            while not rs1.EOF
             %>
                    <option value="<%=rs1("classid")%>" <%if rs("classid")=rs1("classid") then %>selected<%end if%>><%=trim(rs1("class"))%></option>
                    <%
            rs1.MoveNext
             wend
          end if
           rs1.Close
           set rs1=nothing
           %>
                  </select>
                    <input type="hidden" name="action" value="modiclass">
                    <input type="submit" name="Submit22" value="保存">
				  </form>
                </td>
                <td width="21%" align="center" bgcolor="#FFFFFF"><%=rs("Nclass")%></td>
                <td width="23%" align="center" bgcolor="#FFFFFF" valign="bottom"> 
                  <form name="form1" method="post" action="admin_newsfuntionn.asp?ID=<%=rs("NclassID")%>">
                    <input type="text" name="Nclass" value="<%=rs("Nclass")%>" maxlength="50" size="8">
                    <input type="submit" name="Submit2" value="保存">
                    <input type="hidden" name="action" value="modiNclass">
                  </form>
                </td>
                <td width="20%" bgcolor="#FFFFFF" align="center"> <a href="admin_newsfuntionn.asp?ID=<%=rs("NclassID")%>&action=delNclass" >删除</a> 
                  <%if i=1 then%>
                  拉上 
                  <%else%>
                  <a href="admin_newsfuntionn.asp?ID=<%=rs("NclassID")%>&action=upNclass" >拉上</a> 
                  <%end if%>
                  <%if i=rs.recordcount then%>
                  拉下 
                  <%else%>
                  <a href="admin_newsfuntionn.asp?ID=<%=rs("NclassID")%>&action=downNclass" >拉下</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_newsfuntionn.asp?action=Nclassinit">初始化分类排序</a></td>
              </tr>
              <tr> 
                <form method="post" action="admin_newsfuntionn.asp?action=addNclass" name="type">
                  <td align="center" colspan="6" bgcolor="#abb8d6" height="60"> 
                    <%
set rs1=server.CreateObject ("ADODB.RecordSet")
sql2="select * from Aclass order by classorder"
rs1.Open sql2,conn,1,1				
%>
                    <font color="0">在</font> 
                    <select size="1" name="class" style="font-size: 9pt">
                      <%if rs1.EOF then %>
                      <option>暂无任何大类</option>
                      <%
			else
            while not rs1.EOF
             %>
                      <option value="<%=rs1("classid")%>"><%=trim(rs1("class"))%></option>
                      <%
            rs1.MoveNext
             wend
          end if
           rs1.Close
           set rs1=nothing
           %>
                    </select>
                    增加小分类： 
                    <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制作!</td>
        </tr>
      </table>
      
      </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
<%conn.close
set conn=nothing%>
</body>
</html>