admin_setting.asp

来自「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 791 行 · 第 1/3 页

ASP
791 行
字号
123
<!--#include file="setup.asp"-->
<%
Private SkinID
Private StyleID
Private i
NC_Admin.AdminChk = "01"
NC_Admin.Check
Newasp.admin_header
'*****************************************************************
'*  NewCloud DownLoad System Version 6.0.1
'*  File: admin_setting.asp
'*  Date: 2004-6-8
'*****************************************************************
'*  Copyright 2002-2004 newasp.net - All Rights Reserved.
'*  newasp is a trademark of newasp.net
'*  HomePage: http://www.newasp.net
'*****************************************************************
'取当前系统默认模板编号
SkinID = Newasp.Tempid
If StyleID = "" Then
	StyleID = SkinID
ElseIf Not IsNumeric(StyleID) Then
	StyleID = SkinID
End If
StyleID = CLng(StyleID)
If Request("action") = "save" Then
	Call saveconst
ElseIf Request("action") = "restore" Then
	Call restore
ElseIf Request("action") = "reload" Then
	Call ReloadCache
Else
	Call consted
End If
Newasp.admin_footer

Private Sub consted()
	Dim Templateslist
	Dim NowOpenTemplate
	Dim InstalledObjects(11)

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

	Newasp.Name = "Templateslist"
	If Newasp.ObjIsEmpty Then Newasp.ReloadTemplateslist
	Templateslist = Newasp.Value
	Templateslist = Split(Templateslist, "@@@")
	Response.Write "<select name=""tempid"" size=1>"
	For i = 0 To UBound(Templateslist)
		Templateslist(i) = Split(Templateslist(i), "|||")
		Response.Write "<option value=""" & Templateslist(i)(0) & """"
		If CLng(Templateslist(i)(0)) = CLng(StyleID) Then
			Response.Write " selected"
			NowOpenTemplate = Templateslist(i)(1)
		End If
		Response.Write ">" & Templateslist(i)(1) & "</option>"
	Next
	Response.Write "</select>"
	Response.Write "</td>" & 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(5)"" value=0 "
	If CInt(Newasp.setting(5)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">静态HTML&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(5)"" value=1 "
	If CInt(Newasp.setting(5)) = 1 Then
		Response.Write "checked"
	End If
	Response.Write ">动态ASP&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=""text"" name=""System_set(6)"" size=""15"" value="""
	Response.Write Newasp.setting(6)
	Response.Write """>" & Chr(13) & Chr(10)
	Response.Write "</td>" & 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(7)"" value=0 "
	If CInt(Newasp.setting(7)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">打开&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(7)"" value=1 "
	If CInt(Newasp.setting(7)) = 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>在系统关闭情况下显示，支持html语法</td>" & Chr(13) & Chr(10)
	Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
	Response.Write "<textarea name=""StopReadme"" cols=""55"" rows=""3"" id=TdStopReadme>"
	Response.Write Newasp.StopReadme
	Response.Write "</textarea>" & Chr(13) & Chr(10)
	Response.Write " <a href=""javascript:admin_Size(-5,'TdStopReadme')""><img src=""images/2.gif"" unselectable=""on"" border='0'></a> <a href=""javascript:admin_Size(5,'TdStopReadme')""><img src=""images/1.gif"" unselectable=""on"" border='0'></a>" & 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=""setting3""></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>系统管理员Email</U><BR>给用户发送邮件时，显示的来源Email信息</td>" & Chr(13) & Chr(10)
	Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
	Response.Write "<input type=""text"" name=""System_set(8)"" size=""35"" value="""
	Response.Write Newasp.setting(8)
	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>SMTP Server地址</U></td>" & Chr(13) & Chr(10)
	Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
	Response.Write "<input type=""text"" name=""System_set(9)"" size=""35"" value="""
	Response.Write Newasp.setting(9)
	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>如果您的服务器不支持下列组件，请选择不支持" & Chr(13) & Chr(10)
	Response.Write "</td>" & Chr(13) & Chr(10)
	Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
	Response.Write "<select name=""System_set(10)"" onChange=""chkselect(options[selectedIndex].value,'know1');"">" & Chr(13) & Chr(10)
	Response.Write "<option value=""0"" "
	If Newasp.setting(10) = 0 Then
		Response.Write "selected"
	End If
	Response.Write ">不支持 " & Chr(13) & Chr(10)
	Response.Write "<option value=""1"" "
	If Newasp.setting(10) = 1 Then
		Response.Write "selected"
	End If
	Response.Write ">JMAIL " & Chr(13) & Chr(10)
	Response.Write "<option value=""2"" "
	If Newasp.setting(10) = 2 Then
		Response.Write "selected"
	End If
	Response.Write ">CDONTS " & Chr(13) & Chr(10)
	Response.Write "<option value=""3"" "
	If Newasp.setting(10) = 3 Then
		Response.Write "selected"
	End If
	Response.Write ">ASPEMAIL " & Chr(13) & Chr(10)
	Response.Write "</select><div id=know1></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=""text"" name=""System_set(11)"" size=""30"" value="""
	Response.Write Newasp.setting(11)
	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=""password"" name=""System_set(12)"" size=""30"" value="""
	Response.Write Newasp.setting(12)
	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(13)"" value=0 "
	If CInt(Newasp.setting(13)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(13)"" value=1 "
	If CInt(Newasp.setting(13)) = 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=radio name=""System_set(14)"" value=0 "
	If CInt(Newasp.setting(14)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(14)"" value=1 "
	If CInt(Newasp.setting(14)) = 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)
123

admin_setting.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态ASP； 　无限制添加下载服务器」中的 admin_setting.asp 源码文件，采用 ASP 编程语言编写，共 791 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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