<!--#include file="common.asp"-->
<%
  if Trim(session("mangflag"))="" or Trim(session("timeflag"))="" then
    Response.redirect("noadmto.asp")
  end if
%>
<%
  content=HtmlEncode(Request.Form("ncont"))

  set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from Config"

  rs.open sqlstr,conn,1,3
  if not rs.eof then
    rs("GB_Name")=Request.Form("GBName")
    rs("Logo_IMG")=Request.Form("LogoIMG")
    rs("CopyRight")=Request.Form("CopyTXT")
    rs("Guest_Num")=Request.Form("GNum")
		rs("RepListNum")=Request.Form("GRNum")
	  rs("GAreaWidth")=Request.Form("GAreaWidth")
		
    if Request.Form("NewsV")=1 then
      rs("News_View")=1
	else
	  rs("News_View")=0
    end if
	if Request.Form("ifNeedAuditing")=1 then
      rs("ifNeedAuditing")=1
	else
	  rs("ifNeedAuditing")=0
  end if
  if Request.Form("ASkin")=1 then
      rs("AlterSkin")=1
	else
	  rs("AlterSkin")=0
    end if
	if Request.Form("RepEnabled")=1 then
      rs("RepEnabled")=True
	else
	  rs("RepEnabled")=False
    end if
	rs("News_Label")	= Request.Form("NewsLabel")
	rs("SkinStr")		= Request.Form("Skin")
	rs("Link_one")	 	= Request.Form("Link_one")
	rs("Link_two") 		= Request.Form("Link_two")
	rs("Link_three") 	= Request.Form("Link_three")
	rs("FilterKeyWord") = Request.Form("FilterKeyWord")
	If Request.Form("IfRepNeedAud")=1 Then
		rs("IfRepNeedAud") = 1
	Else
		rs("IfRepNeedAud") = 0
	End If
  rs.update
  end if
 
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
%>
<%	  
  Response.Write("<script language=javascript>alert('保存设置成功，返回管理区！');location.href='manage.asp';</script>")

  'Response.redirect("config.asp")
  'Response.redirect("state.asp?state=guestsuc")
%>