admin_news_lm2_add_save.asp 学校共青团组织网站源代码 - ASP源码程序

www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_news_lm2_add_save.asp

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


<head>
<!--#include file = language.asp -->
<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>

</head>

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


<%
id=trim(request("id"))
lm2=trim(request("lm2"))
fontcolor=trim(request("fontcolor"))
if fontcolor="" then fontcolor="000000"
lm=trim(request("lm"))
sql = "select * from newsmb order by id asc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
mb=rs("ID")
rs.close
set rs=nothing
if id<>"" or lm2<>"" then 
   sql = "select * from lm"
   Set rs = Server.CreateObject("ADODB.RecordSet")
   rs.Open sql,conn,1,2
   rs.addnew
   rs("lm2")=lm2
   rs("lmid")=id
   rs("mb")=mb
   rs("fontcolor")=fontcolor
   rs.update

   rs.close
   set rs=nothing

end if 

conn.close
set conn=nothing

Response.Redirect "admin_news_lm2.asp?id="&id&"&lm="&lm
%>