admin_lm_edit_save.asp

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

<%
if session("admin__user")="" then
  Response.Redirect "login.asp?id=8"
end if
%>
<!--#include file = admin_conn.asp -->
<%
if request("lm")<>"" then
  id=request("id")
  lm=trim(request("lm"))
  sql = "select * from lm where id="&id
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,3
  oldlm=rs("lm")
  rs("lm")=lm
  rs.update
  rs.close
  set rs=nothing

  sql = "select lm from news where lm='"&oldlm&"'"
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,3

  while not rs.eof
     rs("lm")=lm
    rs.update
    rs.movenext
  wend  
  
  rs.close
  set rs=nothing
  
end if

conn.close
set conn=nothing
Response.Redirect "admin_news_lm.asp"
%>