admin_setting.asp

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

ASP
791 行
字号
123
	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 Newasp.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(36)"" cols=""60"" rows=""3"">"
	Response.Write Newasp.setting(36)
	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 "<input type=""text"" name=""System_set(37)"" size=""35"" value="""
	Response.Write Newasp.setting(37)
	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(38)"" value=0 "
	If CInt(Newasp.setting(38)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(38)"" value=1 "
	If CInt(Newasp.setting(38)) = 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(39)"" value=0 "
	If CInt(Newasp.setting(39)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(39)"" value=1 "
	If CInt(Newasp.setting(39)) = 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(40)"" value=0 "
	If CInt(Newasp.setting(40)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(40)"" value=1 "
	If CInt(Newasp.setting(40)) = 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(41)"" value=0 "
	If CInt(Newasp.setting(41)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">关闭&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(41)"" value=1 "
	If CInt(Newasp.setting(41)) = 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(43)"" size=""10"" value="""
	Response.Write Newasp.setting(43)
	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(44)"" value=0 "
	If CInt(Newasp.setting(44)) = 0 Then
		Response.Write "checked"
	End If
	Response.Write ">否&nbsp;" & Chr(13) & Chr(10)
	Response.Write "<input type=radio name=""System_set(44)"" value=1 "
	If CInt(Newasp.setting(44)) = 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=""setting8""></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=""Badwords"" cols=""55"" rows=""5"">"
	Response.Write Newasp.Badwords
	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=""Badwordr"" cols=""55"" rows=""5"">"
	Response.Write Newasp.Badwordr
	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 "<input size=""20"" value="""
	Response.Write Newasp.GetSetupDir
	Response.Write """ disabled>" & Chr(13) & Chr(10)
	Response.Write "<input type=hidden name=""SetupDir"" value="""
	Response.Write Newasp.GetSetupDir
	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> &nbsp;</td>" & Chr(13) & Chr(10)
	Response.Write "<td class=Forumrow> " & Chr(13) & Chr(10)
	Response.Write "<div align=""center""> " & Chr(13) & Chr(10)
	Response.Write "<input type=""submit"" class=buttonmain name=""Submit"" value=""　提 交"">" & Chr(13) & Chr(10)
	Response.Write "</div>" & Chr(13) & Chr(10)
	Response.Write "</td>" & Chr(13) & Chr(10)
	Response.Write "</tr>" & Chr(13) & Chr(10)
	Response.Write "</form>" & Chr(13) & Chr(10)
	Response.Write "</table>" & Chr(13) & Chr(10)
	Response.Write "<div id=""Issubport0"" style=""display:none"">请选择EMAIL组件！</div>" & Chr(13) & Chr(10)
	Response.Write "<div id=""Issubport999"" style=""display:none""></div>" & Chr(13) & Chr(10)

	InstalledObjects(1) = "JMail.Message" 'JMail 4.3
	InstalledObjects(2) = "CDONTS.NewMail" 'CDONTS
	InstalledObjects(3) = "Persits.MailSender" 'ASPEMAIL
	'-----------------------

	InstalledObjects(4) = "Scripting.FileSystemObject" 'Fso
	InstalledObjects(5) = "LyfUpload.UploadFile" 'LyfUpload
	InstalledObjects(6) = "Persits.Upload" 'Aspupload3.0
	InstalledObjects(7) = "SoftArtisans.FileUp" 'SA-FileUp 4.0
	'-----------------------

	InstalledObjects(8) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
	InstalledObjects(9) = "Persits.Jpeg" 'AspJpeg
	InstalledObjects(10) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
	'InstalledObjects(11) = "sjCatSoft.Thumbnail"	   'sjCatSoft.Thumbnail V2.6

	For i = 1 To 11
		Response.Write "<div id=""Issubport" & i & """ style=""display:none"">"
		If IsObjInstalled(InstalledObjects(i)) Then Response.Write "<font color=red><b>√</b>服务器支持!</font>" Else Response.Write "<b>×</b>服务器不支持!"
		Response.Write "</div>"
	Next
	Response.Write "<SCRIPT LANGUAGE=""JavaScript"">" & Chr(13) & Chr(10)
	Response.Write "<!--" & Chr(13) & Chr(10)
	Response.Write "function chkselect(s,divid)" & Chr(13) & Chr(10)
	Response.Write "{" & Chr(13) & Chr(10)
	Response.Write "var divname='Issubport';" & Chr(13) & Chr(10)
	Response.Write "var chkreport;" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "s=Number(s)" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "if (divid==""know1"")" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "{" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "divname=divname+s;" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "}" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "if (divid==""know2"")" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "{" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "s+=4;" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "if (s==1003){s=999;}" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "divname=divname+s;" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "}" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "if (divid==""know3"")" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "{" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "s+=8;" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "if (s==1007){s=999;}" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "divname=divname+s;" & Chr(13) & Chr(10)
	Response.Write Chr(9) & "}" & Chr(13) & Chr(10)
	Response.Write "document.getElementById(divid).innerHTML=divname;" & Chr(13) & Chr(10)
	Response.Write "chkreport=document.getElementById(divname).innerHTML;" & Chr(13) & Chr(10)
	Response.Write "document.getElementById(divid).innerHTML=chkreport;" & Chr(13) & Chr(10)
	Response.Write "}" & Chr(13) & Chr(10)
	Response.Write "//-->"
	Response.Write "</SCRIPT>" & Chr(13) & Chr(10)
End Sub


Private Sub saveconst()
	Dim System_set
	For i = 0 To 45
		System_set = System_set & Request.Form("System_set(" & i & ")") & "|||"
	Next
	System_set = System_set & "0|||0|||0|||1|||1|||1|||0|||"
	SQL = "update [NC_Config] set System_set='" & System_set & "',StopReadme='" & Request.Form("StopReadme") & "',Badwords='" & Request.Form("Badwords") & "',Badwordr='" & Request.Form("Badwordr") & "',SetupDir='" & Request.Form("SetupDir") & "',tempid='" & Request.Form("tempid") & "',Script_FSO='" & Request.Form("Script_FSO") & "'"
	Newasp.Execute (SQL)
	Set Rs = Newasp.Execute("select ID from NC_Template")
	Do While Not Rs.EOF
		Newasp.DelCahe ("ClassList" & Rs(0))
		Newasp.DelCahe ("ClassMenu" & Rs(0))
		Newasp.DelCahe ("SortingList" & Rs(0))
		Newasp.DelCahe ("SortingMenu" & Rs(0))
		Rs.movenext
	Loop
	Set Rs = Nothing
	Newasp.DelCahe("Templateslist")
	Newasp.Name = "Config"
	Newasp.ReloadConfig
	Call NC_Admin.Succeed_Msg("保存设置成功,请<a href=admin_setting.asp?action=reload><font color=RED>重建缓存</a></font>")
End Sub


Private Sub restore()
	Dim Newasp_setting
	'恢复默认设置
	Newasp_setting = "新云下载|||http://down.newasp.net/|||web@dvasp.com|||软件下载,asp,php,net,jsp,源码下载,虚拟主机,域名注册,企业邮箱,网站建设,免费注册,程序制作|||Copyright (c) 2002-2004 <a href=""http://www.newasp.net"" target=""_blank""><font face=Verdana, Arial, Helvetica, sans-serif><b>Newasp<font color=#CC0000>.Net</font></b></font></a>. All Rights Reserved .|||0|||index.html|||0|||web@dnsxy.com|||mail.dnsxy.com|||1|||newasp|||newasp|||1|||1|||300|||0|||1|||1|||1|||30|||200|||500|||2000|||UploadFile/|||rar|zip|exe|swf|||upimages/|||gif|jpg|bmp|png|swf|||0|||1|||10|||1|||0|||100|||0|||newasp|||newasp|||01|||01|||1|||1|||1|||Win2003,WinNet,WinXP,Win2000,NT,WinME,Win9X,Linux,Unix,Mac,ASP环境,NET环境,PHP环境,CGI环境|||国产软件,国外软件,汉化补丁,源码程序|||新闻资讯，软件教程，安全相关，技术文章|||www.newasp.net|||1|||0|||0|||0|||1|||1|||1|||0|||"
	Newasp.Execute ("update [NC_Config] set System_set='" & Newasp_setting & "'")
	Newasp.Name = "Config"
	Newasp.ReloadConfig
	Call NC_Admin.Succeed_Msg("还原设置成功。")
End Sub


Private Sub ReloadCache()
	Application.Contents.RemoveAll
	Newasp.Name = "Config"
	Newasp.ReloadConfig
	Response.Write "<script>alert('重建缓存成功！');location.replace('admin_setting.asp')</script>"
End Sub


Private Function IsObjInstalled(strClassString)
	Dim xTestObj
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Set xTestObj = Server.CreateObject(strClassString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function

%>
123

admin_setting.asp - 源码说明

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

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

⌨️ 快捷键说明

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