<!--#include file="setup.asp"-->
<%
Dim SkinID
Dim StyleID
Dim i
NC_Admin.AdminChk = "01"
NC_Admin.Check
DownsysClass.admin_header
'取当前系统默认模板编号
SkinID = DownsysClass.Tempid
If StyleID = "" Then
	StyleID = SkinID
	ElseIf Not IsNumeric(StyleID) Then
	StyleID = SkinID
End If
StyleID = CLng(StyleID)
If Request("action") = "save" Then
	Call saveconst
	ElseIf Request("action") = "restore" Then
	Call restore
	ElseIf Request("action") = "reload" Then
	Call ReloadCache
Else
	Call consted
End If
DownsysClass.admin_footer
NothingObject

Private Sub consted()
	Dim Templateslist
	Dim NowOpenTemplate
	Dim InstalledObjects(11)
	Response.Write "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & vbCrLf
	Response.Write "<form method=""POST"" action=""admin_setting.asp?action=save"">" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<th>系统基本设置" & vbCrLf
	Response.Write "</th></tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td height=25 class=Forumrow align=left><B>说明</B>：这里的设置代表了所有系统中所有的设置。如果你设置有误，请[<a href=admin_setting.asp?action=restore><font color=RED>还原设置</a></font>] </td>" & vbCrLf
	Response.Write "</tr> " & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td height=25 class=Forumrow align=left>&nbsp;<a href=""#setting2"">[系统状态]</a>&nbsp;<a href=""#setting3"">[邮件选项]</a>&nbsp;<a href=""#setting4"">[系统设置]</a>&nbsp;<a href=""#setting5"">[会员设置]</a>&nbsp;<a href=""#setting6"">[下载及文章设置]</a>&nbsp;<a href=""#setting8"">[过滤字符]</a>&nbsp;[<a href=admin_setting.asp?action=reload><font color=RED>重建缓存</a></font>]</td>" & vbCrLf
	Response.Write "</tr> " & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "<BR>" & vbCrLf
	Response.Write "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting1""></a><b>系统基本信息</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</th>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td width=""35%"" class=Forumrow> <U>主页名称</U></td>" & vbCrLf
	Response.Write "<td width=""65%"" class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(0)"" size=""35"" value="""
	Response.Write DownsysClass.setting(0)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>主页的url</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(1)"" size=""35"" value="""
	Response.Write DownsysClass.setting(1)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>联系邮箱</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(2)"" size=""35"" value="""
	Response.Write DownsysClass.setting(2)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>站点关键字</U><BR>将被搜索引擎用来搜索您网站的关键内容</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""System_set(3)"" cols=""55"" rows=""3"">"
	Response.Write DownsysClass.setting(3)
	Response.Write "</textarea>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>版权信息</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""System_set(4)"" cols=""55"" rows=""5"" id=TdCopyright>"
	Response.Write DownsysClass.setting(4)
	Response.Write "</textarea>" & vbCrLf
	Response.Write " <a href=""javascript:admin_Size(-5,'TdCopyright')""><img src=""images/2.gif"" unselectable=""on"" border='0'></a> <a href=""javascript:admin_Size(5,'TdCopyright')""><img src=""images/1.gif"" unselectable=""on"" border='0'></a>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<th height=""25"" colspan=""2"" align=left><a name=""setting2""></a><b>系统默认设置</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</th>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>选择系统默认模板样式</U><BR></td>" & vbCrLf
	Response.Write "<td class=Forumrow>" & vbCrLf
	'利用系统缓存数据取得所有模板名称和ID

	DownsysClass.Name = "Templateslist"
	If DownsysClass.ObjIsEmpty Then DownsysClass.ReloadTemplateslist
	Templateslist = DownsysClass.Value
	Templateslist = Split(Templateslist, "@@@")
	Response.Write "<select name=""tempid"" size=1>"
	For i = 0 To UBound(Templateslist)
		Templateslist(i) = Split(Templateslist(i), "|||")
		Response.Write "<option value=""" & Templateslist(i)(0) & """"
		If CLng(Templateslist(i)(0)) = CLng(StyleID) Then
			Response.Write " selected"
			NowOpenTemplate = Templateslist(i)(1)
		End If
		Response.Write ">" & Templateslist(i)(1) & "</option>"
	Next
	Response.Write "</select>"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>选择系统默认状态</U><BR></td>" & vbCrLf
	Response.Write "<td class=Forumrow>" & vbCrLf
	Response.Write "<input type=radio name=""System_set(5)"" value=0 "
	If CInt(DownsysClass.setting(5)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">静态HTML&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(5)"" value=1 "
	If CInt(DownsysClass.setting(5)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">动态ASP&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>首页文件名</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(6)"" size=""15"" value="""
	Response.Write DownsysClass.setting(6)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<td class=Forumrow><U>系统当前状态</U><BR>维护期间可设置关闭系统使用</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(7)"" value=0 "
	If CInt(DownsysClass.setting(7)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">打开&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(7)"" value=1 "
	If CInt(DownsysClass.setting(7)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow><U>维护说明</U><BR>在系统关闭情况下显示，支持html语法</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""StopReadme"" cols=""55"" rows=""3"" id=TdStopReadme>"
	Response.Write DownsysClass.StopReadme
	Response.Write "</textarea>" & vbCrLf
	Response.Write " <a href=""javascript:admin_Size(-5,'TdStopReadme')""><img src=""images/2.gif"" unselectable=""on"" border='0'></a> <a href=""javascript:admin_Size(5,'TdStopReadme')""><img src=""images/1.gif"" unselectable=""on"" border='0'></a>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting3""></a><b>邮件选项</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>系统管理员Email</U><BR>给用户发送邮件时，显示的来源Email信息</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(8)"" size=""35"" value="""
	Response.Write DownsysClass.setting(8)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>SMTP Server地址</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(9)"" size=""35"" value="""
	Response.Write DownsysClass.setting(9)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>发送邮件组件</U><BR>如果您的服务器不支持下列组件，请选择不支持" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<select name=""System_set(10)"" onChange=""chkselect(options[selectedIndex].value,'know1');"">" & vbCrLf
	Response.Write "<option value=""0"" "
	If DownsysClass.setting(10) = 0 Then
		Response.Write "selected"
	End If
	Response.Write ">不支持 " & vbCrLf
	Response.Write "<option value=""1"" "
	If DownsysClass.setting(10) = 1 Then
		Response.Write "selected"
	End If
	Response.Write ">JMAIL " & vbCrLf
	Response.Write "<option value=""2"" "
	If DownsysClass.setting(10) = 2 Then
		Response.Write "selected"
	End If
	Response.Write ">CDONTS " & vbCrLf
	Response.Write "<option value=""3"" "
	If DownsysClass.setting(10) = 3 Then
		Response.Write "selected"
	End If
	Response.Write ">ASPEMAIL " & vbCrLf
	Response.Write "</select><div id=know1></div>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>邮件登录用户名</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(11)"" size=""30"" value="""
	Response.Write DownsysClass.setting(11)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>邮件登录密码</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""password"" name=""System_set(12)"" size=""30"" value="""
	Response.Write DownsysClass.setting(12)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否打开邮件功能</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(13)"" value=0 "
	If CInt(DownsysClass.setting(13)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(13)"" value=1 "
	If CInt(DownsysClass.setting(13)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">打开&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>发送注册信息邮件</U><BR>请确认您打开了邮件功能</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(14)"" value=0 "
	If CInt(DownsysClass.setting(14)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(14)"" value=1 "
	If CInt(DownsysClass.setting(14)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">打开&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting4""></a><b>系统设置</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>脚本超时时间</U><BR>单位：秒，请输入数字</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(15)"" size=""10"" value="""
	Response.Write DownsysClass.setting(15)
	Response.Write """>&nbsp;秒" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>服务器时差</U><BR></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<select name=""System_set(16)"">" & vbCrLf
	For i = -23 To 23
		Response.Write "<option value="""
		Response.Write i
		Response.Write """ "
		If i = CInt(DownsysClass.setting(16)) Then
			Response.Write "selected"
		End If
		Response.Write ">"
		Response.Write i
	Next
	Response.Write "</select>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否显示友情连接</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(17)"" value=0 "
	If CInt(DownsysClass.setting(17)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(17)"" value=1 "
	If CInt(DownsysClass.setting(17)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否显示页面执行时间</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(18)"" value=0 "
	If CInt(DownsysClass.setting(18)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(18)"" value=1 "
	If CInt(DownsysClass.setting(18)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否开启HTML编辑器</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(19)"" value=0 "
	If CInt(DownsysClass.setting(19)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(19)"" value=1 "
	If CInt(DownsysClass.setting(19)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>删除不活动用户时间</U><BR>单位：分钟，请输入数字</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(20)"" size=""10"" value="""
	Response.Write DownsysClass.setting(20)
	Response.Write """>&nbsp;分钟" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>Session会话的保持时间</U><BR>单位：分钟，请输入数字</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(21)"" size=""10"" value="""
	Response.Write DownsysClass.setting(21)
	Response.Write """>&nbsp;分钟" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>上传图片大小设置（KB）</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(22)"" size=""15"" value="""
	Response.Write DownsysClass.setting(22)
	Response.Write """>&nbsp;KB" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>上传文件大小设置（KB）</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(23)"" size=""15"" value="""
	Response.Write DownsysClass.setting(23)
	Response.Write """>&nbsp;KB" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>上传文件目录</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(24)"" size=""15"" value="""
	Response.Write DownsysClass.setting(24)
	Response.Write """>&nbsp;目录名后面请加上“/”" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>上传文件类型</U><BR>请用“|”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(25)"" size=""55"" value="""
	Response.Write DownsysClass.setting(25)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>上传图片目录</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(26)"" size=""15"" value="""
	Response.Write DownsysClass.setting(26)
	Response.Write """>&nbsp;目录名后面请加上“/”" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>上传图片类型</U><BR>请用“|”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(27)"" size=""55"" value="""
	Response.Write DownsysClass.setting(27)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td class=Forumrow ><U>选取上传组件:</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow >" & vbCrLf
	Response.Write "<select name=""System_set(28)"" onChange=""chkselect(options[selectedIndex].value,'know2');"">" & vbCrLf
	Response.Write "<option value=""999"" "
	If DownsysClass.setting(28) = 999 Then
		Response.Write "selected"
	End If
	Response.Write ">关闭上传功能" & vbCrLf
	Response.Write "<option value=""0"" "
	If DownsysClass.setting(28) = 0 Then
		Response.Write "selected"
	End If
	Response.Write ">无组件上传类 " & vbCrLf
	Response.Write "<option value=""1"" "
	If DownsysClass.setting(28) = 1 Then
		Response.Write "selected"
	End If
	Response.Write ">Lyfupload组件" & vbCrLf
	Response.Write "</select><div id=""know2""></div>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否开启批量上传功能</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(29)"" value=0 "
	If CInt(DownsysClass.setting(29)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(29)"" value=1 "
	If CInt(DownsysClass.setting(29)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>批量上传最多的文件数</U><BR>请输入数字</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(30)"" size=""10"" value="""
	Response.Write DownsysClass.setting(30)
	Response.Write """>&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>FSO组件的名称</U><BR>FSO默认名称：Scripting.FileSystemObject</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""Script_FSO"" size=""40"" value="""
	Response.Write DownsysClass.Script_FSO
	Response.Write """>&nbsp;<BR>" & vbCrLf
	Response.Write "某些网站为了安全，将FSO组件的名称进行更改以达到禁用FSO的目的。如果你的网站是这样做的，请在此输入更改过的名称。" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting5""></a><b>会员设置</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否允许新用户注册</U><BR>关闭后系统将不能注册</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(31)"" value=0 "
	If CInt(DownsysClass.setting(31)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(31)"" value=1 "
	If CInt(DownsysClass.setting(31)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>注册会员是否要管理员认证</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(32)"" value=0 "
	If CInt(DownsysClass.setting(32)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(32)"" value=1 "
	If CInt(DownsysClass.setting(32)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
		Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>会员是否可以修改密码及资料</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(42)"" value=0 "
	If CInt(DownsysClass.setting(42)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(42)"" value=1 "
	If CInt(DownsysClass.setting(42)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>注册会员增加的点数</U><BR>请输入数字</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(33)"" size=""10"" value="""
	Response.Write DownsysClass.setting(33)
	Response.Write """>&nbsp;点" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr> " & vbCrLf
	Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting6""></a><b>下载文章设置</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>设置软件运行环境</U><BR>请用“,”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""System_set(34)"" cols=""60"" rows=""4"">"
	Response.Write DownsysClass.setting(34)
	Response.Write "</textarea>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>设置软件默认运行环境</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=text name=""System_set(45)"" size=""60"" value="""
	Response.Write DownsysClass.setting(45)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>设置软件类型</U><BR>请用“,”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""System_set(35)"" cols=""60"" rows=""3"">"
	Response.Write DownsysClass.setting(35)
	Response.Write "</textarea>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>设置软件授权方式</U><BR>请用“,”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""System_set(46)"" cols=""60"" rows=""3"">"
	Response.Write DownsysClass.setting(46)
	Response.Write "</textarea>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>设置软件软件语言</U><BR>请用“,”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=text name=""System_set(47)"" size=""60"" value="""
	Response.Write DownsysClass.setting(47)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>设置文章专栏</U><BR>请用“,”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""System_set(36)"" cols=""60"" rows=""3"">"
	Response.Write DownsysClass.setting(36)
	Response.Write "</textarea>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>设置软件默认解压密码</U><BR></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(37)"" size=""35"" value="""
	Response.Write DownsysClass.setting(37)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否开启软件评论功能</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(38)"" value=0 "
	If CInt(DownsysClass.setting(38)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(38)"" value=1 " & vbCrLf
	If CInt(DownsysClass.setting(38)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否打开软件发布功能</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(39)"" value=0 "
	If CInt(DownsysClass.setting(39)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(39)"" value=1 "
	If CInt(DownsysClass.setting(39)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">打开&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否打开文章评论功能</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(40)"" value=0 "
	If CInt(DownsysClass.setting(40)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(40)"" value=1 "
	If CInt(DownsysClass.setting(40)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">打开&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>是否开启会员下载功能</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(41)"" value=0 "
	If CInt(DownsysClass.setting(41)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(41)"" value=1 "
	If CInt(DownsysClass.setting(41)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">打开&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>设置软件简介的最大字符数</U><BR></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=""text"" name=""System_set(43)"" size=""10"" value="""
	Response.Write DownsysClass.setting(43)
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>软件编辑后显示“编辑的时间”</U></td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input type=radio name=""System_set(44)"" value=0 "
	If CInt(DownsysClass.setting(44)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & vbCrLf
	Response.Write "<input type=radio name=""System_set(44)"" value=1 "
	If CInt(DownsysClass.setting(44)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf

	Response.Write "<tr> " & vbCrLf
	Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting8""></a><b>过滤字符设置</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>过滤字符</U><BR>请用“|”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""Badwords"" cols=""55"" rows=""5"">"
	Response.Write DownsysClass.Badwords
	Response.Write "</textarea>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>过滤后的字符</U><BR>请用“|”分开</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<textarea name=""Badwordr"" cols=""55"" rows=""5"">"
	Response.Write DownsysClass.Badwordr
	Response.Write "</textarea>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> <U>系统安装目录</U><BR>相对于根目录的位置</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<input size=""20"" value="""
	Response.Write DownsysClass.GetSetupDir
	Response.Write """ disabled>" & vbCrLf
	Response.Write "<input type=hidden name=""SetupDir"" value="""
	Response.Write DownsysClass.GetSetupDir
	Response.Write """>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr> " & vbCrLf
	Response.Write "<td class=Forumrow> &nbsp;</td>" & vbCrLf
	Response.Write "<td class=Forumrow> " & vbCrLf
	Response.Write "<div align=""center""> " & vbCrLf
	Response.Write "<input type=""submit"" class=buttonmain name=""Submit"" value=""　提 交"">" & vbCrLf
	Response.Write "</div>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "<div id=""Issubport0"" style=""display:none"">请选择EMAIL组件！</div>" & vbCrLf
	Response.Write "<div id=""Issubport999"" style=""display:none""></div>" & vbCrLf
	'rs.close

	'set rs=nothing

	InstalledObjects(1) = "JMail.Message" 'JMail 4.3
	InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS
	InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL
	'-----------------------

	InstalledObjects(4) = "Scripting.FileSystemObject" 'Fso
	InstalledObjects(5) = "LyfUpload.UploadFile" 'LyfUpload
	InstalledObjects(6) = "Persits.Upload" 'Aspupload3.0
	InstalledObjects(7) = "SoftArtisans.FileUp" 'SA-FileUp 4.0
	'-----------------------

	InstalledObjects(8) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
	InstalledObjects(9) = "Persits.Jpeg" 'AspJpeg
	InstalledObjects(10) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
	'InstalledObjects(11) = "sjCatSoft.Thumbnail"	   'sjCatSoft.Thumbnail V2.6

	For i = 1 To 11
		Response.Write "<div id=""Issubport" & i & """ style=""display:none"">"
		If IsObjInstalled(InstalledObjects(i)) Then Response.Write "<font color=red><b>√</b>服务器支持!</font>" Else Response.Write "<b>×</b>服务器不支持!"
		Response.Write "</div>"
	Next
	Response.Write "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
	Response.Write "<!--" & vbCrLf
	Response.Write "function chkselect(s,divid)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "var divname='Issubport';" & vbCrLf
	Response.Write "var chkreport;" & vbCrLf
	Response.Write "s=Number(s)" & vbCrLf
	Response.Write "if (divid==""know1"")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "divname=divname+s;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (divid==""know2"")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "s+=4;" & vbCrLf
	Response.Write "if (s==1003){s=999;}" & vbCrLf
	Response.Write "divname=divname+s;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "if (divid==""know3"")" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "s+=8;" & vbCrLf
	Response.Write "if (s==1007){s=999;}" & vbCrLf
	Response.Write "divname=divname+s;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "document.getElementById(divid).innerHTML=divname;" & vbCrLf
	Response.Write "chkreport=document.getElementById(divname).innerHTML;" & vbCrLf
	Response.Write "document.getElementById(divid).innerHTML=chkreport;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->"
	Response.Write "</SCRIPT>" & vbCrLf
End Sub

Private Sub saveconst()
	Dim System_set
	For i = 0 To 47
		System_set = System_set & Request.Form("System_set(" & i & ")") & "|||"
	Next
	System_set = System_set & "0|||0|||0|||1|||1|||1|||0|||"
	SQL = "update [NC_Config] set System_set='" & System_set & "',StopReadme='" & Request.Form("StopReadme") & "',Badwords='" & Request.Form("Badwords") & "',Badwordr='" & Request.Form("Badwordr") & "',SetupDir='" & Request.Form("SetupDir") & "',tempid='" & Request.Form("tempid") & "',Script_FSO='" & Request.Form("Script_FSO") & "'"
	DownsysClass.Execute (SQL)
		Set Rs = DownsysClass.Execute("select ID from NC_Template")
	Do While Not Rs.EOF
			DownsysClass.DelCahe ("ClassList" & Rs(0))
		DownsysClass.DelCahe ("ClassMenu" & Rs(0))
				DownsysClass.DelCahe ("SortingList" & Rs(0))
		DownsysClass.DelCahe ("SortingMenu" & Rs(0))
	Rs.movenext
	Loop
	Set Rs=Nothing
	DownsysClass.DelCahe("Templateslist")
	DownsysClass.Name = "Config"
	DownsysClass.ReloadConfig
	Call NC_Admin.Succeed_Msg("保存设置成功,请<a href=admin_setting.asp?action=reload><font color=RED>重建缓存</a></font>")
End Sub

Private Sub restore()
	Dim DownsysClass_setting
	'恢复默认设置
	DownsysClass_setting = "轩溪软件园|||http://www.xuanxi.net/|||admin@xuanxi.net|||软件下载,asp,php,net,jsp,源码下载,虚拟主机,域名注册,企业邮箱,网站建设,免费注册,程序制作|||Copyright &copy; 2002-2004 <a href=""http://www.xuanxi.net"" target=""_blank""><font face=Verdana, Arial, Helvetica, sans-serif><b>Xuanxi<font color=#CC0000>.Net</font></b></font></a>. All Rights Reserved .|||0|||index.html|||0|||||||||2|||DownsysClass|||xuanxi|||1|||1|||300|||0|||1|||1|||1|||30|||200|||500|||2000|||UploadFile/|||rar|zip|exe|swf|||upimages/|||gif|jpg|bmp|png|swf|||0|||1|||10|||1|||0|||100|||Win2003/,WinNet/,WinXP/,Win2000/,NT/,WinME/,Win9X/,Linux/,Unix/,Mac/,ASP环境/,NET环境/,PHP环境/,CGI环境/|||国产软件,国外软件,汉化补丁,源码程序|||新闻资讯,软件教程,安全相关,技术文章|||xuanxi.net|||1|||1|||1|||1|||1|||1000|||0|||Win9X/WinXP/Win2000/|||共享软件,免费软件,自由软件,试用软件,演示软件,商业软件|||简体中文,繁体中文,英文|||1|||1|||0|||"
	DownsysClass.Execute ("update [NC_Config] set System_set='" & DownsysClass_setting & "'")
	DownsysClass.Name = "Config"
	DownsysClass.ReloadConfig
	Application.Contents.RemoveAll
	Call NC_Admin.Succeed_Msg("还原设置成功。")
End Sub

Private Sub ReloadCache()
	DownsysClass.Name = "Config"
	DownsysClass.ReloadConfig
	Application.Contents.RemoveAll
	Response.Write "<script>alert('重建缓存成功！');location.replace('admin_setting.asp')</script>"
End Sub

Private Function IsObjInstalled(strClassString)
	Dim xTestObj
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Set xTestObj = Server.CreateObject(strClassString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function

%>
