Cómo implementar ASP mover hacia arriba y hacia abajo
OrderBy = request("OrderBy") 'El número de pedido del registro actual es at_no, at_id es la identificación del registro, tengo una identificación y un número de pedido separados en esta tabla
at_ID = request("at_ID") 'ID del registro actual
action = request("action") 'Dirección de movimiento
If OrderBy="" o at_ID="" o action= "" Entonces
respuesta.escribir "¡¡¡Error!!!! ¡Error de parámetro! Regresar"
respuesta.end
end if
if action="Up" then 'Mover hacia arriba
'Primero determine si se ha movido al top
sql="seleccione el top 1 at_ID de TaUserReqTop donde at_no<"&OrderBy&" ordenar por at_no desc"
set rs=server.createobject ("adodb.recordset") p>
rs .open sql,conn,1,3
si rs.eof entonces 'No hay más registros delante
rs.close
set rs =nada
respuesta.write "&& lt;script>alert('Error, el elemento ya está en primer lugar');window.history.back(); script>"
Respuesta.
end
end if
before_id=rs("at_ ID") 'ID del registro anterior
rs.close
set rs=nada
'Modificar el id del registro anterior
sql2="select at_no from TaUserReqTop donde at_ID="&before_ id 'Consultar el registro anterior
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,3
before_Orderby=rs2("at_no") 'OrderBy del registro
rs2("at_no")=OrderBy 'Cambiar el OrderBy de este registro
rs2.update
rs2.update
. close
set rs2=nada
sql3="select at_no from TaUserReqTop donde at_ID="&at_ID 'Consulta el registro actual (el registro que se va a mover)
set rs3=server .createobject("adodb.recordset")
rs3.close
set rs3=nada
elseif action="Abajo" y luego 'Mover abajo y arriba El significado de movimiento es el mismo
sql="select top 1 at_ID from TaUserReqTop donde at_no>"&OrderBy&" orden por at_no asc"
set rs=server.createobject("adodb. conjunto de registros")
rs.open sql,conn,1,3
si rs.eof entonces
rs.close
establecer rs=nada
respuesta.write ""
respuesta.end
p>fin si
end_id=rs("at_ID")
'response.Write(end_id)
'response.End()
rs.close
set rs=nada
sql2="seleccione at_ no de TaUserReqTop donde at_ID="&end_id
set rs2= server.update
rs2.close
set rs2=nada
sql3="seleccione at_no de TaUserReqTop donde at_ID= "&at_ID
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,1,3
rs
3(" at_no")=end_Orderby
rs3.update
rs3.close
set rs3=nada
else
Respuesta. End()
finalizar si
%>
" >>p>