分類排序方法——上移下移操作（ＡＳＰ版）

最近項目中遇到了上移下移操作的一個操作，以前也看到過，但一直沒有去研究過，這次項目中遇到了，也就去研究了一把，其實實現原理也挺簡單的，說白了就是要記錄數據庫裏的要進行排序表的總記錄數量，然後根據循環的次數，多寫幾個隱藏變量，進行上移下移操作的時候進行判斷就可以了。
　　現在一起來看看具體的代碼實現吧，希望會對那些沒有做過這些操作的朋友有所幫助。

<% dim database,conn database=server.mappath("/inc/db1.mdb") set conn=server.createobject("adodb.connection") connstr="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&database conn.open connstr '-------------------------------------------- ' Author:jack ' Date:2009/11/21 ' '-------------------------------------------- '-------------------------------------------- '- 上移或下移操作 '-------------------------------------------- Dim moveflag moveflag = Request.Form("moveflag") If Not IsNull(moveflag) And moveflag<>"" Then Dim premenuid,premenuordernum,nextmenuid,nextmenuordernum,nowmenuid,nowmenuordernum,movetype movetype = Request.Form("movetype") premenuid = Request.Form("premenuid") premenuordernum = Request.Form("premenuordernum") nowmenuid = Request.Form("nowmenuid") nowmenuordernum = Request.Form("nowmenuordernum") nextmenuid = Request.Form("nextmenuid") nextmenuordernum = Request.Form("nextmenuordernum") If movetype="up" Then sql = "update c_menu set ordernum="& premenuordernum &" where menuid="& nowmenuid conn.execute(sql) sql = "update c_menu set ordernum="& nowmenuordernum &" where menuid="& premenuid conn.execute(sql) End If If movetype="down" Then sql = "update c_menu set ordernum="& nextmenuordernum &" where menuid="& nowmenuid conn.execute(sql) sql = "update c_menu set ordernum="& nowmenuordernum &" where menuid="& nextmenuid conn.execute(sql) End If response.write "<mce:script type="text/javascript"></mce:script>" End If '-------------------------------------------- '- 設置欄目首頁可見 '-------------------------------------------- Dim subflag subflag = request.Form("subflag") if not isnull(subflag) and subflag<>"" Then Dim menuId,menuName,display,msg MenuId = request.form("MenuId") menuName = request.Form("hdmenuname") display = request.Form("hddisplay") if MenuId<>"" and cint(MenuId)>0 Then sql = "update c_menu set isdisplay=abs(isdisplay-1) where menuid="&MenuId Conn.execute(sql) msg = menuName & "爲" If CInt(display)=1 Then msg = msg & "首頁不可見" Else msg = msg & "首頁可見" End If response.write "<mce:script type="text/javascript"></mce:script>" end if end If %> <html> <head> <title>首頁欄目配置</title> <link rel="stylesheet" href="inc/Style.css" mce_href="inc/Style.css" type="text/css"> </head> <body> <table border="0" cellspacing="1" cellpadding="0" width="98%" align="center"> <tr><td height="10"></td></tr> <tr><td height="30"><font class="title">□ <B>首頁欄目配置</B></font>< /td></tr> <tr><td height="20">注意：您可以設置首頁欄目的順序，並可以設置欄目是否顯示在首頁[最多7條]！</td></tr> </table> <table id="Table1" cellSpacing="0" cellPadding="0" width="100%" border="0" align="center"> <tr> <td align="center"> <table id="Table4" cellSpacing="0" cellPadding="0" width="98%" align="center" border="0"> <tr> <td align="center"> <table class="td_table" cellspacing="1" cellpadding="0" align="center" rules="all" border="0" width="100%" ID="Table5"> <tr bgColor="#d8e5ff" height=23> <td align="center" width="60"><b>序號</b></td> <td align="center"><b>欄目名稱</b></td> <td align="center" width="120"><b>首頁可見</b></td> <td align="center" width="120"><b>添加時間</b></td> <td align="center" width="60"><b>操作</b></td> <td align="center" width="50"><b>操作</b></td> </tr> <% sql = "select * from c_menu order by isdisplay desc,ordernum asc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 if rs.eof and rs.bof then %> <tr> <td height="25" bgcolor="F9FBFE" align="center" colspan="10"><font color="#ff0000">數據庫中沒有符合要求的記錄 </font></td> </tr> <tr> <td colspan="10" height="1" bgcolor="#d8e5ff"></td> </tr> <% else i=0 Response.write "<input type=""hidden"" name=""totalMenus"" id=""totalMenus"" value="""&rs.recordcount&""">" do while not rs.eof if i mod 2=0 then color = "#f3f6ff" else color = "#ffffff" end if %> <tr bgcolor="<%=color%>" height=23> <td align="center"><%=i+1%><input type="hidden" name="menuorder_<%=i+1%>" id="menuorder_<%=i+1%>" value="<%=i+1%>"><input type="hidden" name="menuid_<%=i+1%>" id="menuid_<%=i+1%>" value="<%=Rs("menuid")%>"></td> <%if rs("isdisplay")="1" Then%> <td align="left"> <font color=red><%=rs("MenuName")%></font></td> <td align="center"><font color=red>使用中...</font></td> <%else%> <td align="left"> <%=rs("MenuName")%></td> <td align="center"><font color=#666666>禁用中...</font></td> <%end if%> <td align="center"><%=rs("AddTime")%></td> <td align="center"> <a href="#" mce_href="#" onclick="moveMenu('<%=Rs("menuid")%>','<%=i+1%>','up');"><img src="../../Img/icon_digg.gif" mce_src="Img/icon_digg.gif" border="0" alt="上移"/></a> <a href="#" mce_href="#" onclick="moveMenu('<%=Rs("menuid")%>','<%=i+1%>','down');"><img src="../../Img/icon_bury.gif" mce_src="Img/icon_bury.gif" border="0" alt="下移"/></a> </td> <td align="center"> <a href="#" mce_href="#" onclick="changeDisplay('<%=Rs("menuid")%>','<%=Rs("menuname")%>','<%=Rs("isdisplay")%>');"> <% if rs("isdisplay")="1" then response.write "禁用" else response.write "<font color=red>啓用</font>" end if %> </a> </td> </tr> <% i=i+1 rs.movenext loop %> </table> </td> </tr> <tr> <td colspan="2" height="1" bgcolor="#d8e5ff"></td> </tr> <% rs.close set rs=nothing end if %> </table> </td> </tr> </table> <form action="" method="post" name="form1" id="form1" target="Checkframe"> <input type="hidden" name="subflag" id="subflag" value="1"> <input type="hidden" name="MenuId" id="MenuId"> <input type="hidden" name="hdmenuname" id="hdmenuname"> <input type="hidden" name="hddisplay" id="hddisplay"> </form> <form action="" method="post" name="form2" id="form2" target="Checkframe"> <input type="hidden" name="moveflag" id="moveflag" value="1"> <input type="hidden" name="movetype" id="movetype"> <input type="hidden" name="premenuid" id="premenuid"> <input type="hidden" name="premenuordernum" id="premenuordernum"> <input type="hidden" name="nowmenuid" id="nowmenuid"> <input type="hidden" name="nowmenuordernum" id="nowmenuordernum"> <input type="hidden" name="nextmenuid" id="nextmenuid"> <input type="hidden" name="nextmenuordernum" id="nextmenuordernum"> </form> </body> </html> <mce:script language="javascript"></mce:script> <% '異常錯誤處理 if err.number <> 0 then logError err.number,forerr(err.source&":"&err.description) err.clear Response.end end if Conn.Close set Conn = nothing %>

以上是核心的代碼實現。本人會在近段時間寫java版本的操作，希望有需要的朋友在點評那裏說下。

如果有需要具體信息的朋友，可以去我的博客裏下載：

分類排序方法——上移下移操作（ＡＳＰ版）

分類排序方法——上移下移操作（ＡＳＰ版）

Python實現大麥網搶票的四大關鍵技術點解析

高級程序員如何應對職場壓力？

Mapabc——地圖標註

XFire 入門

WebServices祕訣：設計SOA

表單常用JS驗證

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結