admin_mb_add_save.asp

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

<%
if session("admin__user")="" then
  Response.Redirect "login.asp?id=8"
end if
%>
<style>
<!--
a:link       { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited    { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover      { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body         { font-family: 宋体; color: #000000; font-size: 9pt }
p            { color: #000000; font-family: 宋体; font-size: 9pt }
td           { font-size: 9pt; font-family: 宋体; color: #000000 }
input        { font-size: 9pt; font-family: 宋体; color: #000000 }

-->
</style>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->

<%
title=trim(request("title"))
midd=trim(request("mid"))
id=trim(request("id"))
list=trim(request("list"))
so=trim(request("so"))
lx=trim(request("lx"))
listshu=trim(request("listshu"))
if lx="" then lx=2

if title<>"" or midd<>"" then
 if id<>"" then   
  sql = "select top 1 * from newsmb where id="&id
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,2
 else
  sql = "select top 1 * from newsmb"
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,2
  rs.addnew
 end if
  rs("title")=title
  rs("top")=" "
  rs("mid")=midd
  rs("down")=" "
  rs("listmb")=list
  rs("somb")=so
  rs("list")=listshu
  rs("lx")=lx
  rs.update
  rs.close
  set rs=nothing
end if

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