<%
if session("dj")<>"1" then
   Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
   Response.end
end if
ON ERROR RESUME NEXT
%>
<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"))
tb=trim(Request("tb"))
lmname=trim(request("lmname"))
newshit=trim(request("newshit"))
newstime=trim(request("newstime"))
open=trim(request("open"))
updown=trim(request("updown"))
icon=trim(request("icon"))
listtumb=trim(Request("listtumb"))
picw=trim(Request("picw"))
pich=trim(Request("pich"))
picx=trim(Request("picx"))
picy=trim(Request("picy"))
pictitle=trim(Request("pictitle"))
pictitlecolor=trim(Request("pictitlecolor"))
pictitlesize=trim(Request("pictitlesize"))


if open="" then open=1
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("tb")=tb
  rs("lmname")=lmname
  rs("newshit")=newshit
  rs("newstime")=newstime
  rs("openwindow")=open
  rs("updown")=updown
  rs("icon")=icon
  rs("listtumb")=listtumb
  rs("picw")=picw
  rs("pich")=pich
  rs("picx")=picx
  rs("picy")=picy
  rs("pictitle")=pictitle
  rs("pictitlecolor")=pictitlecolor
  rs("pictitlesize")=pictitlesize
  rs.update
  rs.close
  set rs=nothing
end if

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