查询的时候 按照 sort排序。
点击上移或者下移 就是把 sort数值进行更新,临近数值的交换,
另外还要判断是否最顶或者最低。
<a href="do.aspx?action=Order&type=Down&id=4">下移</a>
<a href="do.aspx?action=Order&type=Up&id=4">上移</a>
<%
Dim ordertype,id
id=request("id")
ordertype=request("type")
If ordertype="Down" Then
sql="select top 2 sort from Class where id <= "&id&" order by sort desc"
Elseif ordertype="Up" Then
sql="select top 2 sort from Class where id >= "&id&" order by sort asc"
End If
set rs=server.createobject("Adodb.recordset")
rs.open sql,conn,1,3
Dim i
i= 0
If rs.recordcount=1 Then
If ordertype="Down" Then
response.Write("已经是最底部了。")
Elseif ordertype="Up" Then
response.Write("已经是最顶部了。")
End If
Else
Dim temp_this,temp_next
temp_this=rs("sort")
rs.movenext
temp_next=rs("sort")
rs.MovePrevious
rs("sort")=temp_next
rs.movenext
rs("sort")=temp_this
rs.update
End If
rs.close
set rs=nothing
%>
1、SQL Server 不支持数据库使用除默认排序规则以外的排序规则。因此,在重建 master 数据库之前,请从用户数据库中导出所有数据。2. 为数据库中的所有对象生成脚本。
3. 使用适当的排序规则重新创建 master 数据库。
4. 创建新的数据库。使用新的默认排序规则自动创建新的数据库。
5. 运行以前保存的脚本以重新创建对象,然后导入以前导出的数据。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)