Asp实现上移下拉(代码调试通过)

最新推荐文章于 2025-10-27 15:19:21 发布

原创最新推荐文章于 2025-10-27 15:19:21 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#asp #date #sql #up

ASP技术专栏收录该内容

48 篇文章

订阅专栏

本文介绍了一段ASP代码，该代码用于实现新闻条目的上移和下移操作，通过更改数据库中记录的时间戳来调整新闻条目的显示顺序。代码使用了ADO组件进行数据库操作，并通过比较选定新闻条目的时间戳与其他条目的时间戳来决定移动方向。

<%
sub upnews'上移
set rs=server.CreateObject("adodb.recordset")
sql="select * from lei_news order by ordertime desc"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
if cstr(rs("id"))=htm_fn(cstr(Request("ID"))) then
date1=rs("ordertime")
id1=rs("id")
rs.moveprevious
if rs.bof then
exit do
end if
date2=rs("ordertime")
id2=rs("id")
exit do
end if
rs.movenext
loop
end if
rs.close
set rs=nothing
'conn.begintrans
if date2<>"" and date1<>"" and id1<>"" and id2<>"" then
upsql1="update lei_news set ordertime='"&date2&"' where id="&id1
upsql2="update lei_news set ordertime='"&date1&"' where id="&id2
conn.execute(upsql1)
conn.execute(upsql2)
Response.Write("update")
if err.number=0 then
'conn.CommitTrans
response.write("<script>alert('移动成功');location.href='news.asp';</script>")
Response.End()
else
'conn.RollbackTrans
response.write("<script>alert('移动失败');history.back(-1);</script>")
Response.End()
end if
end if
end sub
if request("state")="up" and request("ID")<>"" then
call upnews
end if
sub downnews'下拉
set rs=server.CreateObject("adodb.recordset")
sql="select * from lei_news order by ordertime asc"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
do while not rs.eof
if cstr(rs("id"))=htm_fn(cstr(Request("ID"))) then
date1=rs("ordertime")
id1=rs("id")
rs.moveprevious
if rs.bof then
exit do
end if
date2=rs("ordertime")
id2=rs("id")
exit do
end if
rs.movenext
loop
end if
rs.close
set rs=nothing
'conn.begintrans
if date2<>"" and date1<>"" and id1<>"" and id2<>"" then
upsql1="update lei_news set ordertime='"&date2&"' where id="&id1
upsql2="update lei_news set ordertime='"&date1&"' where id="&id2
conn.execute(upsql1)
conn.execute(upsql2)
Response.Write("update")
if err.number=0 then
'conn.CommitTrans
response.write("<script>alert('移动成功');location.href='news.asp';</script>")
Response.End()
else
'conn.RollbackTrans
response.write("<script>alert('移动失败');history.back(-1);</script>")
Response.End()
end if
end if
end sub
if request("state")="down" and request("ID")<>"" then
call downnews
end if
%>