⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_setting.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#include file="setup.asp"-->
<%
Dim SkinID
Dim StyleID
Dim i
NC_Admin.AdminChk = "01"
NC_Admin.Check
DownsysClass.admin_header

'取当前系统默认模板编号
SkinID = DownsysClass.Tempid
If StyleID = "" Then
	StyleID = SkinID
	ElseIf Not IsNumeric(StyleID) Then
	StyleID = SkinID
End If
StyleID = CLng(StyleID)
If Request("action") = "save" Then
	Call saveconst
	ElseIf Request("action") = "restore" Then
	Call restore
	ElseIf Request("action") = "reload" Then
	Call ReloadCache
Else
	Call consted
End If
DownsysClass.admin_footer
NothingObject

Private Sub consted()
	Dim Templateslist
	Dim NowOpenTemplate
	Dim InstalledObjects(11)
	Response.Write "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & 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=restore1111><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 DownsysClass.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 DownsysClass.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 DownsysClass.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 DownsysClass.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 DownsysClass.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

	DownsysClass.Name = "Templateslist"
	If DownsysClass.ObjIsEmpty Then DownsysClass.ReloadTemplateslist
	Templateslist = DownsysClass.Value
	Templateslist = Split(Templateslist, "@@@")
	Response.Write "<select name=""tempid"" size=1>"
	For i = 0 To UBound(Templateslist)
		Templateslist(i) = Split(Templateslist(i), "|||")
		Response.Write "<option value=""" & Templateslist(i)(0) & """"
		If CLng(Templateslist(i)(0)) = CLng(StyleID) Then
			Response.Write " selected"
			NowOpenTemplate = Templateslist(i)(1)
		End If
		Response.Write ">" & Templateslist(i)(1) & "</option>"
	Next
	Response.Write "</select>"
	Response.Write "</td>" & 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(DownsysClass.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(DownsysClass.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 DownsysClass.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(DownsysClass.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(DownsysClass.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 DownsysClass.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 DownsysClass.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 DownsysClass.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 DownsysClass.setting(10) = 0 Then
		Response.Write "selected"
	End If
	Response.Write ">不支持 " & Chr(13) & Chr(10)
	Response.Write "<option value=""1"" "
	If DownsysClass.setting(10) = 1 Then
		Response.Write "selected"
	End If
	Response.Write ">JMAIL " & Chr(13) & Chr(10)
	Response.Write "<option value=""2"" "
	If DownsysClass.setting(10) = 2 Then
		Response.Write "selected"
	End If
	Response.Write ">CDONTS " & Chr(13) & Chr(10)
	Response.Write "<option value=""3"" "
	If DownsysClass.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 DownsysClass.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 DownsysClass.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(DownsysClass.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(DownsysClass.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(DownsysClass.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(DownsysClass.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)
	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 DownsysClass.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)
123

⌨️ 快捷键说明

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