update.asp

强大的后台文章编辑器的功能

<!--#include file = admin_conn.asp -->

<%
lm=19
lm2=25

sql = "select * from news order by id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
while not rs.eof
  rs("lm2")=rs("lm")
  rs("lm")=37
  rs.update
rs.movenext
wend
Response.Write "<BR><BR><BR><center>共有"&rs.recordcount&"条新闻转换成功。"

rs.close
set rs=nothing
conn.close
set conn=nothing

%>