置顶,在表里加一个置顶的列
移动也用同样的方法就可以了
置顶和上下移动给你分开说下吧
置顶:
1。 设置一个置顶字段 bit类型(1、0)
2。写代码改变置顶字段的值。
3。查询语句用个 order by [置顶字段]。
上下移动:
1。添加个排序字段int类型 (添加记录时顺便录入入他的序号)
2。比如:
id编号 顺序
1 1 ↑↓
2 2 ↑↓
3 3 ↑↓
4 4 ↑↓
点上移的时候获取上一个记录的id然后把他两的记录顺序互换下即可。
下移是同样的原理。
3。就是语句的排序了。应该没问题吧。
基本思路就是这。具体的语句你写写看。
'############################################################置顶
set rss=conn.execute("select Info_id,Info_sort from information where Info_id="&actid)
usersort1=rss("Info_sort")
set rss=nothing
set rss=conn.execute("select top 1 Info_id,Info_sort from information order by Info_sort desc" )
usersort2=rss("Info_sort")
userid=rss("Info_id")
set rss=nothing
conn.execute("update information set Info_sort="&usersort2&" where Info_id="&actid)
conn.execute("update information set Info_sort="&usersort1&" where Info_id="&userid)
'############################################################上移
set rss=conn.execute("select top 1 Info_id from information order by info_sort desc")
usersort0=rss("Info_id")
set rss=nothing
if usersort0-actid<>0 then
set rss=conn.execute("select Info_id,Info_sort from information where Info_id="&actid)
usersort1=rss("Info_sort")
set rss=nothing
set rss=conn.execute("select top 1 Info_id,Info_sort from information where info_sort>"&usersort1&" order by info_sort-"&usersort1&" asc")
usersort2=rss("Info_sort")
userid=rss("Info_id")
set rss=nothing
conn.execute("update information set Info_sort="&usersort2&" where Info_id="&actid)
conn.execute("update information set Info_sort="&usersort1&" where Info_id="&userid)
'############################################################下移
set rss=conn.execute("select top 1 Info_id from information order by info_sort asc")
usersort0=rss("Info_id")
set rss=nothing
if usersort0-actid<>0 then
set rss=conn.execute("select Info_id,Info_sort from information where Info_id="&actid)
usersort1=rss("Info_sort")
set rss=nothing
set rss=conn.execute("select top 1 Info_id,Info_sort from information where info_sort<"&usersort1&" order by info_sort desc" )
usersort2=rss("Info_sort")
userid=rss("Info_id")
set rss=nothing
conn.execute("update information set Info_sort="&usersort2&" where Info_id="&actid)
conn.execute("update information set Info_sort="&usersort1&" where Info_id="&userid)
就是yonggang_xue的思路,info_id是主键,info_sort是排序字段,存信息是info_sort值存和info_id一样