jackzhangyunjie
- 浏览: 185060 次
- 性别:
- 来自: 郑州
-
文章分类
最新评论
-
youngbird221：
楼主有答案了么
ERROR JDBCTransaction : Could not toggle autocommi -
xuyoubin1987：
谢了 支持楼主
Struts2+Spring2.5+Ibatis2.3图书管理 -
wx_hello：
哈哈。。谢啦。。
Struts2+Spring2.5+Ibatis2.3图书管理 -
zhuzhijia：
为啥跟图片的高度有关？请教
JavaScript——延迟加载技术 -
zhameng：
...
JavaScript——延迟加载技术
最近项目中遇到了上移下移操作的一个操作，以前也看到过，但一直没有去研究过，这次项目中遇到了，也就去研究了一把，其实实现原理也挺简单的，说白了就是要记录数据库里的要
进行排序表的总记录数量，然后根据循环的次数，多写几个隐藏变量，进行上移下移操作的时候进行判断就可以了。
现在一起来看看具体的代码实现吧，希望会对那些没有做过这些操作的朋友有所帮助。
<%
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 "<script>parent.location.href='MenuSet.asp';</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 "<script>alert('成功设置"& msg &"');parent.location.href='MenuSet.asp';</script>"
end if
end If
%>
<html>
<head>
<title>首页栏目配置</title>
<link rel="stylesheet" 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="#" onclick="moveMenu('<%=Rs("menuid")%>','<%=i+1%>','up');"><img src="../../Img/icon_digg.gif" border="0" alt="上移"/></a>
<a href="#" onclick="moveMenu('<%=Rs("menuid")%>','<%=i+1%>','down');"><img src="../../Img/icon_bury.gif" border="0" alt="下移"/></a>
</td>
<td align="center">
<a 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>
<script language="javascript">
function changeDisplay(MenuId,MenuName,Display){
document.getElementById("MenuId").value = MenuId;
document.getElementById("hdmenuname").value = MenuName;
document.getElementById("hddisplay").value = Display;
document.getElementById("form1").submit();
}
function moveMenu(menuid,menuordernum,movetype){
var num,prenum,premenuid,nextnum,nextmenuid,maxnum;
document.getElementById("movetype").value = movetype;
num = parseInt(menuordernum);
if(movetype=="up"){
if(num==1){
alert("当前已经处于第一位！");
}else{
prenum = document.getElementById("menuorder_"+(num-1)).value;
premenuid = document.getElementById("menuid_"+(num-1)).value;
document.getElementById("premenuid").value = premenuid;
document.getElementById("premenuordernum").value = prenum;
document.getElementById("nowmenuid").value = menuid;
document.getElementById("nowmenuordernum").value=menuordernum;
document.getElementById("form2").submit();
}
}else{
maxnum = parseInt(document.getElementById("totalMenus").value);
if(num>=maxnum){
alert("已经处于最后了!");
}else{
nextnum = document.getElementById("menuorder_"+(num+1)).value;
nextmenuid = document.getElementById("menuid_"+(num+1)).value;
document.getElementById("nextmenuid").value = nextmenuid;
document.getElementById("nextmenuordernum").value = nextnum;
document.getElementById("nowmenuid").value = menuid;
document.getElementById("nowmenuordernum").value = menuordernum;
document.getElementById("form2").submit();
}
}
}
</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版本的操作，希望有需要的朋友在点评那里说下。
如果有需要具体信息的朋友，可以去我的博客里下载：
0
顶
顶
0
踩
踩
分享到：
发表评论
-
分类排序方法——上移下移操作（Java版）
2009-11-27 19:03 6883最近项目中遇到了上移下移操作的一个操作，以前也看到 ... -
Mapabc——地图标注
2009-08-31 10:21 1982项目中使用到了地图标注的功能（mapabc），现在将代码共享出 ... -
表单常用JS验证
2009-08-31 08:21 1251在Web项目中，总会或多或少的使用的Form表单，包含空字符及 ... -
Internet Explorer无法打开站点,已终止操作
2008-12-28 14:28 3172在页面还没有ready的时候就调用了htmlObject的ap ... -
Struts2+Spring2.5+Ibatis2.3图书管理加强版－输入校验、国际化
2008-09-28 11:50 1798昨天写了个基础的Struts+Spring+Ibatis ... -
Struts2+Spring2.5+Ibatis2.3图书管理
2008-09-27 13:50 9443看了Ibatis也有好长时间啦，一直也没有和Struts ... -
IBatis简单实现（附主键自动生成）
2008-09-13 11:21 6920有一段没有更新博客啦，还请各位原谅。 这段时间一直 ... -
电子地图－－MapABC研究（三）为地图上添加点并得到中心坐标
2008-08-28 10:56 2334出于项目的需要，还要继续对MapABC进行研究，昨天看了 ... -
电子地图－－MapABC研究（二）地图编辑
2008-08-26 14:09 1937这是电子地图研究的第二部分。 普通用户使用地图无非就是 ... -
电子地图－－MapABC研究（一）
2008-08-26 08:48 1745回头想想做J2EE也有一年多啦，这一年中一经历了很多很多， ... -
Dwr2+Struts2+Spring2.5+Hibernate3完美整合－－用户登录注册系统
2008-08-23 09:51 7897用户注册和登录是每个系统的必须存在的一部分，基于Dwr+S ...
相关推荐
asp.net vs05版Gridview上移下移功能，能满足上移下移功能
上 移 下 移 代 码 好的 参考
项目开发中列表展示页面涉及到一些条目的上下移动 ，由于数据量大时，服务端代码比较耗时， 所以我使用mysql 存储过程完成上下移动，比较通用方法，欢迎大家下载学习，共同进步
上移 下移 动态移动，上移 下移 动态移动，上移 下移 动态移动，
ASP.NET中TreeView节点上移下移 实现无刷新效果
个性化表格上移下移，很特别的个性化表格，希望有人能用的到。。。。。。。。。。。。
实现上移下移功能，具体绑定一个数据源，操作数据源，最后把数据源赋值给数据源。
table上移下移table上移下移table上移下移table上移下移
treeview添加,删除,修改,上移,下移节点等功能
后台上移下移，编辑，删除效果后台上移下移，编辑，删除效果
php上移一位下移一位 源码我修改完善后 亲测可用 已多次应用到网站的。
jquery做的动态增加修改删除表格,上移下移功能,实际项目应用的,大家试试,支持多表格
对于GridPanel中拖动选中行排序的实现，网上有不少ExtJs实现的例子，但是...4、加了【最上】【最下】【上移】【下移】四个按钮排序的功能。目前按钮排序只能在Grid的单选模式下使用。 实现说明与功能演示请见我的Blog
GridView控件行数据上移、下移的实现，Visual Studio2010、Sqlserver2008。
主要介绍了jQuery基于排序功能实现上移、下移的方法,结合实例形式分析了jQuery使用ajax与后台php交互实现元素的排序，上移、下移功能相关操作技巧
ztree，右击（点击小图标）上移、下移、置顶、置底。点击空白隐藏div
NULL 博文链接：https://632902651-qq-com.iteye.com/blog/1676286
简单的签到列表选择，实现选择上移、下移。简单的签到列表选择，实现选择上移、下移。
js动态构建可以置顶、置底、上移、下移、添加、删除的table，