📄 admin_setting.asp
字号:
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<select name=""System_set(16)"">" & Chr(13) & Chr(10)
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>" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>是否显示友情连接</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
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 ">否 " & Chr(13) & Chr(10)
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 ">是 " & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>是否显示页面执行时间</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
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 ">否 " & Chr(13) & Chr(10)
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 ">是 " & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>是否开启HTML编辑器</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
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 ">否 " & Chr(13) & Chr(10)
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 ">是 " & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>删除不活动用户时间</U><BR>单位：分钟，请输入数字</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(20)"" size=""10"" value="""
Response.Write DownsysClass.setting(20)
Response.Write """> 分钟" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>Session会话的保持时间</U><BR>单位：分钟，请输入数字</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(21)"" size=""10"" value="""
Response.Write DownsysClass.setting(21)
Response.Write """> 分钟" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>上传图片大小设置（KB）</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(22)"" size=""15"" value="""
Response.Write DownsysClass.setting(22)
Response.Write """> KB" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>上传文件大小设置（KB）</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(23)"" size=""15"" value="""
Response.Write DownsysClass.setting(23)
Response.Write """> KB" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>上传文件目录</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(24)"" size=""15"" value="""
Response.Write DownsysClass.setting(24)
Response.Write """> 目录名后面请加上“/”" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>上传文件类型</U><BR>请用“|”分开</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(25)"" size=""55"" value="""
Response.Write DownsysClass.setting(25)
Response.Write """>" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>上传图片目录</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(26)"" size=""15"" value="""
Response.Write DownsysClass.setting(26)
Response.Write """> 目录名后面请加上“/”" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>上传图片类型</U><BR>请用“|”分开</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(27)"" size=""55"" value="""
Response.Write DownsysClass.setting(27)
Response.Write """>" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow ><U>选取上传组件:</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow >" & Chr(13) & Chr(10)
Response.Write "<select name=""System_set(28)"" onChange=""chkselect(options[selectedIndex].value,'know2');"">" & Chr(13) & Chr(10)
Response.Write "<option value=""999"" "
If DownsysClass.setting(28) = 999 Then
Response.Write "selected"
End If
Response.Write ">关闭上传功能" & Chr(13) & Chr(10)
Response.Write "<option value=""0"" "
If DownsysClass.setting(28) = 0 Then
Response.Write "selected"
End If
Response.Write ">无组件上传类 " & Chr(13) & Chr(10)
Response.Write "<option value=""1"" "
If DownsysClass.setting(28) = 1 Then
Response.Write "selected"
End If
Response.Write ">Lyfupload组件" & Chr(13) & Chr(10)
Response.Write "</select><div id=""know2""></div>" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>是否开启批量上传功能</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
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 ">否 " & Chr(13) & Chr(10)
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 ">是 " & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>批量上传最多的文件数</U><BR>请输入数字</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(30)"" size=""10"" value="""
Response.Write DownsysClass.setting(30)
Response.Write """> " & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>FSO组件的名称</U><BR>FSO默认名称：Scripting.FileSystemObject</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""Script_FSO"" size=""40"" value="""
Response.Write DownsysClass.Script_FSO
Response.Write """> <BR>" & Chr(13) & Chr(10)
Response.Write "某些网站为了安全，将FSO组件的名称进行更改以达到禁用FSO的目的。如果你的网站是这样做的，请在此输入更改过的名称。" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting5""></a><b>会员设置</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>是否允许新用户注册</U><BR>关闭后系统将不能注册</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
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 ">否 " & Chr(13) & Chr(10)
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 ">是 " & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>注册会员是否要管理员认证</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
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 ">否 " & Chr(13) & Chr(10)
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 ">是 " & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>会员是否可以修改密码及资料</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
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 ">否 " & Chr(13) & Chr(10)
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 ">是 " & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>注册会员增加的点数</U><BR>请输入数字</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=""text"" name=""System_set(33)"" size=""10"" value="""
Response.Write DownsysClass.setting(33)
Response.Write """> 点" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting6""></a><b>下载文章设置</b>[<a href=""#top"" class=TableTitleLink>顶部</a>]</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>设置软件运行环境</U><BR>请用“,”分开</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<textarea name=""System_set(34)"" cols=""60"" rows=""4"">"
Response.Write DownsysClass.setting(34)
Response.Write "</textarea>" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>设置软件默认运行环境</U></td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<input type=text name=""System_set(45)"" size=""60"" value="""
Response.Write DownsysClass.setting(45)
Response.Write """>" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>设置软件类型</U><BR>请用“,”分开</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<textarea name=""System_set(35)"" cols=""60"" rows=""3"">"
Response.Write DownsysClass.setting(35)
Response.Write "</textarea>" & Chr(13) & Chr(10)
Response.Write "</td>" & Chr(13) & Chr(10)
Response.Write "</tr>" & Chr(13) & Chr(10)
Response.Write "<tr> " & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> <U>设置软件授权方式</U><BR>请用“,”分开</td>" & Chr(13) & Chr(10)
Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
Response.Write "<textarea name=""System_set(46)"" cols=""60"" rows=""3"">"
Response.Write DownsysClass.setting(46)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -