不知道，Jaron (唐伯虎点蚊香) 大侠在吗？其他高手能帮帮忙，救命！！

[wmlf]

我要做一个官员的排位问题。（用的ACCESS）
我在数据库里用了一个字段c16（数字）
这样管理员就在输入信息的时候可以确定这个人排在第几。
可是当修改，删除。添加的时候。
要求这个数字会相应的增加和减小。
我想问问思路。

[nchen123]

假设你用 level 字段来表示牌位， 数值越高牌位越高

添加的时候， 比如你要将新加入的人牌位设为 15， 那么就先执行一下：
update 表名 set level = level + 1 where level > 15
然后
insert into 表名 (其他字段... , level) values(... , 15)

删除的时候， 先取出要删除的这个人的 level 是多少
select level from 表名 where username = 你要删除的那个人
得到 level 值了，
接着把比他 level 高的人降一个位子
update 表名 set level = level - 1 where level > 刚才你取出来的level值

是不是这个意思？

[wmlf]

在删除和添加的时候，
添加的时候插入到第三的时候。
后面的都要变化，自动加一。
删除的时候，删除了第三的时候。
后面的都要自动减一

[nchen123]

补充：接着执行 delete 语句

[wmlf]

对的就是这个意思？？

[wmlf]

我试一试。
不过我想知道还有没有其他的方案
inelm(Archimond) ( ) 信誉
能不能再帮我看看这个；
http://expert.csdn.net/Expert/topic/2431/2431207.xml?temp=.4688684

[nchen123]

如果你用的是 sql server , 最好把上面的这个逻辑写成存储过程，这样调用不容易出错。
或者 asp 里面用事务处理也可以。

[wmlf]

asp 里面用事务处理 我用的access
怎么用，我没有用过。
能不能给我一个例子看看
[e-mail]

[Jaron]

在ACCESS下，根据你的算法，执行两条SQL语句。

[nchen123]

贴一篇别人写的东东给你看看：（原来的 url 我记不得了）
-----------------------------------------------------

标题 在ASP中使用事务控制 julyclyde（原作）

关键字 ASP,事务,COM+



作者系2月份微软社区之星Microsoft China Community Star



在编程中，经常需要使用事务。所谓事务，就是一系列必须都成功的操作，只要有一步操作失败，所有其他的步骤也必须撤销。比如用ASP开发一个网络硬盘系统，其用户注册部分要做的事有：

将用户信息记入数据库
为用户开个文件夹用于存储
初始化用户操作日志

这三步必须使用事务，否则万一磁盘操作失败，而没有撤销数据库操作，就会造成只能登陆而不能操作的“死用户”现象。
由于数据库系统特殊的发展历史，小至Access，大到DB2,无不带有事务支持。因此上述步骤可以如下表示：
On Error Resume Next
第一步：
在事务环境下把用户信息记入数据库
If Err Then
关闭连接
退出
Else
第二步：创建文件夹
If Err Then
回滚第一步数据库操作，退出
Else
第三步：在事务环境下操作日志数据库
If Err Then
回滚第一步操作，删除第二步建立的文件夹
退出
End If
End If
End If
提交第一步数据库操作的事务
提交第二步数据库操作的事务
End


每一步都需要进行判断，如果失败，还需要手工回滚前面多步操作，使程序变得复杂、难懂。如果今后更新了程序，增加其他步骤，还需要嵌套更多层的If...Else...End If，使程序流程更加复杂。

正确的解决办法是使用ASP的事务控制功能。IIS通过和MTS服务联系，可以控制多种支持事务的系统，当程序发出“失败”的信号时，所有支持事务的系统均将自动回滚，即使操作已经正式完成；对不支持事务的操作也提供了方便的手工回滚方式。上面的例子用ASP事务控制功能重写如下：

<%@ TRANSACTION = Required %>
On Error Resume Next

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open ....
Conn.Execute "INSERT...."
Conn.Close
Set Conn=Nothing

Set Conn2=Server.CreateObject("ADODB.Connection")
Conn2.Open ....
Conn2.Execute "INSERT...."
Conn2.Close
Set Conn2=Nothing

Set FSO=Server.CreateObject("Scripting.FilesystemObject")
FSO.CreateFolder "...."

If Err Then
ObjectContext.SetAbort '通知所有支持事务的组件回滚，并运行手工回滚代码
Else
ObjectContext.SetComplete
End If
Set FSO=Nothing

Sub OnTransactionAbort
Response.Write "错误"
FSO.DeleteFile Server.Mappath("a.txt") 'FSO的手工回滚——删除文件夹
End Sub
Sub OnTransactionCommit
Response.Write "胜利完成任务"
End Sub
%>

第一行的<%@ TRANSACTION = Required %>表示这一页ASP文件需要MTS的事务支持。中间的各个操作都按普通顺序书写，而不用考虑回滚问题。在程序最后判断是否有错误。如果有，调用ObjectContext的SetAbort方法，IIS会通过MTS服务通知所有支持事务的组件回滚（主要是数据库），并且运行Sub OnTransactionAbort对不支持事务的操作手工回滚；如果没有发生错误，调用ObjectContext的SetComplete方法，则会运行Sub OnTransactionCommit来显示成功的消息。
整个ASP程序不需要为判断错误和回滚操作书写多余的代码，只须在最后进行判断，即使今后增加了多步操作，也只需要在Sub OnTransactionAbort中进行控制即可，非常方便，程序员可以专注于过程编写而不是书写纠错代码。
其实ASP还提供了许多更有用的功能，等着我们使用，千万不要以为ASP使用脚本语言，功能就一定弱。

[yaozhg]

先说说唐兄,可能是秋香姐不上他上CSDN.哎.少了这才子CSDN的看头就少了..

你的要求我知道如何编写,但不知道是否效率最高.

我建议你这样.修改官员的页面不要加上修改排位这个功能,修改排位另外用一个页面,.
进入页面之后,应该是这样.

名字 排名 官位
a ↑ ↓ 最大
b ↑ ↓ 较大
c ↑ ↓ 中
d ↑ ↓ 较小
e ↑ ↓ 最小

点击↑或↓时,就对排位进行操作,比如e点击↑.



↑的超连接是 a.asp?calss=<%=c16%>&main=up
calss=request("calss")

if request("main")="up" then '判断如果点击了↑,就..向上移位
if calss=1 then
response.write "已经是最高职位"
else
conn.execute "update user set c16='"&calss-1&"' where c16="&calss '排位减1,比如第5级官员就变成第4级,
conn.execute "update user set c16='"&calss+1&"' where c16="&calss-1 '排位加1,比如第4级官员就变成第5级,
end if
end if


如果插入某人或删除某人.
插入后建议直接把那人排到最后.然后再进入排位页而(就是上面我写代码的页面)将他的位置一步一步向上移.

删除某人之后排位不管也行.1,2,3,5这样的也排起来少了个4也没问题.移动的时候当没找到4条件就不成立,也应该不会出错.

[wmlf]

Jaron(唐伯虎点蚊香) ( )
能具体点吗？？？？？
谢了！！

[Jaron]

呵呵。
如果是SQL数据库，那做个存储过程很容易实现，像你这种类型的程序，很多人同时修改数据库、修改排序的可能性不大，就用两条SQL语句来实现好了。
用事务比较麻烦。

[Jaron]

楼上不少朋友说得都不错。可以考虑他们的建议。

[wmlf]

能写写吗？？
我现在已经晕了。
没有什么头绪了。。

[yonghengdizhen]

<%@ Language=VBScript %>
<%
set xmldoc=Server.CreateObject("MSXML2.DOMDocument")
set obj=server.CreateObject("gdcom.database")
xmldoc.load Request
set objNodeList=xmldoc.getElementsByTagName("DATAITEM")
for each objNode in objNodeList
Index=objNode.attributes.getNamedItem("INDEX").nodeValue
Id=objNode.attributes.getNamedItem("ID").nodeValue
strSQL="UPDATE tblcheckuppic SET RecordTime=TO_DATE('" & DateAdd("s",Index,Now()) & "','yyyy/mm/dd hh24:mi:ss') WHERE id='" & Id & "'"
result=obj.RunSQL(strSQL)
next
Response.Write xmldoc.xml
%>

[yonghengdizhen]

<PUBLIC:COMPONENT>
<PUBLIC:PROPERTY PUT="setLayoutUrl" NAME="LayoutURL" />
<PUBLIC:PROPERTY PUT="setHeadRows" NAME="HeadRows" />
<PUBLIC:PROPERTY PUT="setTailRows" NAME="TailRows" />
<PUBLIC:ATTACH EVENT="oncontentready" ONEVENT="Init()"/>
<SCRIPT LANGUAGE="javascript">
var oDragSource=null;
var oDragTarget=null;
var nHeadRows=0;
var nTailRows=0;
var sLayoutURL="";
var bUpdateLayout=false;
function setLayoutUrl(sValue)
{
sLayoutURL=sValue;
}
function setHeadRows(sValue)
{
if(parseInt(sValue)==sValue)
{
nHeadRows=parseInt(sValue);
}
}
function setTailRows(sValue)
{
if(parseInt(sValue)==sValue)
{
nTailRows=parseInt(sValue);
}
}
function StartDrag()
{
if(event.button==1&&event.srcElement.tagName!="INPUT"&&event.srcElement.tagName!="SELECT"&&event.srcElement.tagName!="TEXTAREA")
{
for(var pNode=event.srcElement;pNode.tagName!="TD";pNode=pNode.parentNode){}
if(pNode.tagName=="TD")
{
if(element.contains(pNode))
{
oDragSource=pNode;
oDragTarget=null;
pNode.dragDrop();
}
}
}
event.srcElement.disabled=false;
}
function DropDrag()
{
switch (event.type)
{
case "dragstart" :
{
window.event.dataTransfer.effectAllowed = "copy";
}
case "dragover" :
{
for(var pNode=event.srcElement;pNode.tagName!="TD";pNode=pNode.parentNode){}
if(pNode.tagName=="TD")
{
if(pNode!=oDragSource&&element.contains(pNode))
{
window.event.returnValue = false;
window.event.dataTransfer.dropEffect = "copy";
oDragTarget=pNode;
}
}
}
case "dragend" :
{
if(event.srcElement==oDragSource&&oDragTarget!=null)
{
oDragSource.swapNode(oDragTarget);
}
}
}
}
function SendLayout()
{
if(sLayoutURL!="")
{
var xmlhttp=new ActiveXObject("MSXML2.XMLHTTP")
sXML="<ROOT>"
for(i=0;i<element.cells.length;i++)
{
if(element.cells[i].parentElement.rowIndex>=nHeadRows&&element.cells[i].parentElement.rowIndex<element.rows.length-nTailRows)
{
sXML=sXML + "\t<DATAITEM ID='" + element.cells[i].id +"' INDEX='" + i + "'/>\n"
}
}
sXML=sXML + "</ROOT>"
xmlhttp.open("POST",sLayoutURL,false);
xmlhttp.send(sXML);
//alert(xmlhttp.responseText)
}
}
function Init()
{
if(element.tagName=="TABLE")
{
for(i=0;i<element.cells.length;i++)
{
if(element.cells[i].parentElement.rowIndex>=nHeadRows&&element.cells[i].parentElement.rowIndex<element.rows.length-nTailRows)
{
element.cells[i].attachEvent("onmousedown",new Function("StartDrag()"))
element.cells[i].attachEvent("ondragstart",new Function("DropDrag()"));
element.cells[i].attachEvent("ondragover",new Function("DropDrag()"));
element.cells[i].attachEvent("ondragend",new Function("DropDrag()"));
}
}
window.attachEvent("onbeforeunload",new Function("SendLayout()"))
}
}
</SCRIPT>
</PUBLIC:COMPONENT>

[yonghengdizhen]

strSQL="SELECT id,kind,description,matternum,recordman,recordtime FROM tblcheckuppic"
strSQL=strSQL & " WHERE checkupid='" & checkupid & "' ORDER BY recordtime ASC"
set rs=obj.RunSQLReturnRS (strSQL)
if not rs.EOF then
call bghead1()
if userspec="05" or usersmallspec="051001" then
sUPDATE="style='behavior:url(../inc/DRAG_DROP.HTC)' HeadRows=0 TailRows=1 LayoutURL='Picture_ChangeIndex.asp'"
end if
%>
<form method="POST" name="ListPicture" target=_hideFrame action="CheckupResult_DB.ASP">
<table ID="Table2" width="50%"><th>以下是照相专业人员为该份鉴定提供的检验结果照片</th></table>
<%call bgmid()%>
<table style="color:<%=session("color")%>;font-size:<%=session("size")%>" border="0" <%=sUPDATE%>>
<tr class="content">
<%
for i=1 to rs.RecordCount
%>
<td id="<%=rs("id")%>">
<input type ="checkbox" name="ResultPicId" class="checkbox" value="<%=rs("id")%>">
<%=rs("kind")%>(<%=rs("matternum")%>)=><%=rs("description")%>=><%=rs("recordman")%>
<BR><%=rs("recordtime")%><BR>
<IMG width=300 height=200 src='checkup.photo.show.asp?id=<%=rs("id")%>'>
</td>
<%
if i mod 3 =0 then Response.Write "</TR><TR class='content'>"
rs.MoveNext
next
%>
</tr>
<tr class="content">
<td colspan="3"><input type="submit" class="button" value="删除" name="btnPhotoDelete">
<input type="submit" class="button" name="btnPhotoBook" value="生成照相文书">
<font color=red>[按<input name="Columns" datatype="isnum" value="3" size=1 maxlength=1>列,
每页<input name="Rows" datatype="isnum" value="2" size=1 maxlength=1>行,
标题为<input name="Title" value="照相检验文书" size=15 maxlength=20>]</font>
<input type=hidden name="checkupid" value="<%=checkupid%>">

</td>
</tr>
</table>
</form>
<%
end if
rs.Close
set rs=nothing
%>

[lishilipeng]

<%ding=DING
IF DING THEN
FENG=FENG++
ELSE
FENG=FENG
END IF%>

[wmlf]

ADODB.Recordset 错误 '800a0bb9'

这个错误有没有地方可以查呀！！
'800a0bb9' 这又到底是什么意思？？

[syman815]

你说的那个排位，是指按官位，还是按顺序？？