admin_setting.asp

来自「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 791 行 · 第 1/3 页
ASP
791 行
	Response.Write "<th height=25 colspan=2 align=left id=tabletitlelink><a name=""setting4""></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=""text"" name=""System_set(15)"" size=""10"" value="""
	Response.Write Newasp.setting(15)
	Response.Write """>&nbsp;秒" & 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 "<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(Newasp.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(Newasp.setting(17)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(17)"" value=1 "
	If CInt(Newasp.setting(17)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & 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(Newasp.setting(18)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(18)"" value=1 "
	If CInt(Newasp.setting(18)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & 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(Newasp.setting(19)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(19)"" value=1 "
	If CInt(Newasp.setting(19)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & 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 Newasp.setting(20)
	Response.Write """>&nbsp;分钟" & 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 Newasp.setting(21)
	Response.Write """>&nbsp;分钟" & 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 Newasp.setting(22)
	Response.Write """>&nbsp;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 Newasp.setting(23)
	Response.Write """>&nbsp;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 Newasp.setting(24)
	Response.Write """>&nbsp;目录名后面请加上“/”" & 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 Newasp.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 Newasp.setting(26)
	Response.Write """>&nbsp;目录名后面请加上“/”" & 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 Newasp.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 Newasp.setting(28) = 999 Then
		Response.Write "selected"
	End If
	Response.Write ">关闭上传功能" & Chr(13) & Chr(10)
	Response.Write "<option value=""0"" "
	If Newasp.setting(28) = 0 Then
		Response.Write "selected"
	End If
	Response.Write ">无组件上传类 " & Chr(13) & Chr(10)
	Response.Write "<option value=""1"" "
	If Newasp.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(Newasp.setting(29)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(29)"" value=1 "
	If CInt(Newasp.setting(29)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & 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 Newasp.setting(30)
	Response.Write """>&nbsp;" & 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 Newasp.Script_FSO
	Response.Write """>&nbsp;<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(Newasp.setting(31)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(31)"" value=1 "
	If CInt(Newasp.setting(31)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & 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(Newasp.setting(32)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(32)"" value=1 "
	If CInt(Newasp.setting(32)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & 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(Newasp.setting(42)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(42)"" value=1 "
	If CInt(Newasp.setting(42)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">是&nbsp;" & 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 Newasp.setting(33)
	Response.Write """>&nbsp;点" & 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 Newasp.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 Newasp.setting(45)
	Response.Write """>" & Chr(13) & Chr(10)
admin_setting.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器」中的 admin_setting.asp 源码文件，采用 ASP 编程语言编写，共 791 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?