📄 admin_setting.asp
字号:
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(47)"" size=""60"" value="""
Response.Write DownsysClass.setting(47)
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(36)"" cols=""60"" rows=""3"">"
Response.Write DownsysClass.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 DownsysClass.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(DownsysClass.setting(38)) = 0 Then
Response.Write "checked"
End If
Response.Write ">否 " & Chr(13) & Chr(10)
Response.Write "<input type=radio name=""System_set(38)"" value=1 "
If CInt(DownsysClass.setting(38)) = 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(39)"" value=0 "
If CInt(DownsysClass.setting(39)) = 0 Then
Response.Write "checked"
End If
Response.Write ">关闭 " & Chr(13) & Chr(10)
Response.Write "<input type=radio name=""System_set(39)"" value=1 "
If CInt(DownsysClass.setting(39)) = 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(40)"" value=0 "
If CInt(DownsysClass.setting(40)) = 0 Then
Response.Write "checked"
End If
Response.Write ">关闭 " & Chr(13) & Chr(10)
Response.Write "<input type=radio name=""System_set(40)"" value=1 "
If CInt(DownsysClass.setting(40)) = 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(41)"" value=0 "
If CInt(DownsysClass.setting(41)) = 0 Then
Response.Write "checked"
End If
Response.Write ">关闭 " & Chr(13) & Chr(10)
Response.Write "<input type=radio name=""System_set(41)"" value=1 "
If CInt(DownsysClass.setting(41)) = 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(43)"" size=""10"" value="""
Response.Write DownsysClass.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(DownsysClass.setting(44)) = 0 Then
Response.Write "checked"
End If
Response.Write ">否 " & Chr(13) & Chr(10)
Response.Write "<input type=radio name=""System_set(44)"" value=1 "
If CInt(DownsysClass.setting(44)) = 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 "<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 DownsysClass.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 DownsysClass.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 DownsysClass.GetSetupDir
Response.Write """ disabled>" & Chr(13) & Chr(10)
Response.Write "<input type=hidden name=""SetupDir"" value="""
Response.Write DownsysClass.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> </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)
'rs.close
'set rs=nothing
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 47
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") & "'"
DownsysClass.Execute (SQL)
Set Rs = DownsysClass.Execute("select ID from NC_Template")
Do While Not Rs.EOF
DownsysClass.DelCahe ("ClassList" & Rs(0))
DownsysClass.DelCahe ("ClassMenu" & Rs(0))
DownsysClass.DelCahe ("SortingList" & Rs(0))
DownsysClass.DelCahe ("SortingMenu" & Rs(0))
Rs.movenext
Loop
Set Rs=Nothing
DownsysClass.DelCahe("Templateslist")
DownsysClass.Name = "Config"
DownsysClass.ReloadConfig
Call NC_Admin.Succeed_Msg("保存设置成功,请<a href=admin_setting.asp?action=reload><font color=RED>重建缓存</a></font>")
End Sub
Private Sub restore()
Dim DownsysClass_setting
'恢复默认设置
DownsysClass_setting = "轩溪软件园|||http://www.10000.org.cn/|||admin@10000.org.cn|||软件下载,源码下载,破解下载,汉化下载,一切精彩软件尽在轩溪软件园|||Copyright © 2002-2004 <a href=""http://www.10000.org.cn"" target=""_blank""><font face=Verdana, Arial, Helvetica, sans-serif><b>Xuanxi<font color=#CC0000>.Net</font></b></font></a>. All Rights Reserved .|||0|||index.html|||0|||||||||0|||||||||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|||Win2003/,WinNet/,WinXP/,Win2000/,NT/,WinME/,Win9X/,Linux/,Unix/,Mac/,ASP环境/,NET环境/,PHP环境/,CGI环境/|||国产软件,国外软件,汉化补丁,源码程序|||新闻资讯,软件教程,安全相关,技术文章|||DownsysClass.net|||1|||1|||1|||1|||1|||1000|||0|||Win9X/WinXP/Win2000/|||共享软件,免费软件,自由软件,试用软件,演示软件,商业软件|||简体中文,繁体中文,英文|||1|||1|||0|||"
DownsysClass.Execute ("update [NC_Config] set System_set='" & DownsysClass_setting & "'")
DownsysClass.Name = "Config"
DownsysClass.ReloadConfig
Application.Contents.RemoveAll
Call NC_Admin.Succeed_Msg("还原设置成功。")
End Sub
Private Sub ReloadCache()
DownsysClass.Name = "Config"
DownsysClass.ReloadConfig
Application.Contents.RemoveAll
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -