我要做一个自动排序的系统，比如说我有很多的产品：产品1、产品2、产品3、产品4、产品5
我现在想添加一个产品6让他排在第二位，添加的程序和排序程序已经有了：
id2=trim(request("id2"))
set re=server.CreateObject("adodb.recordset")
sqlstrl="select * from s where id2 like '"&id2&"' "
re.open sqlstrl,conn,1,3
if not re.eof then
set re=server.CreateObject("adodb.recordset")
sqlstrl="select * from s where id2>="&id2
re.open sqlstrl,conn,1,3
for k=1 to re.recordcount
re("id2")=re("id2")+1
re.update
re.movenext
next
end if

这只是插入记录可以用，但是我现在想把产品5拿到产品2的位置，让它排第二位，后面的就往下挤。
程序该怎么写呢！
我想了很多的方法还是不能实现！！！

我在想一个问题,你新添加产品可以设定它的位置,那为什么编辑就不会写?

你关于这个程序的想法现在是怎么样的?

另外加一个排序的字段,
你看过动网后台对版面的排序吗?可以按那种方式做

二楼的帅哥,我现在的还没有想到什么思路去实现这个程序!
现在是要解决的是我不插入新纪录而是在原有的基础上来改变产品的排序。
比如说我想让产品5排到第二位去，程序不知道怎么写。
因为要设计到后面的产品的排序，要把第二个改变排序，还有后面的也要改变。
如果我想把排在第三的排到第五的话，又会出现另一种情况，那就是第五位上的产品的上面和下面的都要变化！
你想出来了吗？
三楼的斑竹，我没有看过动网的排序，是什么样子的啊！说说好吗？

在表中增加一个字段，如命名为orderid。然后一一对应产品id。如果你想改变他们的排序的时候，只要在编辑的页面中增加orderid的修改框，而在显示页面的时候先按orderid排序，如果orderid一样。则按产品id排序就可以了。
不知道这个思路是不是楼主想要的思路

先回去思考一下!明天答复你啊!