<!--#include file="System_manage.asp"-->

<%
Dim i,AdsShow
Dim sitea,siteb,sitec,sited,sitef,siteg,siteh


Call DBConnBegin()
Select Case Request("Action")
  Case "save"
	  For i = 0 To 11
        If Request.Form("a" & (i)) = "" Then Call tx_common.message("·请输入完整系统基本设置<meta http-equiv=refresh content='1;URL=System_Setting.asp'>",0)
        sitea = sitea & "§§§" & Request.Form("a" & (i))
      Next  
      If Left(sitea, 3) = "§§§" Then sitea = Right(sitea, Len(sitea) - 3)
      'Save
	 ' Call tx_common.SCache("Setting","")
	  Conn.ExeCute("Update tx_Config Set tx_Setting='"&sitea&"'")
	  Call tx_common.message("·网站基本信息设置成功<br>·如果需要，请刷新相关静态文件<meta http-equiv=refresh content='3;URL=System_Setting.asp'>",1)
  
  Case Else
content=tx_tables.formtop("?action=save","基本信息设置")
content=content & tx_tables.inputs("<strong>网站名称</strong>","a0","text",tx_setting(3))
content=content & tx_tables.inputs("<strong>网站地址</strong>","a1","text",tx_setting(1))
content=content & tx_tables.inputs("<strong>网站安装路径</strong><br>如网站地址为http://www.snxsc.com/text/，则输入/text/","a2","text",tx_setting(2))
content=content & tx_tables.inputs("<strong>网站备案号</strong>","a10","text",tx_setting(10))
content=content & tx_tables.textarea("<stront>网站版权信息</strong>","a11",tx_setting(11))
content=content & tx_tables.tablebr
'content=content & tx_tables.tablestop("上传相关")
'content=content & tx_tables.Selects("<strong>上传组件</strong>","a12",0,suploadobjv,suploadobjo,tx_setting(12))
'content=content & tx_tables.Selects("<strong>自动目录</strong>","a13",0,suploaddirv,suploaddiro,tx_setting(13))
'content=content & tx_tables.Selects("<strong>远程文件</strong>","a14",0,suploadremovev,suploadremoveo,tx_setting(14))
'content=content & tx_tables.Selects("<strong>路径模式</strong>","a15",0,suploadurlv,suploadurlo,tx_setting(15))
'content=content & tx_tables.inputs("<strong>上传路径</strong>","a16","text",tx_setting(16))
'content=content & tx_tables.inputs("<strong>图片类型</strong>","a17","text",tx_setting(17))
'content=content & tx_tables.inputs("<strong>图片大小(kbps)</strong>","a18","text",tx_setting(18))
'content=content & tx_tables.inputs("<strong>Flash类型</strong>","a19","text",tx_setting(19))
'content=content & tx_tables.inputs("<strong>Flash大小</strong>","a20","text",tx_setting(20))
'content=content & tx_tables.inputs("<strong>媒体类型</strong>","a21","text",tx_setting(21))
'content=content & tx_tables.inputs("<strong>媒体大小</strong>","a22","text",tx_setting(22))
'content=content & tx_tables.inputs("<strong>其他文件类型</strong>","a23","text",tx_setting(23))
'content=content & tx_tables.inputs("<strong>其他文件大小</strong>","a24","text",tx_setting(24))
'content=content & tx_tables.inputs("<strong>远程上传类型</strong>","a25","text",tx_setting(25))
'content=content & tx_tables.inputs("<strong>远程文件大小</strong>","a26","text",tx_setting(26))
'content=content & tx_tables.tablebr
content=content & tx_tables.tablestop("优化相关")
content= content& tx_tables.inputs("<strong>网站标题</strong><br>该部分只出现在网站title标签处，起关键性优化作用","a3","text",tx_setting(0)) 
content=content & tx_tables.inputs("<strong>网站关键字</strong>","a4","text",tx_setting(4))
content=content & tx_tables.inputs("<strong>网站简单介绍</strong>","a5","text",tx_setting(5))
content=content & tx_tables.tablebr
content=content & tx_tables.tablestop("其他设置")
content=content & tx_tables.yesno("<strong>是否起用会员</strong>","a6",tx_setting(6))
content=content & tx_tables.yesno("<strong>网站关闭网站</strong>","a7",tx_setting(7))
content=content & tx_tables.textarea("<strong>会员关闭时显示信息</strong>","a8",tx_setting(8))
content=content & tx_tables.textarea("<strong>是否关闭时显示信息</strong>","a9",tx_setting(9))

content=content & tx_tables.formfoot

 End Select
Call ClassEnd()
Call DBConnEnd()
response.write content
Call GetBottom()
%>
