<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<% MyDbPath = "../"
dim obj
set obj = New admin_setting
	call obj.AspInit()
set obj = nothing

Class admin_setting
	Private ishion
	Private Sub Class_Initialize()
		Set ishion = New Cls_Main
	End Sub
	Private Sub Class_Terminate()
		Set ishion = Nothing
	End Sub
	Public Sub AspInit()
		Response.Write "<HTML>" & vbCrLf
		Response.Write "<HEAD>" & vbCrLf
		Response.Write "<TITLE>后台管理</TITLE>" & vbCrLf
		Response.Write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">" & vbCrLf
		Response.Write "<LINK href=""admin.css"" type=text/css rel=stylesheet>" & vbCrLf
		Response.Write "<script src=""../js/ishion_Tooltip.js""></script>" & vbCrLf
		Response.Write "<style type=""text/css"">" & vbCrLf
		Response.Write "<!--" & vbCrLf
		Response.Write ".style3 {color: #FF0000}" & vbCrLf
		Response.Write "-->" & vbCrLf
		Response.Write "</style>" & vbCrLf
		Response.Write "</HEAD>" & vbCrLf
		Response.Write "<BODY>" & vbCrLf
		
			If ishion.adminName = "" Then
				ishion.strMsg = "<li>非法操作：登录超时或你没有以管理员身份登录系统，<a href=""../admin_login.asp"" target=_top>点此进入管理员登录界面</a>。"
				Call ishion.SystemMsg
			Else
				
				Call ishion.LoadSetting
				Call Main
			End If
		Response.Write "</BODY>" & vbCrLf
		Response.Write "</HTML>" & vbCrLf
	End Sub
	Private Sub Main()
		If Request.Form("Setting(0)") = "" Then
			Call show_setting
		Else
			If ishion.checkPermission(ishion.adminName, 0) = False Then
				ishion.strMsg = "<li>非法操作：你没有权限进行此项操作，请联系管理员！"
				Call ishion.SystemMsg
			Else
				Call update_setting
			End If
		End If
	End Sub
	Private Sub update_setting()
		Dim SettingStr, Setting16, i
		For i = 0 To 23
			Setting16 = Setting16 & Request.Form("Setting(16)(" & i & ")") & ","
		Next
		'Response.Write(Setting16)
		SettingStr = Request.Form("Setting(0)") & "{$}" & Request.Form("Setting(1)") & "{$}" & Request.Form("Setting(2)") & "{$}" & Request.Form("Setting(3)") & "{$}" & Request.Form("Setting(4)") & "{$}" & Request.Form("Setting(5)") & "{$}" & Request.Form("Setting(6)") & "{$}" & Request.Form("Setting(7)") & "{$}" & Request.Form("Setting(8)") & "{$}" & Request.Form("Setting(9)") & "{$}" & Request.Form("Setting(10)") & _
		"{$}" & Request.Form("Setting(11)") & "{$}" & ishion.Setting(12) & "{$}" & Request.Form("Setting(13)") & "{$}" & Request.Form("Setting(14)") & "{$}" & Request.Form("Setting(15)") & "{$}" & Setting16 & "{$}" & Request.Form("Setting(17)") & "{$}" & Request.Form("Setting(18)") & "{$}" & Request.Form("Setting(19)") & "{$}" & Request.Form("Setting(20)") & _
		"{$}" & Request.Form("Setting(21)") & "{$}" & Request.Form("Setting(22)") & "{$}" & Request.Form("Setting(23)") & "{$}" & Request.Form("Setting(24)") & "{$}" & Request.Form("Setting(25)") & "{$}" & ishion.Setting(26) & "{$}" & ishion.Setting(27) & "{$}" & ishion.Setting(28) & "{$}" & ishion.Setting(29) & "{$}" & ishion.Setting(30) & _
		"{$}" & ishion.Setting(31) & "{$}" & Request.Form("Setting(32)") & "{$}" & Request.Form("Setting(33)") & "{$}" & Request.Form("Setting(34)") & "{$}" & Request.Form("Setting(35)") & "{$}" & Request.Form("Setting(36)") & "{$}" & Request.Form("Setting(37)") & "{$}" & Request.Form("Setting(38)") & "{$}" & Request.Form("Setting(39)") & "{$}" & Request.Form("Setting(40)") & _
		"{$}" & Request.Form("Setting(41)") & "{$}" & Request.Form("Setting(42)") & "{$}" & Request.Form("Setting(43)") & "{$}" & Request.Form("Setting(44)") & "{$}" & Request.Form("Setting(45)") & "{$}" & Request.Form("Setting(46)") & "{$}" & Request.Form("Setting(47)") & "{$}" & Request.Form("Setting(48)") & "{$}" & Request.Form("Setting(49)") & "{$}" & ishion.Setting(50) & _
		"{$}" & ishion.Setting(51) & "{$}" & ishion.Setting(52) & "{$}" & Request.Form("Setting(53)") & "{$}" & Request.Form("Setting(54)") & "{$}" & Request.Form("Setting(55)") & "{$}" & Request.Form("Setting(56)") & "{$}" & Request.Form("Setting(57)") & "{$}" & Request.Form("Setting(58)") & "{$}" & Request.Form("Setting(59)") & "{$}" & Request.Form("Setting(60)") & _
		"{$}" & Request.Form("Setting(61)") & "{$}" & Request.Form("Setting(62)") & "{$}" & Request.Form("Setting(63)") & "{$}" & ishion.Setting(64) & "{$}" & ishion.Setting(65) & "{$}" & ishion.Setting(66) & "{$}" & ishion.Setting(67) & "{$}" & ishion.Setting(68) & "{$}" & ishion.Setting(69) & "{$}" & Request.Form("Setting(70)") & _
		"{$}" & Request.Form("Setting(71)") & "{$}" & Request.Form("Setting(72)") & "{$}" & Request.Form("Setting(73)") & "{$}" & Request.Form("Setting(74)") & "{$}" & Request.Form("Setting(75)") & "{$}" & Request.Form("Setting(76)") & "{$}" & Request.Form("Setting(77)") & "{$}" & Request.Form("Setting(78)") & "{$}" & Request.Form("Setting(79)") & "{$}" & Request.Form("Setting(80)") & _
		"{$}" & Request.Form("Setting(81)") & "{$}" & Request.Form("Setting(82)") & "{$}" & Request.Form("Setting(83)") & "{$}" & Request.Form("Setting(84)") & "{$}" & Request.Form("Setting(85)") & "{$}" & Request.Form("Setting(86)") & "{$}" & Request.Form("Setting(87)") & "{$}" & Request.Form("Setting(88)") & "{$}" & Request.Form("Setting(89)") & "{$}" & ishion.Setting(90) & _
		"{$}" & ishion.Setting(91) & "{$}" & ishion.Setting(92) & "{$}" & ishion.Setting(93) & "{$}" & ishion.Setting(94) & "{$}" & Request.Form("Setting(95)") & "{$}" & Request.Form("Setting(96)") & "{$}" & Request.Form("Setting(97)") & "{$}" & Request.Form("Setting(98)") & "{$}" & Request.Form("Setting(99)") & "{$}" & Request.Form("Setting(100)") & _
		"{$}" & Request.Form("Setting(101)") & "{$}" & Request.Form("Setting(102)") & "{$}" & Request.Form("Setting(103)") & "{$}" & Request.Form("Setting(104)") & "{$}" & Request.Form("Setting(105)") & "{$}" & Request.Form("Setting(106)") & "{$}" & Request.Form("Setting(107)") & "{$}" & ishion.Setting(108) & "{$}" & ishion.Setting(109) & "{$}" & ishion.Setting(110) & _
		"{$}" & Request.Form("Setting(111)") & "{$}" & Request.Form("Setting(112)") & "{$}" & Request.Form("Setting(113)") & "{$}" & Request.Form("Setting(114)") & "{$}" & ishion.Setting(115) & "{$}" & ishion.Setting(116) & "{$}" & ishion.Setting(117) & "{$}" & ishion.Setting(118) & "{$}" & ishion.Setting(119) & "{$}" & ishion.Setting(120) & _
		"{$}" & Request.Form("Setting(121)") & "{$}" & Request.Form("Setting(122)") & "{$}" & Request.Form("Setting(123)") & "{$}" & Request.Form("Setting(124)") & "{$}" & Request.Form("Setting(125)") & "{$}" & Request.Form("Setting(126)") & "{$}" & Request.Form("Setting(127)") & "{$}" & Request.Form("Setting(128)") & "{$}" & Request.Form("Setting(129)") & "{$}" & Request.Form("Setting(130)") & _
		"{$}" & Request.Form("Setting(131)") & "{$}" & Request.Form("Setting(132)") & "{$}" & Request.Form("Setting(133)") & "{$}" & ishion.Setting(134) & "{$}" & ishion.Setting(135) & "{$}" & ishion.Setting(136) & "{$}" & ishion.Setting(138) & "{$}" & ishion.Setting(138) & "{$}" & Request.Form("Setting(139)") & "{$}" & Request.Form("Setting(140)") & _
		"{$}" & Request.Form("Setting(141)") & "{$}" & Request.Form("Setting(142)") & "{$}" & Request.Form("Setting(143)") & "{$}" & Request.Form("Setting(144)") & "{$}" & Request.Form("Setting(145)") & "{$}" & Request.Form("Setting(146)") & "{$}" & Request.Form("Setting(147)") & "{$}" & ishion.Setting(148) & "{$}" & ishion.Setting(149) & "{$}" & ishion.Setting(150) & _
		"{$}" & ishion.Setting(151) & "{$}" & ishion.Setting(152) & "{$}" & ishion.Setting(153) & "{$}" & ishion.Setting(154) & "{$}" & ishion.Setting(155)
		ishion.Execute ("Update ishion_Setting Set Setting='" & SettingStr & "' where isDefault=1")
		ishion.strMsg = "<li>更新系统设置操作成功。"
		Dim fso, fout
		Set fso = Server.CreateObject(ishion.Setting(23))
		Set fout = fso.CreateTextFile(Server.MapPath("../ftpLogMesFile.txt"))
		fout.WriteLine Request.Form("setting(126)")
		fout.Close: Set fout = Nothing
		Set fso = Nothing
		Call ishion.SystemMsg
	End Sub
	Private Sub show_setting()
	Dim i
	
	Response.Write "<fieldset><legend> ◎ 系统设置导航 </legend><table width=""100%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""25%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""30%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""*"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td><a href=""#1"">一、网站基本信息</a></td>" & vbCrLf
	Response.Write " <td><a href=""#5"">五、用户注册选项</a> </td>" & vbCrLf
	Response.Write " <td><a href=""#9"">九、CMS 文章网页数据格式和显示方式</a></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td><a href=""#2"">二、网站选项配置</a> </td>" & vbCrLf
	Response.Write " <td><a href=""#6"">六、邮件服务器选项</a></td>" & vbCrLf
	Response.Write " <td><a href=""#10"">十、Serv-U FTP 模块设置</a></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td><a href=""#3"">三、防刷新机制</a></td>" & vbCrLf
	Response.Write " <td><a href=""#7"">七、文件上传设置</a></td>" & vbCrLf
	Response.Write " <td><a href=""#11"">十一、其它选项设置</a></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td><a href=""#4"">四、搜索选项设置</a></td>" & vbCrLf
	Response.Write " <td><a href=""#8"">八、下载资源网页数据格式和显示方式</a> </td>" & vbCrLf
	Response.Write " <td>&nbsp;</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "</fieldset>" & vbCrLf
	Response.Write "<form action=""admin_setting.asp"" method=""post"" name=""myform"">" & vbCrLf
	Response.Write " <fieldset><legend>一、网站基本信息<a name=""1""></a></legend>" & vbCrLf
	Response.Write " <table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、网站名称：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(0)"" type=""text"" id=""setting(0)"" value="""
	Response.Write ishion.Setting(0)
	Response.Write """ size=""50"" maxlength=""50"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、网站标题：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(1)"" type=""text"" id=""setting(1)"" value="""
	Response.Write ishion.Setting(1)
	Response.Write """ size=""50"" maxlength=""50"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、网站地址：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(2)"" type=""text"" id=""setting(2)"" value="""
	Response.Write ishion.Setting(2)
	Response.Write """ size=""50"" maxlength=""50"">" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">4、LOGO地址：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(3)"" type=""text"" id=""setting(3)"" value="""
	Response.Write ishion.Setting(3)
	Response.Write """ size=""50"" maxlength=""50"" onmouseover=""showToolTip('显示在网站顶部左上角，可用相对路径或者绝对路径',event.srcElement)"" onmouseout=""hiddenToolTip()""> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">5、Banner地址：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(4)"" type=""text"" id=""setting(4)"" value="""
	Response.Write ishion.Setting(4)
	Response.Write """ size=""50"" maxlength=""50""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">6、站长姓名：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(5)"" type=""text"" id=""setting(5)"" value="""
	Response.Write ishion.Setting(5)
	Response.Write """ size=""50"" maxlength=""30""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">7、站长信箱：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(6)"" type=""text"" id=""setting(6)"" value="""
	Response.Write ishion.Setting(6)
	Response.Write """ size=""50"" maxlength=""50""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">8、版权信息：</td>" & vbCrLf
	Response.Write " <td><textarea name=""setting(7)"" cols=""50"" rows=""5"" id=""setting(7)"">"
	Response.Write Server.HTMLEncode(ishion.Setting(7))
	Response.Write "</textarea></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">9、站点关键字：</td>" & vbCrLf
	Response.Write " <td><textarea name=""setting(8)"" cols=""50"" rows=""3"" id=""setting(8)"" onmouseover=""showToolTip('将被搜索引擎用来搜索您网站的关键内容<br><font color=red>每个关键字用“|”号分隔</font>',event.srcElement)"" onmouseout=""hiddenToolTip()"">"
	Response.Write ishion.Setting(8)
	Response.Write "</textarea> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">10、站点描述：</td>" & vbCrLf
	Response.Write " <td><textarea name=""setting(9)"" cols=""50"" rows=""3"" id=""setting(9)"" onmouseover=""showToolTip('将被搜索引擎用来说明您网站的主要内容<BR><font color=red>介绍中请不要带英文的逗号</font>',event.srcElement)"" onmouseout=""hiddenToolTip()"">"
	Response.Write ishion.Setting(9)
	Response.Write "</textarea> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">11、后台管理目录：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(11)"" type=""text"" id=""setting(11)"" value="""
	Response.Write ishion.Setting(11)
	Response.Write """ size=""50"" maxlength=""50""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </fieldset><a name=""2""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>二、网站选项配置</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、网站当前状态：</td>" & vbCrLf
	Response.Write " <td onmouseover=""showToolTip('维护期间可设置关闭网站服务。',event.srcElement)"" onmouseout=""hiddenToolTip()""><input name=""setting(13)"" type=""radio"" value=""1"" "
	If ishion.Setting(13) = 1 Then Response.Write ("checked")
	Response.Write " id=""setting(13)1""><label for=""setting(13)1"">开启</label>&nbsp;<input name=""setting(13)"" type=""radio"" value=""0"" "
	If ishion.Setting(13) = 0 Then Response.Write ("checked")
	Response.Write " id=""setting(13)2""><label for=""setting(13)2"">关闭</label> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、维护说明：</td>" & vbCrLf
	Response.Write " <td><textarea name=""setting(14)"" cols=""50"" rows=""3"" id=""setting(14)"" onmouseover=""showToolTip('在网站关闭情况下显示，支持html语法',event.srcElement)"" onmouseout=""hiddenToolTip()"">"
	Response.Write Server.HTMLEncode(ishion.Setting(14))
	Response.Write "</textarea> " & vbCrLf
	Response.Write " ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、网站定时设置：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(15)"" type=""radio"" id=""setting(15)1"" value=""0"" "
	If ishion.Setting(15) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(15)1"">不启用定时关闭</label>&nbsp;<input name=""setting(15)"" type=""radio"" id=""setting(15)2"" value=""1"" "
	If ishion.Setting(15) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(15)2"">启用定时关闭</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">4、定时关闭设置：</td>" & vbCrLf
	Response.Write " <td onmouseover=""showToolTip('必须先启用定时关闭功能，再请根据需要选择开或关。',event.srcElement)"" onmouseout=""hiddenToolTip()"">" & vbCrLf
	Response.Write "    "
	For i = 0 To 23
	If i < 10 Then Response.Write "&nbsp;"
	'Response.Write "        "
	Response.Write i
	Response.Write "点:<input type=""checkbox"" name=""setting(16)("
	Response.Write i
	Response.Write ")"" value="""
	Response.Write i
	Response.Write """ id=""setting(16)("
	Response.Write i
	Response.Write ")"" "
	If ishion.ItemInList(ishion.Setting(16), i) Then Response.Write ("checked")
	Response.Write "><label for=""setting(16)("
	Response.Write i
	Response.Write ")"">开</label> "
	    If (i + 1) Mod 6 = 0 Then Response.Write "<br>"
	Next
	Response.Write Chr(9) & " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">5、是否显示网站频道：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(17)"" value=""1"" id=""setting(17)1"" "
	If ishion.Setting(17) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(17)1"">是</label>&nbsp;<input type=radio name=""setting(17)"" value=""0"" id=""setting(17)2"" "
	If ishion.Setting(17) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(17)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">6、否显示管理登录链接：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(18)"" value=""1"" id=""setting(18)1"" "
	If ishion.Setting(18) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(18)1"">是</label>&nbsp;<input type=radio name=""setting(18)"" value=""0"" id=""setting(18)2"" "
	If ishion.Setting(18) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(18)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">7、是否显示页面执行时间：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(19)"" value=""1"" id=""setting(19)1"" "
	If ishion.Setting(19) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(19)1"">是</label>&nbsp;<input type=radio name=""setting(19)"" value=""0"" id=""setting(19)2"" "
	If ishion.Setting(19) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(19)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">8、是否保存远程图片到本地：</td>" & vbCrLf
	 Response.Write " <td onmouseover=""showToolTip('如果从其它网站上复制的内容中包含图片，则将图片复制到本站服务器上。',event.srcElement)"" onmouseout=""hiddenToolTip()""><input type=radio name=""setting(20)"" value=""1"" id=""setting(20)1"" "
	If ishion.Setting(20) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(20)1"">是</label>&nbsp;<input type=radio name=""setting(20)"" value=""0"" id=""setting(20)2"" "
	If ishion.Setting(20) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(20)2"">否</label> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">9、是否开放友情链接申请：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(21)"" value=""1"" id=""setting(21)1"" "
	If ishion.Setting(21) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(21)1"">是</label>&nbsp;<input type=radio name=""setting(21)"" value=""0"" id=""setting(21)2"" "
	If ishion.Setting(21) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(21)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">10、Session会话的保持时间：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(22)"" type=""text"" id=""setting(22)"" value="""
	Response.Write ishion.Setting(22)
	Response.Write """ size=""6"" maxlength=""4"" onmouseover=""showToolTip('主要用于后台管理员登录，为了安全，请不要将时间设得太长。<br><font color=red>建议设为600秒(10分钟)</font>',event.srcElement)"" onmouseout=""hiddenToolTip()""> 秒 ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">11、FSO组件的名称：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(23)"" type=""text"" id=""setting(23)"" value="""
	Response.Write ishion.Setting(23)
	Response.Write """ size=""50"" maxlength=""50"" onmouseover=""showToolTip('某些网站为了安全，将FSO组件的名称进行更改以达到禁用FSO的目的。<br>如果你的网站服务器是这样做的，请在此输入更改过的名称。<br><font color=red>默认值：Scripting.FileSystemObject</font>',event.srcElement)"" onmouseout=""hiddenToolTip()""> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">12、是否启用防盗链机制：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(24)"" value=""1"" id=""setting(24)1"" "
	If ishion.Setting(24) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(24)1"">是</label>&nbsp;<input type=radio name=""setting(24)"" value=""0"" id=""setting(24)2"" "
	If ishion.Setting(24) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(24)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">13、可访问站点的主机域名或IP地址</td>" & vbCrLf
	Response.Write " <td><input name=""setting(10)"" type=""text"" id=""setting(10)"" value="""
	Response.Write ishion.Setting(10)
	Response.Write """ size=""50"" maxlength=""100"" onmouseover=""showToolTip('当启用了下载防盗链机制后必须设置此项目。<br>通过这些域名或者IP访问网站来下载软件是正常下载，除此外都来自于盗链网站页面。<br><font color=red>多个域名或IP用“|”分开。</font>',event.srcElement)"" onmouseout=""hiddenToolTip()""> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">14、是否启用IP访问限制：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(25)"" value=""1"" id=""setting(25)1"" "
	If ishion.Setting(25) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(25)1"">是</label>&nbsp;<input type=radio name=""setting(25)"" value=""0"" id=""setting(25)2"" "
	If ishion.Setting(25) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(25)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </fieldset><a name=""3""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>三、防刷新机制</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、是否启用防刷新机制：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(32)"" value=""1"" id=""setting(32)1"" "
	If ishion.Setting(32) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(32)1"">是</label>&nbsp;<input type=radio name=""setting(32)"" value=""0"" id=""setting(32)2"" "
	If ishion.Setting(32) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(32)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、浏览刷新时间间隔：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(33)"" type=""text"" id=""setting(33)"" value="""
	Response.Write ishion.Setting(33)
	Response.Write """ size=""6"" maxlength=""4""> 秒 </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、防刷新功能有效的页面：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(34)"" type=""text"" id=""setting(34)"" value="""
	Response.Write ishion.Setting(34)
	Response.Write """ size=""50"" maxlength=""50"" onmouseover=""showToolTip('请确认您打开了防刷新功能<br>您指定的页面将有防刷新作用，用户在限定的时间内不能重复打开该页面，具有一定减少资源消耗的作用<br>每个页面名称请用“|”符号隔开',event.srcElement)"" onmouseout=""hiddenToolTip()""> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table></fieldset><a name=""4""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>四、搜索选项设置</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、每次搜索时间间隔：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(35)"" type=""text"" id=""setting(35)"" value="""
	Response.Write ishion.Setting(35)
	Response.Write """ size=""6"" maxlength=""4""> 秒</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、搜索字串最小和最大长度：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(36)"" type=""text"" id=""setting(36)"" value="""
	Response.Write ishion.Setting(36)
	Response.Write """ size=""4"" maxlength=""2""> 个字符；最大 <input name=""setting(37)"" type=""text"" id=""setting(37)"" value="""
	Response.Write ishion.Setting(37)
	Response.Write """ size=""4"" maxlength=""2""> 个字符。</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、搜索返回最多的结果数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(38)"" type=""text"" id=""setting(38)"" value="""
	Response.Write ishion.Setting(38)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">4、每页显示记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(39)"" type=""text"" id=""setting(39)"" value="""
	Response.Write ishion.Setting(39)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 5、是否开启全文搜索：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(40)"" value=""1"" id=""setting(40)1"" "
	If ishion.Setting(40) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(40)1"">是</label>&nbsp;<input type=radio name=""setting(40)"" value=""0"" id=""setting(40)2"" "
	If ishion.Setting(40) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(40)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table></fieldset><a name=""5""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>五、用户注册选项</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3""><a href=""#top"">↑Top</a>　*</span> 1、是否允许新用户注册：</td>" & vbCrLf
	Response.Write " <td onmouseover=""showToolTip('关闭后将不能注册',event.srcElement)"" onmouseout=""hiddenToolTip()""><input type=radio name=""setting(41)"" value=""1"" id=""setting(41)1"" "
	If ishion.Setting(41) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(41)1"">是</label>&nbsp;<input type=radio name=""setting(41)"" value=""0"" id=""setting(41)2"" "
	If ishion.Setting(41) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(41)2"">否</label> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 2、注册是否采用验证码：</td>" & vbCrLf
	     Response.Write " <td onmouseover=""showToolTip('开启此项可以防止恶意注册',event.srcElement)"" onmouseout=""hiddenToolTip()""><input type=radio name=""setting(42)"" value=""1"" id=""setting(42)1"" "
	If ishion.Setting(42) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(42)1"">是</label>&nbsp;<input type=radio name=""setting(42)"" value=""0"" id=""setting(42)2"" "
	If ishion.Setting(42) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(42)2"">否</label> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 3、新用户注册是否需要邮件验证：</td>" & vbCrLf
	Response.Write " <td onmouseover=""showToolTip('若选择“是”，则用户注册后系统会发一封带有验证码的邮件给此用户<br>用户必须在通过邮件验证后才能真正成为正式注册用户',event.srcElement)"" onmouseout=""hiddenToolTip()""><input type=radio name=""setting(43)"" value=""1"" id=""setting(43)1"" "
	If ishion.Setting(43) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(43)1"">是</label>&nbsp;<input type=radio name=""setting(43)"" value=""0"" id=""setting(43)2"" "
	If ishion.Setting(43) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(43)2"">否</label> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 4、新用户注册是否需要管理员认证：</td>" & vbCrLf
	 Response.Write " <td onmouseover=""showToolTip('若选择是，则用户必须在通过管理员认证后才能真正成功正式注册用户。',event.srcElement)"" onmouseout=""hiddenToolTip()""><input type=radio name=""setting(44)"" value=""1"" id=""setting(44)1"" "
	If ishion.Setting(44) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(44)1"">是</label>&nbsp;<input type=radio name=""setting(44)"" value=""0"" id=""setting(44)2"" "
	If ishion.Setting(44) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(44)2"">否</label> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 5、最短用户名长度：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(45)"" type=""text"" id=""setting(45)"" value="""
	Response.Write ishion.Setting(45)
	Response.Write """ size=""4"" maxlength=""2"" onmouseover=""showToolTip('填写数字，不能小于1大于50。',event.srcElement)"" onmouseout=""hiddenToolTip()""> 个字符 ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 6、最长用户名长度：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(46)"" type=""text"" id=""setting(46)"" value="""
	Response.Write ishion.Setting(46)
	Response.Write """ size=""4"" maxlength=""2"" onmouseover=""showToolTip('填写数字，不能小于1大于50。',event.srcElement)"" onmouseout=""hiddenToolTip()""> 个字符 ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 7、Email通知密码：</td>" & vbCrLf
	Response.Write " <td onmouseover=""showToolTip('站点服务器必须安装邮件发送组件，所包含密码为系统随机生成。',event.srcElement)"" onmouseout=""hiddenToolTip()""><input type=radio name=""setting(47)"" value=""1"" id=""setting(47)1"" "
	If ishion.Setting(47) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(47)1"">是</label>&nbsp;<input type=radio name=""setting(47)"" value=""0"" id=""setting(47)2"" "
	If ishion.Setting(47) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(47)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 8、一个Email只能注册一个帐号：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(48)"" value=""1"" id=""setting(48)1"" "
	If ishion.Setting(48) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(48)1"">是</label>&nbsp;<input type=radio name=""setting(48)"" value=""0"" id=""setting(48)2"" "
	If ishion.Setting(48) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(48)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 9、发送注册信息邮件：</td>" & vbCrLf
	    Response.Write " <td onmouseover=""showToolTip('站点服务器必须安装邮件发送组件',event.srcElement)"" onmouseout=""hiddenToolTip()""><input type=radio name=""setting(49)"" value=""1"" id=""setting(49)1"" "
	If ishion.Setting(49) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(49)1""></label>&nbsp;<input type=radio name=""setting(49)"" value=""0"" id=""setting(49)2"" "
	If ishion.Setting(49) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(49)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table></fieldset><a name=""6""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>六、邮件服务器选项</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、邮件发送组件：</td>" & vbCrLf
	Response.Write " <td><select name=""setting(53)"" >" & vbCrLf
	Response.Write "<option value=""0"" "
	If ishion.Setting(53) = 0 Then Response.Write ("selected")
	Response.Write ">不支持</option>" & vbCrLf
	Response.Write "<option value=""1"" "
	If ishion.Setting(53) = 1 Then Response.Write ("selected")
	Response.Write ">JMAIL</option>" & vbCrLf
	Response.Write "<option value=""2"" "
	If ishion.Setting(53) = 2 Then Response.Write ("selected")
	Response.Write ">CDONTS</option>" & vbCrLf
	Response.Write "<option value=""3"" "
	If ishion.Setting(53) = 3 Then Response.Write ("selected")
	Response.Write ">ASPEMAIL</option>" & vbCrLf
	Response.Write "</select></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、SMTP服务器地址：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(54)"" type=""text"" id=""setting(54)"" value="""
	Response.Write ishion.Setting(54)
	Response.Write """ size=""50"" maxlength=""50"" onmouseover=""showToolTip('用来发送邮件的SMTP服务器 如果你不清楚此参数含义，请联系你的空间商。',event.srcElement)"" onmouseout=""hiddenToolTip()"">" & vbCrLf
	Response.Write " ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、SMTP登录用户名：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(55)"" type=""text"" id=""setting(55)"" value="""
	Response.Write ishion.Setting(55)
	Response.Write """ size=""50"" maxlength=""50"" onmouseover=""showToolTip('当你的服务器需要SMTP身份验证时还需设置此参数。',event.srcElement)"" onmouseout=""hiddenToolTip()"">" & vbCrLf
	Response.Write " ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">4、SMTP登录密码：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(56)"" type=""text"" id=""setting(56)"" value="""
	Response.Write ishion.Setting(56)
	Response.Write """ size=""50"" maxlength=""50"" onmouseover=""showToolTip('当你的服务器需要SMTP身份验证时还需设置此参数。',event.srcElement)"" onmouseout=""hiddenToolTip()"">" & vbCrLf
	Response.Write " ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">5、邮件信息模板：</td>" & vbCrLf
	Response.Write " <td><textarea name=""setting(57)"" cols=""50"" rows=""6"" id=""setting(57)"" >"
	Response.Write Server.HTMLEncode(ishion.Setting(57))
	Response.Write "</textarea> </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table></fieldset><a name=""7""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>七、文件上传设置</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、上传文件类型：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(58)"" type=""text"" id=""setting(58)"" value="""
	Response.Write ishion.Setting(58)
	Response.Write """ size=""50"" maxlength=""50"" onmouseover=""showToolTip('每种文件类型用“|”号分开。',event.srcElement)"" onmouseout=""hiddenToolTip()""> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、上传文件大小：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(59)"" type=""text"" id=""setting(59)"" value="""
	Response.Write ishion.Setting(59)
	Response.Write """ size=""6"" maxlength=""5""> " & vbCrLf
	Response.Write " KB </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、上传文件的临时目录：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(60)"" type=""text"" id=""setting(60)"" value="""
	Response.Write ishion.Setting(60)
	Response.Write """ size=""50"" maxlength=""50""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">4、上传目录设定：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(61)"" type=""text"" id=""setting(61)"" value="""
	Response.Write ishion.Setting(61)
	Response.Write """ size=""50"" maxlength=""50""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">5、上传目录子目录设定：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(62)"" value=""1"" id=""setting(62)1"" "
	If ishion.Setting(62) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(62)1"">每用户生成子文件夹</label><input type=radio name=""setting(62)"" value=""2"" id=""setting(62)2"" "
	If ishion.Setting(62) = 2 Then Response.Write ("checked")
	Response.Write "><label for=""setting(62)2"">每天生成文件夹</label><input type=radio name=""setting(62)"" value=""3"" id=""setting(62)3"" "
	If ishion.Setting(62) = 3 Then Response.Write ("checked")
	Response.Write "><label for=""setting(62)3"">每月生成文件夹</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">6、选取上传组件:</td>" & vbCrLf
	Response.Write " <td><select name=""setting(63)"">" & vbCrLf
	Response.Write "<option value=""999"" "
	If ishion.Setting(63) = 999 Then Response.Write ("selected")
	Response.Write ">关闭" & vbCrLf
	Response.Write "<option value=""0"" "
	If ishion.Setting(63) = 0 Then Response.Write ("selected")
	Response.Write ">无组件上传类" & vbCrLf
	Response.Write "<option value=""1"" "
	If ishion.Setting(63) = 1 Then Response.Write ("selected")
	Response.Write ">Lyfupload组件" & vbCrLf
	Response.Write "<option value=""2"" "
	If ishion.Setting(63) = 2 Then Response.Write ("selected")
	Response.Write ">Aspupload3.0组件 " & vbCrLf
	Response.Write "<option value=""3"" "
	If ishion.Setting(63) = 3 Then Response.Write ("selected")
	Response.Write ">SA-FileUp 4.0组件" & vbCrLf
	Response.Write "<option value=""4"" "
	If ishion.Setting(63) = 4 Then Response.Write ("selected")
	Response.Write ">DvFile-Up V1.0组件" & vbCrLf
	Response.Write "</option></select></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table></fieldset><a name=""8""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>八、资源下载管理系统参数设置</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、下载站首页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(70)"" type=""text"" id=""setting(70)"" value="""
	Response.Write ishion.Setting(70)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、下载资源分类页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(71)"" type=""text"" id=""setting(71)"" value="""
	Response.Write ishion.Setting(71)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、下载根分类列表页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(72)"" type=""text"" id=""setting(72)"" value="""
	Response.Write ishion.Setting(72)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">4、下载子分类列表页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(73)"" type=""text"" id=""setting(73)"" value="""
	Response.Write ishion.Setting(73)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">5、按字母排序页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(74)"" type=""text"" id=""setting(74)"" value="""
	Response.Write ishion.Setting(74)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">6、最近更新页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(75)"" type=""text"" id=""setting(75)"" value="""
	Response.Write ishion.Setting(75)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">7、下载排行榜页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(76)"" type=""text"" id=""setting(76)"" value="""
	Response.Write ishion.Setting(76)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">8、下载详细信息页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(77)"" type=""text"" id=""setting(77)"" value="""
	Response.Write ishion.Setting(77)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">9、英文首字索引字符标记：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(78)"" type=""text"" id=""setting(78)"" value="""
	Response.Write ishion.Setting(78)
	Response.Write """ size=""45"" maxlength=""100"">不允许修改，否则后果自负。</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">10、中文首字索引字符标记：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(79)"" type=""text"" id=""setting(79)"" value="""
	Response.Write ishion.Setting(79)
	Response.Write """ size=""45"" maxlength=""100"">不允许修改，否则后果自负。</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">11、信息页是否明文显示下载地址：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(80)"" value=""1"" id=""setting(80)1"" "
	If ishion.Setting(80) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(80)1"">是</label>&nbsp;<input type=radio name=""setting(80)"" value=""0"" id=""setting(80)2"" "
	If ishion.Setting(80) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(80)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">12、在使用预定义下载站时，每行显示下载站点数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(81)"" type=""text"" id=""setting(81)"" value="""
	Response.Write ishion.Setting(81)
	Response.Write """ size=""6"" maxlength=""1"">个</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">13、下载详细信息页是否显示评论：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(88)"" value=""1"" id=""setting(88)1"" "
	If ishion.Setting(88) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(88)1"">是</label>&nbsp;<input type=radio name=""setting(88)"" value=""0"" id=""setting(88)2"" "
	If ishion.Setting(88) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(88)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">14、是否使用专用下载地址页：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(82)"" value=""1"" id=""setting(82)1"" "
	If ishion.Setting(82) = "1" Then Response.Write ("checked")
	Response.Write "><label for=""setting(82)1"">是</label>&nbsp;<input type=radio name=""setting(82)"" value=""0"" id=""setting(82)2"" "
	If ishion.Setting(82) = "0" Then Response.Write ("checked")
	Response.Write "><label for=""setting(82)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">15、下载链接中是否显示特别链接：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(89)"" value=""1"" id=""setting(89)1"" "
	If ishion.Setting(89) = "1" Then Response.Write ("checked")
	Response.Write "><label for=""setting(89)1"">是</label>&nbsp;<input type=radio name=""setting(89)"" value=""0"" id=""setting(89)2"" "
	If ishion.Setting(89) = "0" Then Response.Write ("checked")
	Response.Write "><label for=""setting(89)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">16、下载列表页每页显示资源数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(83)"" type=""text"" id=""setting(83)"" value="""
	Response.Write ishion.Setting(83)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">17、最近更新资源列表提取的记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(84)"" type=""text"" id=""setting(84)"" value="""
	Response.Write ishion.Setting(84)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">18、最近更新资源列表每页显示记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(85)"" type=""text"" id=""setting(85)"" value="""
	Response.Write ishion.Setting(85)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">19、下载排行榜提取的记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(86)"" type=""text"" id=""setting(86)"" value="""
	Response.Write ishion.Setting(86)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">20、下载排行榜资源列表每页显示记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(87)"" type=""text"" id=""setting(87)"" value="""
	Response.Write ishion.Setting(87)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </fieldset><a name=""9""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>九、CMS 文章管理系统参数设置</legend>" & vbCrLf
	Response.Write " <table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、首页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(95)"" type=""text"" id=""setting(95)"" value="""
	Response.Write ishion.Setting(95)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、文章分类页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(96)"" type=""text"" id=""setting(96)"" value="""
	Response.Write ishion.Setting(96)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、文章根分类列表页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(97)"" type=""text"" id=""setting(97)"" value="""
	Response.Write ishion.Setting(97)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">4、文章子分类列表页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(98)"" type=""text"" id=""setting(98)"" value="""
	Response.Write ishion.Setting(98)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">5、最近更新页文件：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(99)"" type=""text"" id=""setting(99)"" value="""
	Response.Write ishion.Setting(99)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">6、阅读排行榜文件页：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(100)"" type=""text"" id=""setting(100)"" value="""
	Response.Write ishion.Setting(100)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">7、文章内容浏览文件页：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(101)"" type=""text"" id=""setting(101)"" value="""
	Response.Write ishion.Setting(101)
	Response.Write """ size=""35"" maxlength=""40""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">8、文章列表默认排序方式：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(102)"" value=""DateAndTime"" id=""setting(102)1"" "
	If ishion.Setting(102) = "DateAndTime" Then Response.Write ("checked")
	Response.Write "><label for=""setting(102)1"">按更新时间</label>&nbsp;<input type=radio name=""setting(102)"" value=""Title"" id=""setting(102)2"" "
	If ishion.Setting(102) = "Title" Then Response.Write ("checked")
	Response.Write "><label for=""setting(102)2"">按首字字符</label>&nbsp;<input type=radio name=""setting(102)"" value=""Hits"" id=""setting(102)3"" "
	If ishion.Setting(102) = "Hits" Then Response.Write ("checked")
	Response.Write "><label for=""setting(102)3"">按阅读人气</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">9、文章列表页每页显示资源数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(103)"" type=""text"" id=""setting(103)"" value="""
	Response.Write ishion.Setting(103)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">10、最近更新资源列表提取的记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(104)"" type=""text"" id=""setting(104)"" value="""
	Response.Write ishion.Setting(104)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">11、最近更新资源列表每页显示记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(105)"" type=""text"" id=""setting(105)"" value="""
	Response.Write ishion.Setting(105)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">12、阅读人气榜提取的记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(106)"" type=""text"" id=""setting(106)"" value="""
	Response.Write ishion.Setting(106)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">13、阅读人气榜资源列表每页显示记录数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(107)"" type=""text"" id=""setting(107)"" value="""
	Response.Write ishion.Setting(107)
	Response.Write """ size=""6"" maxlength=""4""> 条记录</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">14、预定义文章作者：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(111)"" type=""text"" id=""setting(111)"" value="""
	Response.Write ishion.Setting(111)
	Response.Write """ size=""60"" maxlength=""50""> 多个请用“|”隔开</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">15、预定义文章出处：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(112)"" type=""text"" id=""setting(112)"" value="""
	Response.Write ishion.Setting(112)
	Response.Write """ size=""60"" maxlength=""150""> 多个请用“|”隔开</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">16、出处对应的网址：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(113)"" type=""text"" id=""setting(113)"" value="""
	Response.Write ishion.Setting(113)
	Response.Write """ size=""60"" maxlength=""150""> 多个请用“|”隔开</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write Chr(9) & "<tr class=""tdbg2"">" & vbCrLf
	Response.Write Chr(9) & "<td align=""right"">17、文章浏览页是显示评论</td>" & vbCrLf
	Response.Write "   <td><input type=radio name=""setting(114)"" value=""1"" id=""setting(114)1"" "
	If ishion.Setting(114) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(114)1"">是</label>&nbsp;<input type=radio name=""setting(114)"" value=""0"" id=""setting(114)2"" "
	If ishion.Setting(114) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(114)2"">否</label></td>" & vbCrLf
	Response.Write Chr(9) & "</tr>" & vbCrLf
	Response.Write " </table></fieldset><a name=""10""></a>" & vbCrLf
	Response.Write " <br>" & vbCrLf
	Response.Write " <fieldset><legend>十、Serv-U FTP 模块设置</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3""><a href=""#top"">↑Top</a>　*</span> 1、是否自动开通Serv-U帐号：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(121)"" value=""1"" id=""setting(121)1"" "
	If ishion.Setting(121) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(121)1"">是</label>&nbsp;<input type=radio name=""setting(121)"" value=""0"" id=""setting(121)2"" "
	If ishion.Setting(121) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(121)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 2、帐号开通时是否自动激活：</td>" & vbCrLf
	Response.Write " <td><input type=radio name=""setting(122)"" value=""1"" id=""setting(122)1"" "
	If ishion.Setting(122) = 1 Then Response.Write ("checked")
	Response.Write "><label for=""setting(122)1"">是</label>&nbsp;<input type=radio name=""setting(122)"" value=""0"" id=""setting(122)2"" "
	If ishion.Setting(122) = 0 Then Response.Write ("checked")
	Response.Write "><label for=""setting(122)2"">否</label></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 3、帐号有效期：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(123)"" type=""text"" id=""setting(123)"" value="""
	Response.Write ishion.Setting(123)
	Response.Write """ size=""6"" maxlength=""4"" onmouseover=""showToolTip('请填写数字，值为“0”时表示永久有效。',event.srcElement)"" onmouseout=""hiddenToolTip()""> 个月 ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 4、默认访问目录：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(124)"" type=""text"" id=""setting(124)"" value="""
	Response.Write ishion.Setting(124)
	Response.Write """ size=""50"" maxlength=""30"" onmouseover=""showToolTip('请填写服务器上绝对路径。<br>',event.srcElement)"" onmouseout=""hiddenToolTip()""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 5、默认访问权限：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(125)"" type=""text"" id=""setting(125)"" value="""
	Response.Write ishion.Setting(125)
	Response.Write """ size=""50"" maxlength=""30"" onmouseover=""showToolTip('<font color=red>默认访问权限:RWAMLCDP</font><br>R = read access 读<br>W = write access 写<br>A = append access 附加<br>M = modify access 修改<br>C = create directory access 创建目录<br>D = delete directory access 删除目录<br>L = list directory access 目录列表<br>E = execute program access 执行程序<br>P = inherit rule to sub-directories 继承',event.srcElement)"" onmouseout=""hiddenToolTip()""> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 6、FTP登录消息：</td>" & vbCrLf
	Response.Write " <td><textarea name=""setting(126)"" cols=""50"" rows=""5"" id=""setting(126)"">"
	Response.Write ishion.Setting(126)
	Response.Write "</textarea></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 7、最大并发用户：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(127)"" type=""text"" id=""setting(127)"" value="""
	Response.Write ishion.Setting(127)
	Response.Write """ size=""6"" maxlength=""4""> 个</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 8、每链最大上传速度：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(128)"" type=""text"" id=""setting(128)"" value="""
	Response.Write ishion.Setting(128)
	Response.Write """ size=""6"" maxlength=""4""> KB</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 9、每链最大下载速度：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(129)"" type=""text"" id=""setting(129)"" value="""
	Response.Write ishion.Setting(129)
	Response.Write """ size=""6"" maxlength=""4""> KB</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 10、同一IP最大用户数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(130)"" type=""text"" id=""setting(130)"" value="""
	Response.Write ishion.Setting(130)
	Response.Write """ size=""6"" maxlength=""4""> 个用户</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 11、空闲超时：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(131)"" type=""text"" id=""setting(131)"" value="""
	Response.Write ishion.Setting(131)
	Response.Write """ size=""6"" maxlength=""4""> 秒</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 12、进程超时：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(132)"" type=""text"" id=""setting(132)"" value="""
	Response.Write ishion.Setting(132)
	Response.Write """ size=""6"" maxlength=""4""> 秒</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right""><span class=""style3"">*</span> 13、下载率：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(133)"" type=""text"" id=""setting(133)"" value="""
	Response.Write ishion.Setting(133)
	Response.Write """ size=""6"" maxlength=""4""> MB</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table></fieldset><a name=""11""></a>" & vbCrLf
	Response.Write Chr(9) & "<br>" & vbCrLf
	Response.Write " <fieldset><legend>十一、其它选项设置</legend><table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <COLGROUP>" & vbCrLf
	Response.Write Chr(9) & "<COL width=""35%"">" & vbCrLf
	Response.Write Chr(9) & "<COL width=""65%"">" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right""><a href=""#top"">↑Top</a>　1、软件级别数：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(139)"" type=""text"" id=""setting(139)"" value="""
	Response.Write ishion.Setting(139)
	Response.Write """ size=""50"" maxlength=""200""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">2、会员级别类型：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(140)"" type=""text"" id=""setting(140)"" value="""
	Response.Write ishion.Setting(140)
	Response.Write """ size=""50"" maxlength=""200""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">3、资源授权类型：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(141)"" type=""text"" id=""setting(141)"" value="""
	Response.Write ishion.Setting(141)
	Response.Write """ size=""50"" maxlength=""200""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">4、资源语言类型：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(142)"" type=""text"" id=""setting(142)"" value="""
	Response.Write ishion.Setting(142)
	Response.Write """ size=""50"" maxlength=""200""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">5、资源性质类型：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(143)"" type=""text"" id=""setting(143)"" value="""
	Response.Write ishion.Setting(143)
	Response.Write """ size=""50"" maxlength=""200""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">6、运行系统类型：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(144)"" type=""text"" id=""setting(144)"" value="""
	Response.Write ishion.Setting(144)
	Response.Write """ size=""50"" maxlength=""200""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">7、默认运行系统：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(145)"" type=""text"" id=""setting(145)"" value="""
	Response.Write ishion.Setting(145)
	Response.Write """ size=""50"" maxlength=""200""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg2"">" & vbCrLf
	Response.Write " <td align=""right"">8、脏话过滤设置：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(146)"" type=""text"" id=""setting(146)"" value="""
	Response.Write ishion.Setting(146)
	Response.Write """ size=""50"" maxlength=""200"" onmouseover=""showToolTip('脏话过滤设置将不允许用户在发现评论时包含这些字符，<br>请您将要过滤的字符串添入，<br>如果有多个字符串，请用“,”分隔开。<br><font color=red>例如：妈妈的,我靠,fuck,bitch,他妈的,性爱,法轮,falundafa,falun,江泽民,操你妈,三级片,王八蛋</font>',event.srcElement)"" onmouseout=""hiddenToolTip()""> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr class=""tdbg3"">" & vbCrLf
	Response.Write " <td align=""right"">9、注册过滤字符：</td>" & vbCrLf
	Response.Write " <td><input name=""setting(147)"" type=""text"" id=""setting(147)"" value="""
	Response.Write ishion.Setting(147)
	Response.Write """ size=""50"" maxlength=""200"" onmouseover=""showToolTip('注册过滤字符将不允许用户注册包含以下字符的内容，<br>请您将要过滤的字符串添入，<br>如果有多个字符串，请用“,”分隔开。<br><font color=red>例如：ishion,yuxin,huike</font>',event.srcElement)"" onmouseout=""hiddenToolTip()""> ？</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </fieldset>" & vbCrLf
	Response.Write " <table width=""100%"" border=""0"">" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td align=""center""><input type=""submit"" name=""Submit"" value="" 更新设置 ""></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<fieldset style=""padding:10px;""><legend><img src=""../images/help.gif"" width=""45"" height=""18""></legend><br>" & vbCrLf
	Response.Write Chr(9) & "<li>有“？”符号的项目，将鼠标停放在文本框或者单元格上会显示该项目帮助提示信息。" & vbCrLf
	Response.Write Chr(9) & "<li>有“<span class=""style3"">*</span>”符号的项目只有商业版提供此功能。</li><br>" & vbCrLf
	Response.Write "</td>" & vbCrLf
	Response.Write "</fieldset>" & vbCrLf	


	End Sub
	Public Sub OnEndPage()
		Response.Write ishion.CopyRight
	End Sub ' OnEndPage
End Class %>

